This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change sv_setsv(sv,NULL) to sv_set_undef(sv)
[perl5.git] / pp_hot.c
index d4b32c9..c580f26 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2245,7 +2245,7 @@ Perl_do_readline(pTHX)
        if (gimme == G_SCALAR) {
            /* undef TARG, and push that undefined value */
            if (type != OP_RCATLINE) {
-               sv_setsv(TARG,NULL);
+               sv_set_undef(TARG);
            }
            PUSHTARG;
        }