From e336de0d01f30cc4061b6d6a00d11df30fc67cd3 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 3 Apr 1998 06:59:37 +0000
Subject: [win32] implement stack-of-stacks so that magic invocations don't
 invalidate local stack pointer

p4raw-id: //depot/win32/perl@864
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 0ac85b87a6..7459ae6d4f 100644
--- a/op.c
+++ b/op.c
@@ -3330,7 +3330,7 @@ newSUB(I32 floor, OP *o, OP *proto, OP *block)
 		goto done;
 	    }
 	    /* ahem, death to those who redefine active sort subs */
-	    if (curstack == sortstack && sortcop == CvSTART(cv))
+	    if (curstackinfo->si_type == SI_SORT && sortcop == CvSTART(cv))
 		croak("Can't redefine active sort subroutine %s", name);
 	    const_sv = cv_const_sv(cv);
 	    if (const_sv || dowarn && !(CvGV(cv) && GvSTASH(CvGV(cv))
-- 
cgit v1.2.1