perlapi: Document GROK_NUMERIC_RADIX, PERL_ABS

[perl5.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 0214367..2515277 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -498,7 +498,7 @@ PP(pp_die)
                }
            }
        }
-       else if (SvPOK(errsv) && SvCUR(errsv)) {
+       else if (SvOK(errsv) && (SvPV_nomg(errsv,len), len)) {
            exsv = sv_mortalcopy(errsv);
            sv_catpvs(exsv, "\t...propagated");
        }