From b8f1fa4861c9b3193f030cd95068b7c15e3c8e00 Mon Sep 17 00:00:00 2001
From: Vishal Bhatia <vishal@deja.com>
Date: Sun, 11 Oct 1998 11:41:38 -0700
Subject: [PATCH] fix bug in B::CC::pp_sassign() 	Message-ID:
 <19981012014139.19614.qmail@hotmail.com> 	Subject: B::CC problems with
 pp_sassign routine

p4raw-id: //depot/perl@1993
---
 ext/B/B/CC.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index 9991d8e..7194819 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -878,7 +878,7 @@ sub pp_sassign {
 	    }
 	    runtime("SvSETMAGIC(TOPs);");
 	} else {
-	    my $dst = pop @stack;
+	    my $dst = $stack[-1];
 	    my $type = $dst->{type};
 	    runtime("sv = POPs;");
 	    runtime("MAYBE_TAINT_SASSIGN_SRC(sv);");
-- 
2.7.4