Change 33306 by [EMAIL PROTECTED] on 2008/02/14 10:09:33

        Fix linker error introduced by #33305

Affected files ...

... //depot/perl/op.c#986 edit

Differences ...

==== //depot/perl/op.c#986 (text) ====
Index: perl/op.c
--- perl/op.c#985~33305~        2008-02-14 00:25:29.000000000 -0800
+++ perl/op.c   2008-02-14 02:09:33.000000000 -0800
@@ -1075,7 +1075,7 @@
            no_bareword_allowed(o);
        else {
            if (ckWARN(WARN_VOID)) {
-               SV* msv = newSVpvf("a constant (%"SVf")", sv);
+               SV* msv = Perl_newSVpvf(aTHX_ "a constant (%"SVf")", sv);
                useless = SvPV_nolen(msv);
                if (o->op_private & OPpCONST_ARYBASE)
                    useless = NULL;
End of Patch.

Reply via email to