Out of Memory with File::Glob

[dvergin]

I'm running Perl 5.8.0 under Redhat 7.3. Here's the demo code:

#!/usr/bin/perl
use warnings;
use strict;

use File::Glob ':glob';

print "Before first glob\n";
my @ary1 = glob('/*');

print "Before second glob\n";
my @ary2 = glob('/home/*');

print "Done\n";

And here's the result:

Before first glob
Before second glob
Out of memory!

If I comment out the line " use File::Glob ':glob';", it runs fine (but without File::Glob's handling of directories containing spaces in the full script from which this is derived).

If I comment out *either* glob(), it runs fine.

Why can't I invoke glob() twice while using File::Glob ':glob'? And what's the remedy?

[pg]

This is a known bug, not just redhat, I tried on windows, exactly the same problem.

To handle spaces, just use bsd_glob. For example:

use File::Glob ':glob';
use Data::Dumper;

my $pattern = "C:/Program Files/*";
my @ary1 = bsd_glob("$pattern");
my @ary2 = bsd_glob("$pattern");
my @ary3 = bsd_glob("$pattern");
print Dumper(\@ary1);

[dvergin]

Confirmed. That works here, too. Thanks pg.

[Zaxo]

I can replicate this in 5.6.1 i686-linux and get a little more error message,

$ perl -Mwarnings -Mstrict -MFile::Glob=:glob -e'my @ary1 = glob q(/*)
+; my @ary2 = glob q(/home/*)'
Out of memory during "large" request for 1073745920 bytes, total sbrk(
+) is 367464 bytes at /usr/lib/perl5/5.6.1/i686-linux/File/Glob.pm lin
+e 127.
$

but it runs fine for me in 5.8.1 i686-linux-thread-multi.

[Art_XIV]

File::Find may provide you with an end-run around the problem, depending upon what it is you are trying to do.