Changeset 130 for devel/pb/bin/pb

Timestamp:

09/10/07 17:31:52 (6 years ago)

Author:

bruno

Message:

replace map by a loop
expand HOME var if any

File:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -421 +421 @@
     }
     my $basesrc = "";
-    $basesrc = map { $basesrc." ".basename($_) } split(/ /,$src);
+    foreach my $i (split(/ /,$src)) {
+        $basesrc =. " ".basename($_);
+    }
 
     print $LOG "Sources handled ($cmt): $src\n" if ($debug >= 0);
@@ -431 +433 @@
     } elsif ($cmt eq "VMs") {
         $tdir = dirname("$sshdir->{$ENV{'PBPROJ'}}");
+        # Expand a potential $ENV{'HOME'}
+        eval { $tdir =~ s/(\$ENV.+\})/$1/eeg };
     } elsif ($cmt eq "Packages") {
         $tdir = "$sshdir->{$ENV{'PBPROJ'}}/$ddir/$dver";