From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 1 Jun 2000 07:52:27 +0000 (+0000)
Subject: tweak for change#6127
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d78bda3d795fc7304baa075ae01db33175e538c2;p=p5sagit%2Fp5-mst-13.2.git

tweak for change#6127

p4raw-link: @6127 on //depot/perl: 968b39461011b9bd1e503c77c95c2eeec281b946

p4raw-id: //depot/perl@6184
---

diff --git a/perl.c b/perl.c
index 1cc1a87..5df462d 100644
--- a/perl.c
+++ b/perl.c
@@ -1609,7 +1609,6 @@ L<perlcall>.
 
 I32
 Perl_call_sv(pTHX_ SV *sv, I32 flags)
-       
           		/* See G_* flags in cop.h */
 {
     dSP;
@@ -1667,7 +1666,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
 	CATCH_SET(oldcatch);
     }
     else {
-	cLOGOP->op_other = PL_op;
+	myop.op_other = (OP*)&myop;
 	PL_markstack_ptr--;
 	/* we're trying to emulate pp_entertry() here */
 	{