diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 07:36:15 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 07:36:15 +0000 |
| commit | a4fe7d9c260ca9f732695edd2790cc806be5937d (patch) | |
| tree | 21846fd89be1b71258848cd180eea39f6917b088 /urpm/args.pm | |
| parent | 0d619a8d67fa2820e1b1ace2762448f5c733d5c0 (diff) | |
| download | urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.gz urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.bz2 urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.xz urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.zip | |
perl_checker_fixes
Diffstat (limited to 'urpm/args.pm')
| -rw-r--r-- | urpm/args.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index e02d67ac..8c3d589b 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -26,7 +26,7 @@ sub import { if (@_ > 1 && $_[1] eq 'options') { # export the global %options hash no strict 'refs'; - *{caller().'::options'} = \%options; + *{caller() . '::options'} = \%options; } } @@ -165,7 +165,7 @@ my %options_spec = ( # This is for non-option arguments. # Assume a regex unless a ++ is inside the string. $p = quotemeta $p if $p =~ /\+\+/; - $::expr .= "m{$p}".$::pattern; + $::expr .= "m{$p}" . $::pattern; } }, }, |