perldiag: Remove ‘in %s’ from bizarre copy msg

so that splain can find the message even when there is no op
mentioned.

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 5944ca0..5ea3fa2 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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