Add an untested warning variant.
Rafael Garcia-Suarez [Wed, 24 Apr 2002 21:12:40 +0000 (21:12 +0000)]
p4raw-id: //depot/perl@16148

t/lib/warnings/op

index 9b20a8c..387e620 100644 (file)
@@ -130,10 +130,13 @@ __END__
 use warnings 'misc' ;
 my $x ;
 my $x ;
+my $y = my $y ;
 no warnings 'misc' ;
 my $x ;
+my $y ;
 EXPECT
 "my" variable $x masks earlier declaration in same scope at - line 4.
+"my" variable $y masks earlier declaration in same statement at - line 5.
 ########
 # op.c
 use warnings 'closure' ;