This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #114984] Glob.xs: Extend stack when returning
authorFather Chrysostomos <sprout@cpan.org>
Thu, 20 Sep 2012 21:25:38 +0000 (14:25 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 20 Sep 2012 21:25:38 +0000 (14:25 -0700)
commita6636b43dc409e4b49f369c18fedd34332fdb9ab
tree4d89577c421d9261b0e159fc00be48f7e4c51a49
parenta71a1afb2287c191e69669788abc7bd83dc909a1
[perl #114984] Glob.xs: Extend stack when returning

If a pattern passed to File::Glob consists of a space-separated list
of patterns, the stack will only be extended by doglob() enough for
the list returned by each subpattern.  So iterate() needs to extend
the stack before copying the list of files from an AV to the stack.

This fixes a regression introduced in 5.16.0.
MANIFEST
ext/File-Glob/Glob.xs
ext/File-Glob/t/rt114984.t [new file with mode: 0644]