diff options
| -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); |