Re: [PATCH: perl@8342] comp/proto..........FAILED tests 112-123

[p5sagit/p5-mst-13.2.git] / t / lib / ftmp-mktemp.t

diff --git a/t/lib/ftmp-mktemp.t b/t/lib/ftmp-mktemp.t
index 2f41d5d..2209baa 100755 (executable)
--- a/t/lib/ftmp-mktemp.t
+++ b/t/lib/ftmp-mktemp.t
@@ -1,15 +1,21 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 # Test for mktemp family of commands in File::Temp
 # Use STANDARD safe level for these tests
 
+BEGIN {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+       require Test; import Test;
+       plan(tests => 9);
+}
+
 use strict;
-use Test;
-BEGIN { plan tests => 9 }
 
 use File::Spec;
 use File::Path;
 use File::Temp qw/ :mktemp unlink0 /;
+use FileHandle;
 
 ok(1);