summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 70568a512..06779960b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -84,8 +84,10 @@ sub shells($) {
sub setPackages {
my ($o) = @_;
- eval { $o->{packages} = pkgs::psUsingHdlist() } if $o->{method} ne "nfs";
- $o->{packages} = pkgs::psUsingDirectory() if $o->{method} eq "nfs" || $@;
+ my $useHdlist = $o->{method} !~ /nfs|hd/;
+ eval { $o->{packages} = pkgs::psUsingHdlist() } if $useHdlist;
+ $o->{packages} = pkgs::psUsingDirectory() if !$useHdlist || $@;
+
pkgs::getDeps($o->{packages});
$o->{compss} = pkgs::readCompss($o->{packages});
@@ -106,7 +108,7 @@ sub addToBeDone(&$) {
sub getTimeZones {
local *F;
- open F, "cd /usr/share/zoneinfo && find [A-Z]* -type f |";
+ open F, "cd $::o->{prefix}/usr/share/zoneinfo && find [A-Z]* -type f |";
my @l = sort map { chop; $_ } <F>;
close F or die "cannot list the available zoneinfos";
@l;