Changeset 143 for devel/pb/bin/pb


Ignore:
Timestamp:
Sep 13, 2007, 10:33:39 AM (12 years ago)
Author:
bruno
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r142 r143  
    466466        pb_mkdir_p("$ENV{'PBBUILDDIR'}/$odir/$over");
    467467        # Change pgben to make the next send2ssh happy
     468        my $made = "";
    468469        open(KEEP,"> $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag") || die "Unable to write $ENV{'PBBUILDDIR'}/pbgen-$pbprojver-$pbprojtag";
    469470        foreach my $p (split(/ +/,$src)) {
    470471            my $j = basename($p);
    471472            pb_system("scp -p -P $port $mac:\'$bdir/$p\' $ENV{'PBBUILDDIR'}/$odir/$over 2> /dev/null","Package recovery of $j in $tdir from $mac");
    472         }
    473         print KEEP "$odir/$over/*\n";
     473            $made="$made $odir/$over/$p";
     474        }
     475        print KEEP "$made\n";
    474476        close(KEEP);
    475477        if (! $vmexist) {
Note: See TracChangeset for help on using the changeset viewer.