Changeset 117


Ignore:
Timestamp:
Sep 7, 2007, 7:25:22 PM (12 years ago)
Author:
bruno
Message:

Better src printing

Location:
devel/pb
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r115 r117  
    405405            # $src = "$src $ENV{'PBDESTDIR'}/pbscript"
    406406        }
    407         print $LOG "$cmt: $src\n" if ($debug >= 0);
    408407        push @src, $src;
    409408    }
     409    $src = join(' ',@src);
     410    print $LOG "$cmt: $src\n" if ($debug >= 0);
    410411    my ($sshhost,$sshlogin,$sshdir,$sshport) = pb_conf_get($host,$login,$dir,$port);
    411412    my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}";
     
    421422    }
    422423    $port = $sshport->{$ENV{'PBPROJ'}};
    423     $src = join(' ',@src);
    424424    pb_system("ssh -q -p $port $mac \"mkdir -p $tdir ; cd $tdir ; rm -f $src\"","Preparing $tdir on $mac");
    425425    pb_system("scp -p -P $port $src $mac:$tdir","$cmt delivery in $tdir on $mac");
  • devel/pb/lib/ProjectBuilder/Base.pm

    r116 r117  
    189189
    190190print "$cmt... ";
    191 system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
     191#system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
     192system("$cmd");
    192193if ($? == -1) {
    193194    print "failed to execute ($cmd) : $!\n";
     
    208209my $file=shift;
    209210
    210 open(FILE,"$file") || die "Unable to open $file";
     211return if (not -f $file);
     212open(FILE,"$file");
    211213while (<FILE>) {
    212214    print $_;
Note: See TracChangeset for help on using the changeset viewer.