summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-05 13:46:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-05 13:46:57 +0000
commit8f92840e9e50102c5aad4eaf5201afb632e4ec71 (patch)
treeea2a7e35259f9ff8829a1c438da99d3ba731d5c5 /perl-install/pkgs.pm
parent553fd81b363be3dcfdea8e73f7f4969da0adebdb (diff)
downloaddrakx-backup-do-not-use-8f92840e9e50102c5aad4eaf5201afb632e4ec71.tar
drakx-backup-do-not-use-8f92840e9e50102c5aad4eaf5201afb632e4ec71.tar.gz
drakx-backup-do-not-use-8f92840e9e50102c5aad4eaf5201afb632e4ec71.tar.bz2
drakx-backup-do-not-use-8f92840e9e50102c5aad4eaf5201afb632e4ec71.tar.xz
drakx-backup-do-not-use-8f92840e9e50102c5aad4eaf5201afb632e4ec71.zip
replace $l[$#l] with $l[-1]
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f787c60c7..3f35f9cff 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -458,7 +458,7 @@ sub read_rpmsrate {
@l = grep { $_->[0] < length $indent } @l;
- my @m = @l ? @{$l[$#l][1]} : ();
+ my @m = @l ? @{$l[-1][1]} : ();
my ($t, $flag, @l2);
while ($data =~
/^((
@@ -515,7 +515,7 @@ sub read_rpmsrate {
}
push @l, @l2;
} else {
- push @l, [ $l2[0][0], $l2[$#l2][1] ];
+ push @l, [ $l2[0][0], $l2[-1][1] ];
}
}
$fatal_error and die "$fatal_error fatal errors in rpmsrate";