summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-26 21:45:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-26 21:45:33 +0000
commitb3a4ab8c98cdcc2134ab73141279f1f6f62ab815 (patch)
treee5d44a532dea17f6c092c2f9c4af75c4c75ec27f
parent1eadf2538df62a9a2b476b2734d4dac8c238b42d (diff)
downloadurpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar
urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.gz
urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.bz2
urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.xz
urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.zip
make it more clear
-rw-r--r--urpm/sys.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm
index f0359521..2d233402 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -57,10 +57,10 @@ sub find_mntpoints {
#- check the possible mount point.
my @paths = split '/', $dir;
my $pdir = '';
- local $_;
- while (defined ($_ = shift @paths)) {
- length($_) or next;
- $pdir .= "/$_";
+ while (@paths) {
+ my $path = shift @paths;
+ length($path) or next;
+ $pdir .= "/$path";
$pdir =~ s,/+,/,g; $pdir =~ s,/$,,;
if (exists($infos->{$pdir})) {
push @mntpoints, $pdir;