Turn the "$# / $* is no longer supported" warnings into

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / 7fatal

diff --git a/t/lib/warnings/7fatal b/t/lib/warnings/7fatal
index 1ad7658..dfbb713 100644 (file)
--- 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' ;