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