podcheck.t: Was always giving failure under -regen
authorKarl Williamson <public@khwilliamson.com>
Thu, 22 Nov 2012 15:48:59 +0000 (08:48 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 22 Nov 2012 16:15:39 +0000 (09:15 -0700)
The tests added in commit da33abaf8bbfaee9e713ac54f3355186650df952
should be skipped under -regen.  No tests should be run under -regen.

t/porting/podcheck.t

index 4cea599..f7e75cb 100644 (file)
@@ -1847,7 +1847,9 @@ foreach my $filename (@files) {
     }
 }
 
-if (! ok (keys %known_problems == 0, "The known problems data base includes no references to non-existent files")) {
+if (! $regen
+    && ! ok (keys %known_problems == 0, "The known problems data base includes no references to non-existent files"))
+{
     note("The following files were not found: "
          . join ", ", keys %known_problems);
     note("They will automatically be removed from the db the next time");