diff options
| -rw-r--r-- | lib/warnings.t | 1 | ||||
| -rw-r--r-- | t/lib/warnings/7fatal | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index 55e2794c7b..d03b8c52c7 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -7,4 +7,5 @@ BEGIN { } our $pragma_name = "warnings"; +our $UTF8 = (${^OPEN} || "") =~ /:utf8/; require "../t/lib/common.pl"; diff --git a/t/lib/warnings/7fatal b/t/lib/warnings/7fatal index 1ad7658f74..dfbb7134ab 100644 --- a/t/lib/warnings/7fatal +++ b/t/lib/warnings/7fatal @@ -277,6 +277,7 @@ print STDERR "The End.\n" ; EXPECT Reversed += operator at - line 8. ######## +# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : '' use warnings 'void' ; @@ -294,6 +295,7 @@ EXPECT Useless use of time in void context at - line 4. Useless use of length in void context at - line 8. ######## +# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : '' use warnings ; @@ -394,6 +396,7 @@ EXPECT Useless use of length in void context at - line 4. The End. ######## +# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : '' use warnings NONFATAL => 'void', FATAL => 'void' ; |