source: vendor/perl/5.8.8/lib/SelfLoader.t

Last change on this file was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 3.7 KB
RevLine 
[3181]1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 $dir = "self-$$";
6 $sep = "/";
7
8 if ($^O eq 'MacOS') {
9 $dir = ":" . $dir;
10 $sep = ":";
11 }
12
13 @INC = $dir;
14 push @INC, '../lib';
15
16 print "1..19\n";