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 (file)
--- 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 */
        {