diff options
author | David Mitchell <davem@iabyn.com> | 2009-08-11 22:28:00 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-08-11 22:28:00 +0100 |
commit | 384dc2341d61661c6296a03c8fcee78bf53c3277 (patch) | |
tree | d20807c433feab22c9bc05c586a311e4a62ed733 | |
parent | 749f7a534854ed11754686d0d50829841e637c1b (diff) | |
download | perl-384dc2341d61661c6296a03c8fcee78bf53c3277.tar.gz |
Revert "Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword"
This reverts commit ace56ae50476eeb045e2f78e4b9550922f258fde.
(follow-on from 984f9f6647)
-rw-r--r-- | lib/strict.t | 11 | ||||
-rw-r--r-- | t/lib/strict/subs | 15 |
2 files changed, 4 insertions, 22 deletions
diff --git a/lib/strict.t b/lib/strict.t index bfe6b636c5..f62b58d7bf 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -83,20 +83,17 @@ for (@prgs){ $expected =~ s|(\./)?abc\.pm|:abc.pm|g if $^O eq 'MacOS'; $expected =~ s|./abc|:abc|g if $^O eq 'MacOS'; my $prefix = ($results =~ s/^PREFIX\n//) ; - my $TODO = $prog =~ m/^#\s*TODO:/; if ( $results =~ s/^SKIPPED\n//) { print "$results\n" ; } elsif (($prefix and $results !~ /^\Q$expected/) or (!$prefix and $results ne $expected)){ - if (! $TODO) { - print STDERR "PROG: $switch\n$prog\n"; - print STDERR "EXPECTED:\n$expected\n"; - print STDERR "GOT:\n$results\n"; - } + print STDERR "PROG: $switch\n$prog\n"; + print STDERR "EXPECTED:\n$expected\n"; + print STDERR "GOT:\n$results\n"; print "not "; } - print "ok " . ++$i . ($TODO ? " # TODO" : "") . "\n"; + print "ok " . ++$i . "\n"; foreach (@temps) { unlink $_ if $_ } } diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 2c9aa87372..20a8afa80e 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -393,18 +393,3 @@ my @a;my $x=$a[FOO]; EXPECT Bareword "FOO" not allowed while "strict subs" in use at - line 2. Execution of - aborted due to compilation errors. -######## -# TODO: [perl #53806] No complain about bareword -use strict 'subs'; -print FOO . "\n"; -EXPECT -Bareword "FOO" not allowed while "strict subs" in use at - line 3. -Execution of - aborted due to compilation errors. -######## -# TODO: [perl #53806] No complain about bareword -use strict 'subs'; -$ENV{PATH} = ""; -system(FOO . "\n"); -EXPECT -Bareword "FOO" not allowed while "strict subs" in use at - line 4. -Execution of - aborted due to compilation errors. |