From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Mar 2000 06:02:26 +0000 (+0000)
Subject: avoid "scalars leaked" message in test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=032dc9daebeb4619e740142d7ab40110166b12c0;p=p5sagit%2Fp5-mst-13.2.git

avoid "scalars leaked" message in test

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

diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 5de01c6..5d0c291 100644
--- a/t/pragma/warn/regcomp
+++ b/t/pragma/warn/regcomp
@@ -54,6 +54,7 @@ EXPECT
 /a\m/: Unrecognized escape \m passed through at - line 4.
 ########
 # regcomp.c [S_regpposixcc S_checkposixcc]
+BEGIN { $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3 }
 use warnings 'regexp' ;
 $_ = "" ;
 /[:alpha:]/;
@@ -71,19 +72,18 @@ no warnings 'regexp' ;
 /[[:alpha:]]/;
 /[[.foo.]]/;
 /[[=bar=]]/;
-BEGIN { $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3 }
 /[[:zog:]]/;
 /[:zog:]/;
 EXPECT
-Character class syntax [: :] belongs inside character classes at - line 4.
-Character class syntax [. .] belongs inside character classes at - line 5.
-Character class syntax [. .] is reserved for future extensions at - line 5.
-Character class syntax [= =] belongs inside character classes at - line 6.
-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 11.
+Character class syntax [: :] belongs inside character classes at - line 5.
+Character class syntax [. .] belongs inside character classes at - line 6.
+Character class syntax [. .] is reserved for future extensions at - line 6.
+Character class syntax [= =] belongs inside character classes at - line 7.
+Character class syntax [= =] is reserved for future extensions at - line 7.
+Character class syntax [. .] is reserved for future extensions at - line 9.
+Character class syntax [= =] is reserved for future extensions at - line 10.
+Character class syntax [: :] belongs inside character classes at - line 11.
+Character class [:zog:] unknown at - line 12.
 ########
 # regcomp.c [S_regclass]
 $_ = "";