diff options
Diffstat (limited to 't/lib/strict')
-rw-r--r-- | t/lib/strict/subs | 8 | ||||
-rw-r--r-- | t/lib/strict/vars | 8 |
2 files changed, 7 insertions, 9 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index e3e401408f..5fd0b03de7 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -378,8 +378,8 @@ Execution of - aborted due to compilation errors. use strict 'subs'; qr/(?{my $x=foo})/; EXPECT -Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1. -Compilation failed in regexp at - line 3. +Bareword "foo" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. ######## # Regexp compilation errors weren't UTF-8 clean use strict 'subs'; @@ -387,8 +387,8 @@ use utf8; use open qw( :utf8 :std ); qr/(?{my $x=fòò})/; EXPECT -Bareword "fòò" not allowed while "strict subs" in use at (re_eval 1) line 1. -Compilation failed in regexp at - line 5. +Bareword "fòò" not allowed while "strict subs" in use at - line 5. +Execution of - aborted due to compilation errors. ######## # [perl #27628] strict 'subs' didn't warn on bareword array index use strict 'subs'; diff --git a/t/lib/strict/vars b/t/lib/strict/vars index 6e3c1e90f4..c6cb067939 100644 --- a/t/lib/strict/vars +++ b/t/lib/strict/vars @@ -517,11 +517,9 @@ Execution of - aborted due to compilation errors. # [perl #26910] hints not propagated into (?{...}) use strict 'vars'; qr/(?{$foo++})/; -# XXX temp expect duplicate errors EXPECT Global symbol "$foo" requires explicit package name at - line 3. -Global symbol "$foo" requires explicit package name at (re_eval 1) line 1. -Compilation failed in regexp at - line 3. +Execution of - aborted due to compilation errors. ######## # Regex compilation errors weren't UTF-8 clean. use strict 'vars'; @@ -529,8 +527,8 @@ use utf8; use open qw( :utf8 :std ); qr/(?{$fòò++})/; EXPECT -Global symbol "$fòò" requires explicit package name at (re_eval 1) line 1. -Compilation failed in regexp at - line 5. +Global symbol "$fòò" requires explicit package name at - line 5. +Execution of - aborted due to compilation errors. ######## # [perl #73712] 'Variable is not imported' should be suppressible $dweck; |