dbupgrade .pl müssen nicht strict sein.
authorSven Schöling <s.schoeling@linet-services.de>
Mon, 19 Sep 2011 09:12:58 +0000 (11:12 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Mon, 19 Sep 2011 09:12:58 +0000 (11:12 +0200)
t/002goodperl.t

index 28b69a4..d80d9ee 100644 (file)
@@ -82,6 +82,8 @@ foreach my $file (@testitems) {
 }
 
 foreach my $file (@testitems) {
+    local $TODO;
+    $TODO = 'schema updates are not required to be strict now' if $file =~ m{^sql/Pg-upgrade2};
     my $found_use_strict = 0;
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
     next if (!$file); # skip null entries