fork() failure to create pseudo process sets errno=EAGAIN and returns

undef on windows (from Clinton Pierce <clintp@geeksalad.org>)

p4raw-id: //depot/perl@6093

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index fb68efae2f..5517355de0 100644
--- a/sv.c
+++ b/sv.c
@@ -3467,7 +3467,7 @@ Perl_sv_insert(pTHX_ SV *bigstr, STRLEN offset, STRLEN len, char *little, STRLEN
     if (!bigstr)
 	Perl_croak(aTHX_ "Can't modify non-existent substring");
     SvPV_force(bigstr, curlen);
-    SvPOK_only_UTF8(bigstr);
+    (void)SvPOK_only_UTF8(bigstr);
     if (offset + len > curlen) {
 	SvGROW(bigstr, offset+len+1);
 	Zero(SvPVX(bigstr)+curlen, offset+len-curlen, char);