1use strict; 2use warnings; 3use v5.16.0; 4use File::Temp 'tempdir'; 5use File::Spec::Functions; 6use Test::More; 7 8BEGIN { 9 plan skip_all => "Home-grown glob does not do character classes on $^O" if $^O eq 'VMS'; 10} 11 12plan tests => 1; 13 14my @md = (1..305); 15my @mp = (1000..1205); 16 17my $path = tempdir uc cleanup => 1; 18 19foreach (@md) { 20 open(my $f, ">", catfile $path, "md_$_.dat"); 21 close $f; 22} 23 24foreach (@mp) { 25 open(my $f, ">", catfile $path, "mp_$_.dat"); 26 close $f; 27} 28my @b = glob(qq{$path/mp_[0123456789]*.dat 29 $path/md_[0123456789]*.dat}); 30is scalar(@b), @md+@mp, 31 'File::Glob extends the stack when returning a long list'; 32