[perl #56954] This seems to be fixed in Perl 5.10

With Perl 5.8.8 the error message depends on the formatting of the code 
and with Perl 5.10.0 the error message disappears:

rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ cat ../bugs/56954.pl
#!/usr/bin/perl

use strict;



sub lines_array { [$_[0] =~ /(.*\n)/g] }



my %files;



$files{"Mod1.pm"} = lines_array <<'END';

package Mod1;

sub subr {

my ($path) = @_;

open FH1, "<", $path

or die;

}

1;

END



$files{"Mod2.pm"} = lines_array <<'END';

package Mod2;

sub subr {

my ($path) = @_;

open FH2, "<", $path

or die;

}

1;

END



unshift @INC, sub {

my ($self, $path) = @_;

my $content = $files{$path};

if ($content) {

my $next = 0;

sub {

if ($next < @$content) {

$_ = $content->[$next];

$next++;

1;

} else {

0;

}

};

}

};



require Mod1;

require Mod2;

rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ ./perl -Ilib 
../bugs/56954.pl
rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $



-- 

Renée Bäcker
renee.baecker@smart-websolutions.de

XING: http://www.xing.com/profile/Renee_Baecker
Foo-Magazin: http://foo-magazin.de

• [perl #56954] This seems to be fixed in Perl 5.10 by Renée Bäcker