Correct spelling of double free warning

The perldiag entry said ‘nonexistent’, which is correct.  hv.c said
‘non-existent’, which is, well, questionable.  They should be the
same, so I corrected hv.c.  I also added the %s%s to the end in
perldiag.

diff --git a/hv.c b/hv.c
index 2ee24b4..4920af3 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2645,7 +2645,7 @@ S_unshare_hek_or_pvn(pTHX_ const HEK *hek, const char *str, I32 len, U32 hash)
 
     if (!entry)
        Perl_ck_warner_d(aTHX_ packWARN(WARN_INTERNAL),
-                        "Attempt to free non-existent shared string '%s'%s"
+                        "Attempt to free nonexistent shared string '%s'%s"
                         pTHX__FORMAT,
                         hek ? HEK_KEY(hek) : str,
                         ((k_flags & HVhek_UTF8) ? " (utf8)" : "") pTHX__VALUE);

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 725f77f..1f47ffe 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -291,7 +291,7 @@ declared readonly from a restricted hash.
 that will be garbage collected on exit.  An SV was discovered to be
 outside any of those arenas.
 
-=item Attempt to free nonexistent shared string
+=item Attempt to free nonexistent shared string '%s'%s
 
 (S internal) Perl maintains a reference-counted internal table of
 strings to optimize the storage and access of hash keys and other