require "test.pl";
plan(tests => 49 + !$minitest * (3 + 14 * $can_fork));
-my @tempfiles = ();
-
sub get_temp_fh {
- my $f = "DummyModule0000";
- 1 while -e ++$f;
- push @tempfiles, $f;
+ my $f = tempfile();
open my $fh, ">$f" or die "Can't create $f: $!";
print $fh "package ".substr($_[0],0,-3).";\n1;\n";
print $fh $_[1] if @_ > 1;
return $fh;
}
-END { 1 while unlink @tempfiles }
-
sub fooinc {
my ($self, $filename) = @_;
if (substr($filename,0,3) eq 'Foo') {
is( $ret, 'abc', 'do "abc.pl" sees return value' );
{
- my $filename = $^O eq 'MacOS' ? ':Foo:Foo.pm' : './Foo.pm';
+ my $filename = './Foo.pm';
#local @INC; # local fails on tied @INC
my @old_INC = @INC; # because local doesn't work on tied arrays
@INC = sub { $filename = 'seen'; return undef; };