dbupgrade .pl müssen nicht strict sein.

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 28b69a4c549e9709f17cefb38a0e4c2aef5ea11d..d80d9eea31eae67840cbe2eda253cf1439dcb4ef 100644 (file)
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -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