diff options
| -rw-r--r-- | t/001compile.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/t/001compile.t b/t/001compile.t index 78c1ab477..c297241df 100644 --- a/t/001compile.t +++ b/t/001compile.t @@ -45,7 +45,7 @@ use strict; # First now we test the scripts my @testitems = @Support::Files::testitems; -my %warnings; +#my %warnings; my $verbose = $::ENV{TEST_VERBOSE}; my $perlapp = $^X; @@ -63,8 +63,8 @@ foreach my $file (@testitems) { my $loginfo=`$command`; #print '@@'.$loginfo.'##'; if ($loginfo =~ /syntax ok$/im) { - $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg); - if ($1) { +# $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg); + if ($loginfo ne "$file syntax OK\n") { if ($verbose) { print STDERR $loginfo; } ok(0,$file."--WARNING"); } else { @@ -84,3 +84,9 @@ use_ok('RelationSet'); # 55 + + + + + + |