develooper Front page | perl.perl5.porters | Postings from May 2010

Re: [perl #75464] [PATCH] glob crashes when %File::Glob:: is empty

Thread Previous
From:
H.Merijn Brand
Date:
May 31, 2010 06:18
Subject:
Re: [perl #75464] [PATCH] glob crashes when %File::Glob:: is empty
Message ID:
20100531151828.32a216a0@pc09.procura.nl
On Sun, 30 May 2010 14:35:30 -0700, Father Chrysostomos (via RT)
<perlbug-followup@perl.org> wrote:

> $ perl5.6.2 -e'BEGIN{ ++$INC{"File/Glob.pm"}} <*>'
> 
> $ perl5.8.0 -e'BEGIN{ ++$INC{"File/Glob.pm"}} <*>'
> Bus error
> 
> I believe this was caused by change 9541/7d3fb23.
> 
> In 5.6.2, a failure to find a CORE::GLOBAL::glob after loading  
> File::Glob would result in a fallback to external glob via pp_glob.  
> Now it crashes.
> 
> The attached patch should fix this.
> 
> Use of uninitialized value $category in concatenation (.) or string  
> at /usr/local/bin/perlbug5.13.1 line 645.
> Use of uninitialized value $severity in concatenation (.) or string  
> at /usr/local/bin/perlbug5.13.1 line 645.

Still true in recent(er) versions of perl:

$ perl-all -le 'BEGIN{ ++$INC{"File/Glob.pm"}} <*>'
=== base/perl5.00307
=== base/perl5.00405
=== base/perl5.00503
=== base/perl5.00504
=== base/perl5.6.0
=== base/perl5.6.1
=== base/perl5.6.2
=== base/perl5.8.0
Exit status: 11
=== base/perl5.8.1
Exit status: 11
=== base/perl5.8.2
Exit status: 11
=== base/perl5.8.3
Exit status: 11
=== base/perl5.8.4
Exit status: 11
=== base/perl5.8.5
Exit status: 11
=== base/perl5.8.6
Exit status: 11
=== base/perl5.8.7
Exit status: 11
=== base/perl5.8.8
Exit status: 11
=== base/perl5.8.9
Exit status: 11
=== base/perl5.10.0
Exit status: 11
=== base/perl5.10.1
Exit status: 11
=== base/perl5.11.0
Exit status: 11
=== base/perl5.11.1
Exit status: 11
=== base/perl5.11.2
Exit status: 11
=== base/perl5.11.3
Exit status: 11
=== base/perl5.11.4
Exit status: 11
=== base/perl5.11.5
Exit status: 11
=== base/perl5.12.0
Exit status: 11
=== base/perl5.12.1
Exit status: 11
=== base/perl5.13.0
Exit status: 11
=== base/perl5.13.1
Exit status: 11
=== /usr/bin/perl
Exit status: 11
=== /pro/bin/perl
Exit status: 11

-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using 5.00307 through 5.12 and porting perl5.13.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous


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