In perl.git, the branch smartmatch has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6ac83b6344167664acd39ef656560e3f3bbc361c?hp=a4a197da798f1bea5e8df6e5eb339c1552371563>

- Log -----------------------------------------------------------------
commit 6ac83b6344167664acd39ef656560e3f3bbc361c
Author: Rafael Garcia-Suarez <[email protected]>
Date:   Tue Mar 17 14:34:46 2009 +0100

    Fix a warnings test that was failing due to smart match dispatch changes
-----------------------------------------------------------------------

Summary of changes:
 t/lib/warnings/9uninit |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index e0b186a..50db322 100644
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -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.
 ########

--
Perl5 Master Repository

Reply via email to