summaryrefslogtreecommitdiff
path: root/t/pragma
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-02 01:59:19 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-02 01:59:19 +0000
commit17d0df5d7cce81eb4ec807b2a4d86f34932206e7 (patch)
tree5e4faccf7434e8ce82fcdd7c70c41445d438f602 /t/pragma
parentdd58a1ab93727b8d05885223df798819f007995d (diff)
downloadperl-17d0df5d7cce81eb4ec807b2a4d86f34932206e7.tar.gz
ignore yet another known scalar leak
p4raw-id: //depot/perl@4613
Diffstat (limited to 't/pragma')
-rw-r--r--t/pragma/warn/regcomp3
1 files changed, 2 insertions, 1 deletions
diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 92b8208a65..1bdc4a9382 100644
--- a/t/pragma/warn/regcomp
+++ b/t/pragma/warn/regcomp
@@ -68,6 +68,7 @@ no warnings 'unsafe' ;
/[[.foo.]]/;
/[[=bar=]]/;
/[:zog:]/;
+BEGIN { $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3 }
/[[:zog:]]/;
EXPECT
Character class syntax [: :] belongs inside character classes at - line 4.
@@ -78,7 +79,7 @@ Character class syntax [= =] is reserved for future extensions at - line 6.
Character class syntax [. .] is reserved for future extensions at - line 8.
Character class syntax [= =] is reserved for future extensions at - line 9.
Character class syntax [: :] belongs inside character classes at - line 10.
-Character class [:zog:] unknown at - line 19.
+Character class [:zog:] unknown at - line 20.
########
# regcomp.c [S_regclass]
$_ = "";