From 043c750c4e1a47be8effe0df70ccd1714aff0460 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 27 Dec 2011 00:53:21 -0800 Subject: [PATCH] =?utf8?q?perldiag:=20Remove=20=E2=80=98in=20%s=E2=80=99?= =?utf8?q?=20from=20bizarre=20copy=20msg?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit so that splain can find the message even when there is no op mentioned. --- pod/perldiag.pod | 2 +- sv.c | 1 + t/porting/diag.t | 1 - 3 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 5944ca0..5ea3fa2 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -553,7 +553,7 @@ itself in a future release. (W portable) Using bit vector sizes larger than 32 is non-portable. -=item Bizarre copy of %s in %s +=item Bizarre copy of %s (P) Perl detected an attempt to copy an internal value that is not copiable. diff --git a/sv.c b/sv.c index d94cf2c..e972476 100644 --- a/sv.c +++ b/sv.c @@ -4047,6 +4047,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags) { const char * const type = sv_reftype(sstr,0); if (PL_op) + /* diag_listed_as: Bizarre copy of %s */ Perl_croak(aTHX_ "Bizarre copy of %s in %s", type, OP_DESC(PL_op)); else Perl_croak(aTHX_ "Bizarre copy of %s", type); diff --git a/t/porting/diag.t b/t/porting/diag.t index 8ea3e45..ab61a20 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -372,7 +372,6 @@ Malformed UTF-8 character (unexpected non-continuation byte 0x%x, immediately af %s (%d) does not match %s (%d), %s (%d) smaller than %s (%d), bad top format reference -Bizarre copy of %s Bizarre SvTYPE [%d] Can't call method "%s" %s Can't coerce readonly %s to string -- 2.7.4