From: Vishal Bhatia <vishal@deja.com>
Date: Sun, 11 Oct 1998 18:41:38 +0000 (-0700)
Subject: fix bug in B::CC::pp_sassign()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8f1fa4861c9b3193f030cd95068b7c15e3c8e00;p=p5sagit%2Fp5-mst-13.2.git

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
---

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);");