Search:
Login
Preferences
Help/Guide
About Trac
Wiki
Timeline
Roadmap
Browse Source
View Tickets
Search
Context Navigation
Normal
Revision Log
source:
vendor
/
perl
/
5.8.8
/
lib
/
SelfLoader.t
View diff against:
View revision:
Visit:
trunk
branches/BINUTILS_2-11-2_BRANCH
branches/GCC_3-2-2_BETA4_BRANCH
branches/GCC_3-2-2_BRANCH
branches/libc-0.6
tags/GCC-3-2-2_ALPHA2
tags/GCC_3-2-2_BETA1
tags/GCC_3-2-2_BETA2
tags/GCC_3-2-2_BETA3
tags/GCC_3-2-2_BETA4
tags/GCC_3-2-2_BETA4_CSD1
tags/GCC_3-3-3_UNRELEASED
tags/GCC_3-3-4_ALPHA2
tags/GCC_3-3-5_ALPHA3
tags/GCC_3-3-5_BETA5
tags/GCC_3-3-5_RC1
tags/LIBC-0.6.1
tags/LIBC-0.6.3
tags/LIBC-0.6.4
tags/LIBC-0.6.5
tags/LIBC-0.6.6
tags/LIBC_PREFORK
tags/LIBC_PRESIGNALS
Last change
on this file was
3181
, checked in by
bird
,
19 years ago
perl 5.8.8
File size:
3.7 KB
Rev
Line
[3181]
1
#!./perl
2
3
BEGIN {
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
";