perldiag: Retitle ‘Cannot copy’

Without the ‘in %s’ it covers both forms of the error message.

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 4f65deb..02366e3 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -587,7 +587,7 @@ in it, then tried to access that symbol via conventional Perl syntax.
 The access triggers Perl to autovivify that typeglob, but it there is
 no legal conversion from that type of reference to a typeglob.
 
-=item Cannot copy to %s in %s
+=item Cannot copy to %s
 
 (P) Perl detected an attempt to copy a value to an internal type that cannot
 be directly assigned to.

diff --git a/sv.c b/sv.c
index cf29ffa..dec1794 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4097,6 +4097,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
     } else if (dtype == SVt_PVAV || dtype == SVt_PVHV) {
        const char * const type = sv_reftype(dstr,0);
        if (PL_op)
+           /* diag_listed_as: Cannot copy to %s */
            Perl_croak(aTHX_ "Cannot copy to %s in %s", type, OP_DESC(PL_op));
        else
            Perl_croak(aTHX_ "Cannot copy to %s", type);

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 50aa996..a2e6e06 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -366,7 +366,6 @@ Bad symbol for %s
 bad top format reference
 Bizarre copy of %s
 Bizarre SvTYPE [%d]
-Cannot copy to %s
 Can't call method "%s" %s
 Can't coerce readonly %s to string
 Can't coerce readonly %s to string in %s