Changeset 113 in ProjectBuilder for devel/pb/bin

Timestamp:

Sep 6, 2007, 8:16:20 PM (18 years ago)

Author:

Bruno Cornec

Message:

Fix some typos

File:

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

devel/pb/bin/pb

@@ -160 +160 @@
 
         # computes in which dir we have to work
-        my $dir = $defpkgdir{$pbpkg};
-        $dir = $extpkgdir{$pbpkg} if (not defined $dir);
+        my $dir = $defpkgdir->{$pbpkg};
+        $dir = $extpkgdir->{$pbpkg} if (not defined $dir);
         print "dir: $dir\n";
         pb_cms_export($cms,$pbdatecvs,"$ENV{'PBROOT'}/$dir",$dest);
@@ -232 +232 @@
                     pb_filter_file_pb("$ENV{'PBROOT'}/$f",$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$dtype,$pbsuf,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate,$defpkgdir,$extpkgdir);
                 }
-                if (defined $filteredfiles{$pbpkg}) {
-                    foreach my $f (split(/,/,$filteredfiles{$pbpkg})) {
+                if (defined $filteredfiles->{$pbpkg}) {
+                    foreach my $f (split(/,/,$filteredfiles->{$pbpkg})) {
                         pb_filter_file("$ENV{'PBROOT'}/$dir/$f",$ptr,"$dest/$f",$pbsuf,$pbpkg,$pbver,$pbtag,$pbrev,$pbdate);
                     }
@@ -263 +263 @@
 
         # Keep track of what is generated for default
-        open(LAST,"> $pbrc{$ENV{'PBPROJ'}}") || die "Unable to create $pbrc{$ENV{'PBPROJ'}}";
+        open(LAST,"> $pbrc->{$ENV{'PBPROJ'}}") || die "Unable to create $pbrc->{$ENV{'PBPROJ'}}";
         print LAST "pbroot $pbprojver-$pbprojtag = $ENV{'PBROOT'}\n";
         close(LAST);