summaryrefslogtreecommitdiff
path: root/t/op/mydef.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/mydef.t')
-rw-r--r--t/op/mydef.t6
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/mydef.t b/t/op/mydef.t
index f250ff6e36..444bf4ae38 100644
--- a/t/op/mydef.t
+++ b/t/op/mydef.t
@@ -3,12 +3,13 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require './test.pl';
}
print "1..70\n";
my $test = 0;
-sub ok ($$) {
+sub ok ($@) {
my ($ok, $name) = @_;
++$test;
print $ok ? "ok $test - $name\n" : "not ok $test - $name\n";
@@ -175,8 +176,7 @@ $_ = "global";
::ok( $1 eq 'notmain', '...m// defaults to our $_ in main::' );
}
-my $file = 'dolbar1.tmp';
-END { unlink $file; }
+my $file = tempfile();
{
open my $_, '>', $file or die "Can't open $file: $!";
print $_ "hello\n";