Changeset 19 in ProjectBuilder for devel/pb/bin

Timestamp:

Jul 31, 2007, 2:07:14 AM (18 years ago)

Author:

Bruno Cornec

Message:

Lots of debug traces. Looking for a bug in AppConfig where for hash a key of 1 is added without defined value.
Except that, weems to work just fine (content to be checked)

File:

• devel/pb/bin/pb.pl (modified) (2 diffs)

devel/pb/bin/pb.pl

@@ -22 +22 @@
 
 use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles);
+%extpkgdir = ();
+%filteredfiles = ();
 use lib qw (lib);
 use common qw (env_init);
@@ -218 +220 @@
                             }
                         });
-            print "ffiles: ".Dumper(\@ffiles)."\n";
+            my $ptr;
             if (@ffiles) {
+                print "ffiles: ".Dumper(\@ffiles)."\n";
                 $config->file(@ffiles);
-                my $ptr = $config->get("filter");
+                $ptr = $config->get("filter");
                 print "f:".Dumper($ptr)."\n";
-
-                # Apply now all the filters on all the files concerned
-                # All files are relative to PBROOT
-                # destination dir depends on the type of file
-                if (defined $ptr) {
-                    foreach my $f (values %bfiles) {
-                        filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pkg,$dtype,$dsuf);
-                    }
-                    foreach my $f (keys %filteredfiles) {
-                        filter_file($f,$ptr,"$dest/$f",$pkg,$dtype,$dsuf);
-                    }
+            } else {
+                $ptr = { };
+            }
+
+            # Apply now all the filters on all the files concerned
+            # All files are relative to PBROOT
+            # destination dir depends on the type of file
+            if (defined $ptr) {
+                foreach my $f (values %bfiles) {
+                    filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pkg,$dtype,$dsuf);
+                }
+                foreach my $f (keys %filteredfiles) {
+                    filter_file($f,$ptr,"$dest/$f",$pkg,$dtype,$dsuf);
                 }
             }