#!./perl
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ require "./test.pl";
+}
+
print "1..5\n";
my $j = 1;
}
}
+my @files;
sub mkfiles {
- my @files = map { "scratch$_" } @_;
- return wantarray ? @files : $files[-1];
+ foreach (@_) {
+ $files[$_] ||= tempfile();
+ }
+ my @results = @files[@_];
+ return wantarray ? @results : @results[-1];
}
END { unlink map { ($_, "$_.bak") } mkfiles(1..5) }