diff options
| author | Justin Davis <jrcd83@gmail.com> | 2011-08-21 17:54:03 +0200 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2011-08-21 17:54:03 +0200 |
| commit | ef16ac822e862ec2fcdb5ad3ee0f0b48835d6103 (patch) | |
| tree | 446d36bca240cbf5b92880201f9fcf3e3276a77c | |
| parent | 0567753f3b3f02a0048b35e21a6f96dc0dd68038 (diff) | |
| download | genpkg-ef16ac822e862ec2fcdb5ad3ee0f0b48835d6103.tar.gz genpkg-ef16ac822e862ec2fcdb5ad3ee0f0b48835d6103.tar.xz | |
Fix argument shifting in perl-pkg.
| -rwxr-xr-x | bin/templ/perl-pkg | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/templ/perl-pkg b/bin/templ/perl-pkg index 19d21ff..a2bd171 100755 --- a/bin/templ/perl-pkg +++ b/bin/templ/perl-pkg @@ -112,9 +112,10 @@ sub readvars sub main { - my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n}; + my ($type) = @_; my $vars = readvars(); printpb($type, $vars); } -main(@_); +my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n}; +main($type); |