From 0565a181ab920bd3cc76f2ab45d62768abfcaf8d Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 14 Nov 2005 22:31:14 +0000 Subject: Mark all places where perl needs to look at a possibly-freed scalar with a macro SvIS_FREED(sv) p4raw-id: //depot/perl@26132 --- pp_hot.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 24af67eb63..813b606b0b 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1909,7 +1909,7 @@ PP(pp_iter) } } - if (sv && SvREFCNT(sv) == 0) { + if (sv && SvIS_FREED(sv)) { *itersvp = Nullsv; Perl_croak(aTHX_ "Use of freed value in iteration"); } -- cgit v1.2.1