summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-13 15:01:52 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-13 15:01:52 +0000
commitd2a70455175fd164ebf8f6ac2f7574d1711f56d1 (patch)
treec65f01f7c4b90bbb29aa6aca867237d993b7f86b
parent6e2f460d46b8fd28cb664dfb77f051510238a0da (diff)
downloadurpmi-d2a70455175fd164ebf8f6ac2f7574d1711f56d1.tar
urpmi-d2a70455175fd164ebf8f6ac2f7574d1711f56d1.tar.gz
urpmi-d2a70455175fd164ebf8f6ac2f7574d1711f56d1.tar.bz2
urpmi-d2a70455175fd164ebf8f6ac2f7574d1711f56d1.tar.xz
urpmi-d2a70455175fd164ebf8f6ac2f7574d1711f56d1.zip
Don't use the same variable names in generated code and in generating code, dammit
-rwxr-xr-xurpmf8
1 files changed, 4 insertions, 4 deletions
diff --git a/urpmf b/urpmf
index b6dbaa3d..253a3843 100755
--- a/urpmf
+++ b/urpmf
@@ -104,7 +104,7 @@ foreach (scalar(grep { defined $_ } values %params)) {
#- build the callback matching the expression.
my $callback = 'sub { my ($urpm, $pkg) = @_; '; #- it is a good start for a sub, no ;-)
-foreach (qw(
+foreach my $tag (qw(
buildhost
conflicts
description
@@ -122,11 +122,11 @@ foreach (qw(
summary
url
)) {
- if ($params{$_}) {
- my $fi = $_ eq 'media' ? '$urpm::currentmedia->{name}' : '$pkg->'.$_;
+ if ($params{$tag}) {
+ my $fi = $tag eq 'media' ? '$urpm::currentmedia->{name}' : '$pkg->'.$tag;
$callback .= '
foreach my $e ('.$fi.') {
- local $_ = $pkg->'.$full.'name."'.(!$quiet && ":$_").':$e";
+ local $_ = $pkg->'.$full.'name."'.(!$quiet && ":$tag").':$e";
'.$expr.' or next;
'.($uniq && 'exists $uniq{$_} and next; $uniq{$_} = undef;
').'print "$_\n";