summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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 {