diff options
| -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; |