From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 9 Aug 1998 14:35:33 +0000 (+0000)
Subject: tweak warning test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4050d2591f230e8d00bb5370c5549e7398a5d99;p=p5sagit%2Fp5-mst-13.2.git

tweak warning test

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

diff --git a/t/pragma/warn-toke b/t/pragma/warn-toke
index 254b1e4..6cc4a50 100644
--- a/t/pragma/warn-toke
+++ b/t/pragma/warn-toke
@@ -149,6 +149,10 @@ EXPECT
 Semicolon seems to be missing at - line 3.
 ########
 # toke.c
+BEGIN {
+    # Scalars leaked: due to syntax errors
+    $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
+}
 use warning 'syntax' ;
 my $a =+ 2 ;
 $a =- 2 ;
@@ -161,19 +165,19 @@ $a =| 2 ;
 $a =< 2 ;
 $a =/ 2 ;
 EXPECT
-Reversed += operator at - line 3.
-Reversed -= operator at - line 4.
-Reversed *= operator at - line 5.
-Reversed %= operator at - line 6.
-Reversed &= operator at - line 7.
-Reversed .= operator at - line 8.
-syntax error at - line 8, near "=."
-Reversed ^= operator at - line 9.
-syntax error at - line 9, near "=^"
-Reversed |= operator at - line 10.
-syntax error at - line 10, near "=|"
-Reversed <= operator at - line 11.
-Unterminated <> operator at - line 11.
+Reversed += operator at - line 7.
+Reversed -= operator at - line 8.
+Reversed *= operator at - line 9.
+Reversed %= operator at - line 10.
+Reversed &= operator at - line 11.
+Reversed .= operator at - line 12.
+syntax error at - line 12, near "=."
+Reversed ^= operator at - line 13.
+syntax error at - line 13, near "=^"
+Reversed |= operator at - line 14.
+syntax error at - line 14, near "=|"
+Reversed <= operator at - line 15.
+Unterminated <> operator at - line 15.
 ########
 # toke.c
 use warning 'syntax' ;