summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:45 +0000
commit5741eec64d02381676f5aab89ad23e2413eabbd0 (patch)
treec4302bbd1e654ff49195d0d05be5c12a8d55d4ba /perl-install/fsedit.pm
parent11647c80f3898d05df4e3deedc2f415c02632bbf (diff)
downloaddrakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.gz
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.bz2
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.tar.xz
drakx-5741eec64d02381676f5aab89ad23e2413eabbd0.zip
get rid of some $prefix parameter passing (using $::prefix where needed instead)
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm6
1 files changed, 3 insertions, 3 deletions
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}|;