perldiag: Document ‘SWASHNEW didn't return an HV ref’

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 0fab97e..d2a1471 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -4940,6 +4940,11 @@ assignment or as a subroutine argument for example).
 (P) Perl tried to force the upgrade of an SV to a type which was actually
 inferior to its current type.
 
+=item SWASHNEW didn't return an HV ref
+
+(P) Something went wrong internally when Perl was trying to look up
+Unicode characters.
+
 =item Switch (?(condition)... contains too many branches in regex; marked by 
 <-- HERE in m/%s/
 

diff --git a/t/porting/diag.t b/t/porting/diag.t
index d317744..071ea83 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -553,7 +553,6 @@ socketpair not implemented!
 Starting Full Screen process with flag=%d, mytype=%d
 Starting PM process with flag=%d, mytype=%d
 sv_2iv assumed (U_V(fabs((double)SvNVX(sv))) < (UV)IV_MAX) but SvNVX(sv)=%f U_V is 0x%x, IV_MAX is 0x%x
-SWASHNEW didn't return an HV ref
 switching effective gid is not implemented
 switching effective uid is not implemented
 System V IPC is not implemented on this machine