diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/strict/subs')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/strict/subs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/lib/strict/subs b/gnu/usr.bin/perl/t/lib/strict/subs index 246be0ee9be..a83df015053 100644 --- a/gnu/usr.bin/perl/t/lib/strict/subs +++ b/gnu/usr.bin/perl/t/lib/strict/subs @@ -337,7 +337,7 @@ Execution of - aborted due to compilation errors. ######## -# ID 20020703.002 +# ID 20020703.002 (#10021) use strict; use warnings; my $abc = XYZ ? 1 : 0; @@ -467,3 +467,11 @@ my $v2 = $h->{+CONST_TYPO}; EXPECT Bareword "CONST_TYPO" not allowed while "strict subs" in use at - line 5. Execution of - aborted due to compilation errors. +######## +# NAME constant-folded barewords still trigger stricture +my $x = !BARE1; +use strict 'subs'; +my $y = !BARE2; +EXPECT +Bareword "BARE2" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. |