From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 2 Dec 1999 01:59:19 +0000 (+0000)
Subject: ignore yet another known scalar leak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17d0df5d7cce81eb4ec807b2a4d86f34932206e7;p=p5sagit%2Fp5-mst-13.2.git

ignore yet another known scalar leak

p4raw-id: //depot/perl@4613
---

diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 92b8208..1bdc4a9 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]
 $_ = "";