Add missing newline to the "Unable to flush stdout" diagnostic

[perl5.git] / vutil.c

diff --git a/vutil.c b/vutil.c
index 610c03c..34c0b55 100644 (file)
--- a/vutil.c
+++ b/vutil.c
@@ -968,7 +968,11 @@ Perl_vstringify(pTHX_ SV *vs)
     if (svp) {
        SV *pv;
        pv = *svp;
-       if ( SvPOK(pv) )
+       if ( SvPOK(pv)
+#if PERL_VERSION_LT(5,17,2)
+           || SvPOKp(pv)
+#endif
+       )
            return newSVsv(pv);
        else
            return &PL_sv_undef;