From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 9 Mar 1999 02:47:36 +0000 (+0000)
Subject: adjust testsuite for change#3067
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c17f625523fe31dcefb5b6c09a3c176ed0875fc;p=p5sagit%2Fp5-mst-13.2.git

adjust testsuite for change#3067

p4raw-link: @3067 on //depot/perl: 39ab52836386b91d2e2c323dd305cf42e6be3133

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

diff --git a/t/pragma/warn/1global b/t/pragma/warn/1global
index dca47e9..836b7f5 100644
--- a/t/pragma/warn/1global
+++ b/t/pragma/warn/1global
@@ -13,12 +13,14 @@ EXPECT
 $a =+ 3 ;
 EXPECT
 Reversed += operator at - line 3.
+Name "main::a" used only once: possible typo at - line 3.
 ########
 #! perl -w
 # warnable code, warnings enabled via #! line
 $a =+ 3 ;
 EXPECT
 Reversed += operator at - line 3.
+Name "main::a" used only once: possible typo at - line 3.
 ########
 
 # warnable code, warnings enabled via compile time $^W
@@ -26,6 +28,7 @@ BEGIN { $^W = 1 }
 $a =+ 3 ;
 EXPECT
 Reversed += operator at - line 4.
+Name "main::a" used only once: possible typo at - line 4.
 ########
 
 # compile-time warnable code, warnings enabled via runtime $^W