diff options
| -rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 3ad21d605..ea37a7123 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -503,7 +503,7 @@ sub setupFB { sub hdInstallPath() { my $tail = first(readlink("/tmp/image") =~ m|^/tmp/hdimage/(.*)|); my $head = first(readlink("/tmp/hdimage") =~ m|$::o->{prefix}(.*)|); - $head && $tail && "$head/$tail"; + $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail"); } sub install_urpmi { |