Fix a warnings test that was failing due to smart match dispatch changes
Rafael Garcia-Suarez [Tue, 17 Mar 2009 13:34:46 +0000 (14:34 +0100)]
t/lib/warnings/9uninit

index e0b186a..50db322 100644 (file)
@@ -1815,7 +1815,7 @@ Use of uninitialized value in addition (+) at - line 4.
 use warnings 'uninitialized';
 my $v;
 my $fn = sub {};
-$v = 1 + ($fn ~~ 1);
+$v = 1 + (1 ~~ $fn);
 EXPECT
 Use of uninitialized value in addition (+) at - line 4.
 ########