Changeset 89 for devel/pb/bin/pb


Ignore:
Timestamp:
Sep 3, 2007, 4:47:47 PM (12 years ago)
Author:
bruno
Message:

Better interface for pb_get functions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r88 r89  
    261261            close(PKG);
    262262        }
    263         my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     263        my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
    264264        $pkg = { } if (not defined $pkg);
    265265        if ((not defined $pkg->{$pbpkg}) || ($pkg->{$pbpkg} ne "$pbver-$pbtag")) {
     
    287287
    288288    # Get content saved in cms2build
    289     my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     289    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
    290290    $pkg = { } if (not defined $pkg);
    291291
     
    348348
    349349    # Get content saved in cms2build
    350     my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     350    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
    351351    $pkg = { } if (not defined $pkg);
    352352
     
    361361        push @src, $src;
    362362    }
    363     my $pt = pb_conf_get("sshhost", "sshlogin", "sshdir");
     363    my ($pt) = pb_conf_get("sshhost", "sshlogin", "sshdir");
    364364    my ($sshhost,$sshlogin,$sshdir) = @$pt;
    365365    my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}";
    366366    my $dir = "$sshdir->{$ENV{'PBPROJ'}}/src";
    367     pb_system("ssh -q $mac \"mkdir -p $dir","Preparing $dir on $mac");
     367    pb_system("ssh -q $mac \"mkdir -p $dir\"","Preparing $dir on $mac");
    368368    pb_system("scp -p ".join(' ',@src)." $mac:$dir","Source delivery in $dir on $mac");
    369369}
     
    380380
    381381    # Get content saved in cms2build
    382     my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     382    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
    383383    $pkg = { } if (not defined $pkg);
    384384
Note: See TracChangeset for help on using the changeset viewer.