summaryrefslogtreecommitdiffstats
path: root/perl-install/loopback.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-01 12:24:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-01 12:24:04 +0000
commit5202bfc57db363389dbb777676b5cc180059fe4a (patch)
tree9453ce7aed8261d839a06ec65801e5d004915633 /perl-install/loopback.pm
parent587c9a47bf5739a4927c725f9bc0db818711cb2d (diff)
downloaddrakx-5202bfc57db363389dbb777676b5cc180059fe4a.tar
drakx-5202bfc57db363389dbb777676b5cc180059fe4a.tar.gz
drakx-5202bfc57db363389dbb777676b5cc180059fe4a.tar.bz2
drakx-5202bfc57db363389dbb777676b5cc180059fe4a.tar.xz
drakx-5202bfc57db363389dbb777676b5cc180059fe4a.zip
(prepare_boot): use $::prefix
Diffstat (limited to 'perl-install/loopback.pm')
-rw-r--r--perl-install/loopback.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 24c519ecb..817038e36 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -106,11 +106,10 @@ sub verifFile {
}
sub prepare_boot {
- my ($prefix) = @_;
- my $r = readlink "$prefix/boot";
- unlink "$prefix/boot";
- mkdir "$prefix/boot", 0755;
- [$r, $prefix];
+ my $r = readlink "$::prefix/boot";
+ unlink "$::prefix/boot";
+ mkdir "$::prefix/boot", 0755;
+ [$r, $::prefix];
}
sub save_boot {