Changeset 89 in ProjectBuilder for devel/pb/bin

Timestamp:

Sep 3, 2007, 4:47:47 PM (18 years ago)

Author:

Bruno Cornec

Message:

Better interface for pb_get functions

File:

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

devel/pb/bin/pb

@@ -261 +261 @@
             close(PKG);
         }
-        my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
+        my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
         $pkg = { } if (not defined $pkg);
         if ((not defined $pkg->{$pbpkg}) || ($pkg->{$pbpkg} ne "$pbver-$pbtag")) {
@@ -287 +287 @@
 
     # Get content saved in cms2build
-    my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
+    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     $pkg = { } if (not defined $pkg);
 
@@ -348 +348 @@
 
     # Get content saved in cms2build
-    my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
+    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     $pkg = { } if (not defined $pkg);
 
@@ -361 +361 @@
         push @src, $src;
     }
-    my $pt = pb_conf_get("sshhost", "sshlogin", "sshdir");
+    my ($pt) = pb_conf_get("sshhost", "sshlogin", "sshdir");
     my ($sshhost,$sshlogin,$sshdir) = @$pt;
     my $mac = "$sshlogin->{$ENV{'PBPROJ'}}\@$sshhost->{$ENV{'PBPROJ'}}";
     my $dir = "$sshdir->{$ENV{'PBPROJ'}}/src";
-    pb_system("ssh -q $mac \"mkdir -p $dir","Preparing $dir on $mac");
+    pb_system("ssh -q $mac \"mkdir -p $dir\"","Preparing $dir on $mac");
     pb_system("scp -p ".join(' ',@src)." $mac:$dir","Source delivery in $dir on $mac");
 }
@@ -380 +380 @@
 
     # Get content saved in cms2build
-    my $pkg = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
+    my ($pkg) = pb_conf_read("$ENV{'PBDESTDIR'}/$pbprojver-$pbprojtag.pb","pbpkg");
     $pkg = { } if (not defined $pkg);