This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
scope.c: Remove XXX tmp comment from SAVEt_FREEOP
authorFather Chrysostomos <sprout@cpan.org>
Tue, 20 Nov 2012 22:32:37 +0000 (14:32 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 21 Nov 2012 01:58:58 +0000 (17:58 -0800)
This assertion helped me to find and fix a crashing bug, so I don’t
want it to be removed.

scope.c

diff --git a/scope.c b/scope.c
index 4f00ab7..df30e0b 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -886,7 +886,7 @@ Perl_leave_scope(pTHX_ I32 base)
            break;
        case SAVEt_FREEOP:
            ptr = SSPOPPTR;
-           ASSERT_CURPAD_LEGAL("SAVEt_FREEOP"); /* XXX DAPM tmp */
+           ASSERT_CURPAD_LEGAL("SAVEt_FREEOP");
            op_free((OP*)ptr);
            break;
        case SAVEt_FREEPV: