diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 05:32:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 05:32:18 +0000 |
| commit | 8338e36774b7e3cc49c6f8e0553b2f22973bc322 (patch) | |
| tree | 3ef0875808f5ddc8c4502a47936fd1d810b8a5b5 /t | |
| parent | 9e7b74c71ae6d607b88d4011006ff1ddd570857f (diff) | |
| download | perl-8338e36774b7e3cc49c6f8e0553b2f22973bc322.tar.gz | |
Revert the /proc/self/auxv experiment for now.
p4raw-id: //depot/perl@13257
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/1_compile.t | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index af2c1687c6..51d4d6ae71 100644 --- a/t/lib/1_compile.t +++ b/t/lib/1_compile.t @@ -1,13 +1,7 @@ #!./perl BEGIN { - if (-d '../pod' && -d '../t') { - require File::Spec; - my ($v,$d,$f) = File::Spec->splitpath($^X); - $^X = File::Spec->catfile(File::Spec->curdir, $f) - if $^X eq File::Spec->catfile(File::Spec->updir, $f); - chdir '..'; - } + chdir '..' if -d '../pod' && -d '../t'; @INC = 'lib'; } |