Followup to 316ebaf (aka perl #121894).

Adding asserts to more spots.

Fix for Coverity perl5 CIDs 28962,28968,28969:
CID ...: Dereference after null check (FORWARD_NULL)
var_deref_op: Dereferencing null pointer p->q

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 1ee3ba2070..8151607892 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3406,6 +3406,7 @@ PP(pp_fttext)
         const char *file;
         int fd; 
 
+        assert(sv);
 	sv_setpv(PL_statname, SvPV_nomg_const_nolen(sv));
       really_filename:
         file = SvPVX_const(PL_statname);