memcpy has n o in it, as pinted ut by Sarathy.

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 7fatal

diff --git a/t/pragma/warn/7fatal b/t/pragma/warn/7fatal
index 798fa00..382a845 100644 (file)
--- a/t/pragma/warn/7fatal
+++ b/t/pragma/warn/7fatal
@@ -18,12 +18,12 @@ Reversed += operator at - line 8.
 use warnings FATAL => 'all' ;
 {
     no warnings ;
-    1 if $a EQ $b ;
+    my $a =+ 1 ;
 }
-1 if $a EQ $b ; 
+my $a =+ 1 ;
 print STDERR "The End.\n" ;
 EXPECT
-Use of EQ is deprecated at - line 8.
+Reversed += operator at - line 8.
 ########
 
 # Check runtime scope of pragma