t/lib/croak/regcomp: Fix up for EBCDIC

[perl5.git] / t / lib / deprecate.t

diff --git a/t/lib/deprecate.t b/t/lib/deprecate.t
index 9e59469..09b258f 100644 (file)
--- a/t/lib/deprecate.t
+++ b/t/lib/deprecate.t
@@ -2,6 +2,7 @@
 use strict;
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 use File::Copy ();