avoid "scalars leaked" message in test

p4raw-id: //depot/perl@5518

1 files changed, 10 insertions, 10 deletions

diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 5de01c67d7..5d0c291ea0 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]
 $_ = "";