This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct spelling of double free warning
authorFather Chrysostomos <sprout@cpan.org>
Tue, 22 Nov 2011 22:23:04 +0000 (14:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 05:29:34 +0000 (21:29 -0800)
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.

hv.c
pod/perldiag.pod

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);
index 725f77f..1f47ffe 100644 (file)
@@ -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