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