From 960d661a9a03a6a5c79f98effd63fc5cffa19420 Mon Sep 17 00:00:00 2001 From: Raphael Hertzog Date: Tue, 18 Mar 2008 17:56:50 +0100 Subject: [PATCH] * scripts/Dpkg/Source/Package/V3_0/native.pm: Import missing function and bugfix. --- scripts/Dpkg/Source/Package/V3_0/native.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/Dpkg/Source/Package/V3_0/native.pm b/scripts/Dpkg/Source/Package/V3_0/native.pm index 5efab3ef..1ecd1dfb 100644 --- a/scripts/Dpkg/Source/Package/V3_0/native.pm +++ b/scripts/Dpkg/Source/Package/V3_0/native.pm @@ -23,7 +23,7 @@ use base 'Dpkg::Source::Package'; use Dpkg; use Dpkg::Gettext; -use Dpkg::ErrorHandling qw(error syserr info); +use Dpkg::ErrorHandling qw(error syserr info usageerr); use Dpkg::Compression; use Dpkg::Source::Archive; use Dpkg::Source::Functions qw(erasedir); @@ -66,7 +66,7 @@ sub can_build { sub do_build { my ($self, $dir) = @_; my @tar_ignore = map { "--exclude=$_" } @{$self->{'options'}{'tar_ignore'}}; - my @argv = $self->{'options'}{'ARGV'}; + my @argv = @{$self->{'options'}{'ARGV'}}; if (scalar(@argv)) { usageerr(_g("-b takes only one parameter with format `%s'"), -- 2.39.5