diff options
author | Nicholas Clark <nick@ccl4.org> | 2014-03-01 13:35:16 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2014-03-01 13:35:16 +0100 |
commit | c79d007613fa174f6f5e1588ca5374f505fc44af (patch) | |
tree | d2dbcd42e4c00ccefa0e8a655263d54679b305e3 /scope.c | |
parent | f5572cf8315f7c5228c30330db88dd3f604cfdc1 (diff) | |
download | perl-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.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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; } |