Change 30124 by [EMAIL PROTECTED] on 2007/02/05 00:13:08
Use the new conditional TODOs to mark as TODO the warning tests
failing due to HEKs leaked by OPs for unthreaded perls tested with
a UTF-8 locale.
Affected files ...
... //depot/perl/lib/warnings.t#20 edit
... //depot/perl/t/lib/warnings/7fatal#5 edit
Differences ...
==== //depot/perl/lib/warnings.t#20 (text) ====
Index: perl/lib/warnings.t
--- perl/lib/warnings.t#19~26400~ 2005-12-19 08:26:15.000000000 -0800
+++ perl/lib/warnings.t 2007-02-04 16:13:08.000000000 -0800
@@ -7,4 +7,5 @@
}
our $pragma_name = "warnings";
+our $UTF8 = (${^OPEN} || "") =~ /:utf8/;
require "../t/lib/common.pl";
==== //depot/perl/t/lib/warnings/7fatal#5 (text) ====
Index: perl/t/lib/warnings/7fatal
--- perl/t/lib/warnings/7fatal#4~22741~ 2004-04-23 13:43:02.000000000 -0700
+++ perl/t/lib/warnings/7fatal 2007-02-04 16:13:08.000000000 -0800
@@ -277,6 +277,7 @@
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 @@
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 @@
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' ;
End of Patch.
