[perl #8262] //g loops infinitely on tainted data

[p5sagit/p5-mst-13.2.git] / pp.c

diff --git a/pp.c b/pp.c
index eeb82c0..b260ff1 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4404,7 +4404,7 @@ PP(pp_split)
     else if (gimme != G_ARRAY)
        ary = GvAVn(PL_defgv);
     else
-       ary = Nullav;
+       ary = NULL;
     if (ary && (gimme != G_ARRAY || (pm->op_pmflags & PMf_ONCE))) {
        realarray = 1;
        PUTBACK;