Changeset 1180 in ProjectBuilder

Timestamp:

Feb 11, 2011, 8:35:02 PM (13 years ago)

Author:

Bruno Cornec

Message:

remove some undefined cases not tested

File:

• devel/pb/lib/ProjectBuilder/Filter.pm (modified) (3 diffs)

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -172 +172 @@
             pb_log(3,"DEBUG filtering PBPATCHSRC\n");
             my $i = 0;
-            foreach my $p (split(/,/,$pb->{'patches'}->{$pb->{'tuple'}})) {
-                print DEST "Patch$i:         ".basename($p).".gz\n";
-                $i++;
+            if (defined $pb->{'patches'}->{$pb->{'tuple'}}) {
+                foreach my $p (split(/,/,$pb->{'patches'}->{$pb->{'tuple'}})) {
+                    print DEST "Patch$i:         ".basename($p).".gz\n";
+                    $i++;
+                }
             }
             $tmp = "";
@@ -180 +182 @@
             pb_log(3,"DEBUG filtering PBMULTISRC\n");
             my $i = 1;
-            foreach my $p (split(/,/,$pb->{'sources'}->{$pb->{'tuple'}})) {
-                print DEST "Source$i:         ".basename($p)."\n";
-                $i++;
+            if (defined $pb->{'patches'}->{$pb->{'tuple'}}) {
+                foreach my $p (split(/,/,$pb->{'sources'}->{$pb->{'tuple'}})) {
+                    print DEST "Source$i:         ".basename($p)."\n";
+                    $i++;
+                }
             }
             $tmp = "";
@@ -188 +192 @@
             pb_log(3,"DEBUG filtering PBPATCHCMD\n");
             my $i = 0;
-            foreach my $p (split(/,/,$pb->{'patches'}->{$pb->{'tuple'}})) {
-                print DEST "%patch$i -p1\n";
-                $i++;
+            if (defined $pb->{'patches'}->{$pb->{'tuple'}}) {
+                foreach my $p (split(/,/,$pb->{'patches'}->{$pb->{'tuple'}})) {
+                    print DEST "%patch$i -p1\n";
+                    $i++;
+                }
             }
             print DEST "\n";