summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2014-03-01 13:35:16 +0100
committerNicholas Clark <nick@ccl4.org>2014-03-01 13:35:16 +0100
commitc79d007613fa174f6f5e1588ca5374f505fc44af (patch)
treed2dbcd42e4c00ccefa0e8a655263d54679b305e3 /scope.c
parentf5572cf8315f7c5228c30330db88dd3f604cfdc1 (diff)
downloadperl-c79d007613fa174f6f5e1588ca5374f505fc44af.tar.gz
Commit 5c85b638cb45ea2b inadvertently broke the -DDEBUGGING build.
The macros assert_not_ROK(sv) and assert_not_glob(sv) are intended to be used in expressions, and finish with a trailing comma, so they shouldn't have a ; after them.
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/scope.c b/scope.c
index 4c4f5274d0..de90b1d7f6 100644
--- a/scope.c
+++ b/scope.c
@@ -1095,8 +1095,11 @@ Perl_leave_scope(pTHX_ I32 base)
break;
}
default:
- assert_not_ROK(sv);
- assert_not_glob(sv);
+ /* This looks odd, but these two macros are for use in
+ expressions and finish with a trailing comma, so
+ adding a ; after them would be wrong. */
+ assert_not_ROK(sv)
+ assert_not_glob(sv)
SvFLAGS(sv) &=~ (SVf_OK|SVf_IVisUV|SVf_UTF8);
break;
}