From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 15:30:57 +0000 (+0200)
Subject: strict auf mandatory gestetzt, warnings auf TODO
X-Git-Tag: release-2.6.1beta1~155
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e9325e12309437f4a67a523f8f84459c60a46ae6;p=kivitendo-erp.git

strict auf mandatory gestetzt, warnings auf TODO
---

diff --git a/t/002goodperl.t b/t/002goodperl.t
index d70ad89fc..cc3971372 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -70,7 +70,10 @@ foreach my $file (@testitems) {
             if ($file_line1 =~ m#\s-$flags#) {
                 ok(1,"$file uses standard perl location and -$flags");
             } else {
+              TODO: {
+                local $TODO = q(warning isn't supported globally);
                 ok(0,"$file is MISSING -$flags --WARNING");
+              }
             }
         } else {
             ok(0,"$file uses non-standard perl location");
@@ -78,8 +81,6 @@ foreach my $file (@testitems) {
     }
 }
 
-TODO: {
-local $TODO = 'strict is not implemented thoroughly yet';
 foreach my $file (@testitems) {
     my $found_use_strict = 0;
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
@@ -101,6 +102,5 @@ foreach my $file (@testitems) {
         ok(0,"$file DOES NOT use strict --WARNING");
     }
 }
-}
 
 exit 0;