diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-19 17:10:12 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-19 17:10:12 +0000 |
| commit | 22d3107b3224f91c04e8825ba8bc812dba63a7ef (patch) | |
| tree | ee8f28bf683e7634a039909a7503cd3e7e53967f /urpm/args.pm | |
| parent | 7f79f78d1a0af648a116cd1e39a073e051502b9c (diff) | |
| download | urpmi-22d3107b3224f91c04e8825ba8bc812dba63a7ef.tar urpmi-22d3107b3224f91c04e8825ba8bc812dba63a7ef.tar.gz urpmi-22d3107b3224f91c04e8825ba8bc812dba63a7ef.tar.bz2 urpmi-22d3107b3224f91c04e8825ba8bc812dba63a7ef.tar.xz urpmi-22d3107b3224f91c04e8825ba8bc812dba63a7ef.zip | |
Some more cleanup and refactorization.
Diffstat (limited to 'urpm/args.pm')
| -rw-r--r-- | urpm/args.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index 36e84b79..3d3904f0 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -22,8 +22,8 @@ my $urpm; our %options; sub import { - if ($_[1] eq 'options') { - # export the %options hash + if (@_ > 1 && $_[1] eq 'options') { + # export the global %options hash no strict 'refs'; *{caller().'::options'} = \%options; } @@ -124,7 +124,7 @@ my %options_spec = ( all => sub { foreach my $k (qw(filename group size summary description sourcerpm packager buildhost url provides requires files conflicts obsoletes)) - { $::params{$k} = 1; } + { $::params{$k} = 1 } }, name => \$::params{filename}, group => \$::params{group}, |