This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 63cf249) | patch
Fix stack corruption by unsupported filetests
authorJan Dubois <jand@activestate.com>
Fri, 20 Aug 2010 01:43:59 +0000 (18:43 -0700)
committerJan Dubois <jand@activestate.com>
Fri, 20 Aug 2010 01:45:57 +0000 (18:45 -0700)
commit1b0124a7c19a5499714e57a00a3d30b2f2647b1f
tree42654f31b7c7f8348f69243c8e071188eb64dd2dtree | snapshot
parent63cf24924effea6eabe5e1216348eea653365fdacommit | diff
Fix stack corruption by unsupported filetests

Commit c410dd6ad7 indiscriminately pops elements from the stack
even when nothing has been pushed: file tests without arguments
(testing $_) and stacked filetests don't have anything on the
stack that needs to be removed.

The general idea is that we need to have the same side effects
as if we had called my_stat_flags(), so we shall only call POPs
under the same conditions as the code in my_stat_flags().
pp_sys.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.