Changeset 143 in ProjectBuilder

Timestamp:

Sep 13, 2007, 10:33:39 AM (18 years ago)

Author:

Bruno Cornec

Message:

Back to a list during backup of VM pkgs as '*' will remove everything on the target SSH machine

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -466 +466 @@
         pb_mkdir_p("$ENV{'PBBUILDDIR'}/$odir/$over");
         # Change pgben to make the next send2ssh happy
+        my $made = "";
         open(KEEP,"> $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") || die "Unable to write $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
         foreach my $p (split(/ +/,$src)) {
             my $j = basename($p);
             pb_system("scp -p -P $port $mac:\'$bdir/$p\' $ENV{'PBBUILDDIR'}/$odir/$over 2> /dev/null","Package recovery of $j in $tdir from $mac");
-        }
-        print KEEP "$odir/$over/*\n";
+            $made="$made $odir/$over/$p";
+        }
+        print KEEP "$made\n";
         close(KEEP);
         if (! $vmexist) {