HTTP/2 200 cache-control: max-age=43200 server: Combust/Plack (Perl) vary: Accept-Encoding content-encoding: gzip content-length: 1385 content-type: text/html; charset=utf-8 last-modified: Sat, 11 Oct 2025 12:03:04 GMT traceparent: f0ba68757b00e1c79864c4f8f7a2c501 strict-transport-security: max-age=15768000 Front page | perl.perl5.porters | Postings from July 2008

[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: https://www.xing.com/profile/Renee_Baecker
Foo-Magazin: https://foo-magazin.de

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