This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
scope.c: Allow successful saving of PL_tainted
authorKarl Williamson <public@khwilliamson.com>
Wed, 14 Dec 2011 05:10:53 +0000 (22:10 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 15 Dec 2011 23:26:01 +0000 (16:26 -0700)
commitb6f93e7a99237718d236ae85a09f11426741878a
tree6a113f2db9b6cb3f85c99d4289167689138cd561
parent094a2f8c3da82fac9e0698c2daeb7e94d0ae765a
scope.c: Allow successful saving of PL_tainted

leave_scope() saves and restores PL_tainted upon entry and exit.  This
means that any attempt to save this variable on the stack will fail, as
its unstacked value will overwrite the popped one.

To counteract this, we update our saved version with the popped value.
scope.c