develooper Front page | perl.perl5.porters | Postings from September 2012

[perl #114984] "double free or corruption" "Invalid write of size 4" in File::Glob?

Thread Previous | Thread Next
From:
Martin J. Evans via RT
Date:
September 20, 2012 11:13
Subject:
[perl #114984] "double free or corruption" "Invalid write of size 4" in File::Glob?
Message ID:
rt-3.6.HEAD-11172-1348163929-1728.114984-15-0@perl.org
Here is the script in question:

use strict;
use warnings;
use v5.16.0;

my @md = (1..305);
my @mp = (1000..1205);
print "market detail: ", scalar(@md), "\n";
print "market price: ", scalar(@mp), "\n";

my $path = "/tmp/x";
mkdir $path or die "making $path, $!";

foreach (@md) {
    open(my $f, ">", "$path/md_$_.dat");
    close $f;
}

foreach (@mp) {
    open(my $f, ">", "$path/mp_$_.dat");
    close $f;
}
chdir $path or die "failed to chdir to $path";
my @b = glob(qq{$path/mp_[0123456789]*.dat
                $path/md_[0123456789]*.dat});
print scalar(@b), "\n";

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=114984

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About