From d5e061896a35a49a50124949c2882ac9cbe94589 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Aug 1999 20:15:36 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 4ec01334c..5dfea7d79 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -87,8 +87,8 @@ sub shells($) {
 sub setPackages {
     my ($o) = @_;
 
-    eval { $o->{packages} = pkgs::psUsingHdlist() };
-    $@ and $o->{packages} = pkgs::psUsingDirectory();
+    eval { $o->{packages} = pkgs::psUsingHdlist() }  if $o->{method} ne "nfs";
+           $o->{packages} = pkgs::psUsingDirectory() if $o->{method} eq "nfs" || $@;
     pkgs::getDeps($o->{packages});
 
     $o->{compss} = pkgs::readCompss($o->{packages});
-- 
cgit v1.2.1