[perl.git] branch blead, updated. v5.13.5-18-g2163083

[Rafael Garcia-Suarez]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/21630838a66f778c0a320128e9a7db71d785f293?hp=d9f0b46418e111c5d35dd5f6e3196a145a545f97>

- Log -----------------------------------------------------------------
commit 21630838a66f778c0a320128e9a7db71d785f293
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Mon Sep 20 09:44:15 2010 +0200

    Don’t use PL_op without checking it first.
-----------------------------------------------------------------------

Summary of changes:
 doio.c |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/doio.c b/doio.c
index 2f660cc..526e1b5 100644
--- a/doio.c
+++ b/doio.c
@@ -1241,7 +1241,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
            else {
                assert((char *)result == tmps);
                Perl_ck_warner_d(aTHX_ packWARN(WARN_UTF8),
-                                "Wide character in %s", OP_DESC(PL_op));
+                                "Wide character in %s",
+                                  PL_op ? OP_DESC(PL_op) : "print"
+                               );
            }
        }
        /* To detect whether the process is about to overstep its

--
Perl5 Master Repository