diff options
| author | Chris Nandor <pudge@pobox.com> | 2001-06-10 19:35:38 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:28:49 +0000 |
| commit | 95e8664e86da93255f26600f44bbbd70bf5b5b0e (patch) | |
| tree | 3a8919ee302246155cc722829af60949ccdfcd40 /t/lib/selfloader.t | |
| parent | 6c254d95443e15da5c7456d8ce7c28f915ae00bb (diff) | |
| download | perl-95e8664e86da93255f26600f44bbbd70bf5b5b0e.tar.gz | |
[MacPerl-Porters] [PATCH] Mac OS Compatability for bleadperl
Message-Id: <p05100306b749ec0eaade@[10.0.1.177]>
p4raw-id: //depot/perl@10512
Diffstat (limited to 't/lib/selfloader.t')
| -rwxr-xr-x | t/lib/selfloader.t | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/t/lib/selfloader.t b/t/lib/selfloader.t index 6b9c244b7e..6987f6592b 100755 --- a/t/lib/selfloader.t +++ b/t/lib/selfloader.t @@ -3,6 +3,13 @@ BEGIN { chdir 't' if -d 't'; $dir = "self-$$"; + $sep = "/"; + + if ($^O eq 'MacOS') { + $dir = ":" . $dir; + $sep = ":"; + } + @INC = $dir; push @INC, '../lib'; @@ -11,7 +18,7 @@ BEGIN { # First we must set up some selfloader files mkdir $dir, 0755 or die "Can't mkdir $dir: $!"; - open(FOO, ">$dir/Foo.pm") or die; + open(FOO, ">$dir${sep}Foo.pm") or die; print FOO <<'EOT'; package Foo; use SelfLoader; @@ -40,7 +47,7 @@ EOT close(FOO); - open(BAR, ">$dir/Bar.pm") or die; + open(BAR, ">$dir${sep}Bar.pm") or die; print BAR <<'EOT'; package Bar; use SelfLoader; @@ -196,6 +203,6 @@ if ($bardata ne "sub never { die \"D'oh\" }\n") { # cleanup END { return unless $dir && -d $dir; -unlink "$dir/Foo.pm", "$dir/Bar.pm"; +unlink "$dir${sep}Foo.pm", "$dir${sep}Bar.pm"; rmdir "$dir"; } |