Changeset 131 in ProjectBuilder

Timestamp:

Sep 10, 2007, 6:27:03 PM (18 years ago)

Author:

Bruno Cornec

Message:

Still other fixes on VM

File:

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

devel/pb/bin/pb

@@ -421 +421 @@
     }
     my $basesrc = "";
-    foreach my $i (split(/ /,$src)) {
-        $basesrc =. " ".basename($_);
+    foreach my $i (split(/ +/,$src)) {
+        $basesrc .= " ".basename($i);
     }
 
@@ -451 +451 @@
         chomp($src);
         close(KEEP);
-        pb_system("scp -p -P $port $mac:$tdir/{".join(',',$src)."} $ENV{'PBBUILDDIR'}/$odir/$over","Package recovery of in $tdir from $mac");
+        $src =~ s/^ *//;
+        $src =~ s/ +/,/;
+        pb_system("scp -p -P $port $mac:$tdir/{$src} $ENV{'PBBUILDDIR'}/$odir/$over","Package recovery of in $tdir from $mac");
         pb_send2ssh("Packages","$odir"."_"."$over");
         pb_rm_rf($ENV{'PBBUILDDIR'}/$odir);