Change 33544: [PATCH] Double warning with perl -we '\&$x'

[Rafael Garcia-Suarez]

Change 33544 by [EMAIL PROTECTED] on 2008/03/20 15:55:19

        Subject: [PATCH] Double warning with perl -we '\&$x'
        From: "Vincent Pit" <[EMAIL PROTECTED]>
        Date: Thu, 20 Mar 2008 12:06:47 +0100 (CET)
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/sv.c#1526 edit
... //depot/perl/t/lib/warnings/9uninit#21 edit

Differences ...

==== //depot/perl/sv.c#1526 (text) ====
Index: perl/sv.c
--- perl/sv.c#1525~33541~       2008-03-18 01:41:13.000000000 -0700
+++ perl/sv.c   2008-03-20 08:55:19.000000000 -0700
@@ -7910,7 +7910,7 @@
            LEAVE;
            if (!GvCVu(gv))
                Perl_croak(aTHX_ "Unable to create sub named \"%"SVf"\"",
-                          SVfARG(sv));
+                          SVfARG(SvOK(sv) ? sv : &PL_sv_no));
        }
        return GvCVu(gv);
     }

==== //depot/perl/t/lib/warnings/9uninit#21 (text) ====
Index: perl/t/lib/warnings/9uninit
--- perl/t/lib/warnings/9uninit#20~33342~       2008-02-21 16:07:15.000000000 
-0800
+++ perl/t/lib/warnings/9uninit 2008-03-20 08:55:19.000000000 -0700
@@ -1070,8 +1070,6 @@
 reset $g1;
 EXPECT
 Use of uninitialized value $m1 in subroutine dereference at - line 5.
-Use of uninitialized value $m1 in subroutine dereference at - line 5.
-Use of uninitialized value $g1 in subroutine dereference at - line 6.
 Use of uninitialized value $g1 in subroutine dereference at - line 6.
 Use of uninitialized value $m1 in splice at - line 9.
 Use of uninitialized value $g1 in splice at - line 9.
End of Patch.