diff options
| author | Ingo Weinhold <unknown> | 2004-11-30 15:38:32 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-12-01 13:44:24 +0000 |
| commit | 0874f6ba01966156a9a7101e57d2e873fddd6e41 (patch) | |
| tree | 10af181eb3e36b988f92fa611324750c78226ee7 /t/op/magic.t | |
| parent | 3e7ca0613699157cf534b3e5bb4476e8e9baf7c5 (diff) | |
| download | perl-0874f6ba01966156a9a7101e57d2e873fddd6e41.tar.gz | |
[perl #32717] BeOS specific Updates
From: Ingo Weinhold (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32717-101307.19.7097750538509@perl.org>
p4raw-id: //depot/perl@23584
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 1c02b5bbad..4e735414c2 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -47,6 +47,7 @@ $Is_Cygwin = $^O eq 'cygwin'; $Is_MacOS = $^O eq 'MacOS'; $Is_MPE = $^O eq 'mpeix'; $Is_miniperl = $ENV{PERL_CORE_MINITEST}; +$Is_BeOS = $^O eq 'beos'; $PERL = ($Is_NetWare ? 'perl' : ($Is_MacOS || $Is_VMS) ? $^X : @@ -249,12 +250,14 @@ EOF ok chmod(0755, $script), $!; $_ = ($Is_MacOS || $Is_VMS) ? `$perl $script` : `$script`; s/\.exe//i if $Is_Dos or $Is_Cygwin or $Is_os2; + s{./$script}{$script} if $Is_BeOS; # revert BeOS execvp() side-effect s{\bminiperl\b}{perl}; # so that test doesn't fail with miniperl s{is perl}{is $perl}; # for systems where $^X is only a basename s{\\}{/}g; ok((($Is_MSWin32 || $Is_os2) ? uc($_) eq uc($s1) : $_ eq $s1), " :$_:!=:$s1:"); $_ = `$perl $script`; s/\.exe//i if $Is_Dos or $Is_os2; + s{./$perl}{$perl} if $Is_BeOS; # revert BeOS execvp() side-effect s{\\}{/}g; ok((($Is_MSWin32 || $Is_os2) ? uc($_) eq uc($s1) : $_ eq $s1), " :$_:!=:$s1: after `$perl $script`"); ok unlink($script), $!; |