1#! perl -w
2delete $ENV{DISPLAY} if $ENV{AUTOMATED_TESTING};
3$file = __FILE__;
4$file =~ m|^(.*)[\\/]([^\\/.]*)\.t$|s or die;
5$dir = $1;
6$name = $2;
7$name =~ s/^55_//;
8$long_bits = 8 * length pack( ($] < 5.006 ? 'L' : 'L!'), 0);
9$dir1 = "CHANGE_ME";
10$dir1 = "$dir/../$dir1" unless $dir1 =~ m|^([a-z]:)?[\\/]|i;
11@ARGV = "$dir1/src/test/$long_bits/$name";
12@ARGV = "$dir1/src/test/32/$name" unless -r $ARGV[0];
13do 'test_eng/Testout.pm';
14die if $@;
15