From b3a4ab8c98cdcc2134ab73141279f1f6f62ab815 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 26 Feb 2008 21:45:33 +0000 Subject: make it more clear --- urpm/sys.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'urpm') 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; -- cgit v1.2.1