X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/72fb396a39a42fb8f014aad05b2a85adaac6a470..a349b73b665112e0d7d3ff862f10d96dd445fca0:/pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 0214367..2515277 100644
--- 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");
 	}