diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:45 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:45 +0000 |
commit | 5741eec64d02381676f5aab89ad23e2413eabbd0 (patch) | |
tree | c4302bbd1e654ff49195d0d05be5c12a8d55d4ba /perl-install/fsedit.pm | |
parent | 11647c80f3898d05df4e3deedc2f415c02632bbf (diff) | |
download | drakx-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.pm | 6 |
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}|; |