VMS: reorder the elimination of 000000 in the canonpath logic,

[perl5.git] / lib / integer.t

diff --git a/lib/integer.t b/lib/integer.t
index a74c404..946103d 100644 (file)
--- a/lib/integer.t
+++ b/lib/integer.t
@@ -1,3 +1,10 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use integer;
 
 use Test::More tests => 11;