From 5741eec64d02381676f5aab89ad23e2413eabbd0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Aug 2002 11:31:45 +0000 Subject: get rid of some $prefix parameter passing (using $::prefix where needed instead) --- perl-install/fsedit.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 523a6afa8..311c04ece 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -339,11 +339,11 @@ sub is_one_big_fat { } sub file2part { - my ($prefix, $fstab, $file, $keep_simple_symlinks) = @_; + my ($fstab, $file, $keep_simple_symlinks) = @_; my $part; - $file = $keep_simple_symlinks ? common::expand_symlinks_but_simple("$prefix$file") : expand_symlinks("$prefix$file"); - unless ($file =~ s/^$prefix//) { + $file = $keep_simple_symlinks ? common::expand_symlinks_but_simple("$::prefix$file") : expand_symlinks("$::prefix$file"); + unless ($file =~ s/^$::prefix//) { my ($part) = grep { loopback::carryRootLoopback($_) } @$fstab or die; log::l("found $part->{mntpoint}"); $file =~ s|/initrd/loopfs|$part->{mntpoint}|; -- cgit v1.2.1