diff options
| -rw-r--r-- | lib/strict.t | 11 | ||||
| -rw-r--r-- | t/lib/strict/subs | 15 |
2 files changed, 22 insertions, 4 deletions
diff --git a/lib/strict.t b/lib/strict.t index b5911b3708..16dcbec5eb 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -84,17 +84,20 @@ 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)){ - print STDERR "PROG: $switch\n$prog\n"; - print STDERR "EXPECTED:\n$expected\n"; - print STDERR "GOT:\n$results\n"; + if (! $TODO) { + print STDERR "PROG: $switch\n$prog\n"; + print STDERR "EXPECTED:\n$expected\n"; + print STDERR "GOT:\n$results\n"; + } print "not "; } - print "ok " . ++$i . "\n"; + print "ok " . ++$i . ($TODO ? " # TODO" : "") . "\n"; foreach (@temps) { unlink $_ if $_ } } diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 20a8afa80e..2c9aa87372 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -393,3 +393,18 @@ 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. |