diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-26 21:45:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-26 21:45:33 +0000 |
| commit | b3a4ab8c98cdcc2134ab73141279f1f6f62ab815 (patch) | |
| tree | e5d44a532dea17f6c092c2f9c4af75c4c75ec27f /urpm/sys.pm | |
| parent | 1eadf2538df62a9a2b476b2734d4dac8c238b42d (diff) | |
| download | urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.gz urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.bz2 urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.tar.xz urpmi-b3a4ab8c98cdcc2134ab73141279f1f6f62ab815.zip | |
make it more clear
Diffstat (limited to 'urpm/sys.pm')
| -rw-r--r-- | urpm/sys.pm | 8 |
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; |