From e9325e12309437f4a67a523f8f84459c60a46ae6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 17:30:57 +0200
Subject: [PATCH] strict auf mandatory gestetzt, warnings auf TODO

---
 t/002goodperl.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.20.1