This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a warnings test that was failing due to smart match dispatch changes
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 17 Mar 2009 13:34:46 +0000 (14:34 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
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.
 ########