We cannot assert(sv) since sv can be validly null

(see the top of the function), but we can test it.

1 files changed, 1 insertions, 2 deletions

diff --git a/dump.c b/dump.c
index c2d72fdd40..5aaa82ed0d 100644
--- a/dump.c
+++ b/dump.c
@@ -471,8 +471,7 @@ Perl_sv_peek(pTHX_ SV *sv)
   finish:
     while (unref--)
 	sv_catpv(t, ")");
-    /* XXX when is sv ever NULL? */
-    if (TAINTING_get && SvTAINTED(sv))
+    if (TAINTING_get && sv && SvTAINTED(sv))
 	sv_catpv(t, " [tainted]");
     return SvPV_nolen(t);
 }