diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-02-05 00:13:08 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-02-05 00:13:08 +0000 |
| commit | 2bd168e2020e83ddb5d0b507120c08fb72117433 (patch) | |
| tree | 96e223387db880b21a180892738771321cd4ea9c | |
| parent | 8e5f66904ddccdd9e814465548284a85b68fdec8 (diff) | |
| download | perl-2bd168e2020e83ddb5d0b507120c08fb72117433.tar.gz | |
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.
p4raw-id: //depot/perl@30124
| -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' ; |