diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-08 18:07:48 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 07:04:20 +0000 |
| commit | 91643db927ccb70d2639abfb85e226ac0ae6b224 (patch) | |
| tree | dfbf0aaefce81bdc6179e1761eb9e0d18a5ee90d /os2 | |
| parent | c4d9b39d8f15049e1549fda7afe0c7c2d758d308 (diff) | |
| download | perl-91643db927ccb70d2639abfb85e226ac0ae6b224.tar.gz | |
Combined OS/2 support
Message-Id: <199806090207.WAA02015@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1103
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/Changes | 11 | ||||
| -rw-r--r-- | os2/diff.configure | 9 | ||||
| -rw-r--r-- | os2/os2.c | 7 |
3 files changed, 16 insertions, 11 deletions
diff --git a/os2/Changes b/os2/Changes index 344939c891..e2506f5f4a 100644 --- a/os2/Changes +++ b/os2/Changes @@ -164,6 +164,17 @@ after 5.004_03: $0 may be edited to longer lengths (at least under OS/2). OS2::REXX->loads looks in the OS/2-ish fashion too. +after 5.004_04: + Default perl.exe was built with a shorter stack than expected. + Strip extensions DLLs too (unless debugging build). + ./os2.c being RO could stop cp. + When starting scripts, Perl will find them on path (using the same + extensions as for -S command-line switch). If it finds magic + `extproc ' or `#!' cookies, it will start the scripts directly. + May use `cmd /c more <' as a pager. + If a program could not be started, this might have been hidden. + End of pipe was closed twice when `open'ing a pipeline. + after 5.004_53: Minimal thread support added. One needs to manually move pthread.h diff --git a/os2/diff.configure b/os2/diff.configure index 7bdfa6f585..62cf1d2031 100644 --- a/os2/diff.configure +++ b/os2/diff.configure @@ -27,12 +27,3 @@ case "$libs" in '') ;; *) for thislib in $libs; do -@@ -10392,7 +10392,7 @@ - echo " " - echo "Stripping down executable paths..." >&4 - for file in $loclist $trylist; do -- eval $file="\$file" -+ if test X$file != Xln -o X$osname != Xos2; then eval $file="\$file"; fi - done - ;; - esac @@ -163,8 +163,11 @@ os2_cond_wait(perl_cond *c, perl_mutex *m) if ((rc = DosResetEventSem(*c,&na)) && (rc != ERROR_ALREADY_RESET)) croak("panic: COND_WAIT-reset: rc=%i", rc); if (m) MUTEX_UNLOCK(m); - if (CheckOSError(DosWaitEventSem(*c,SEM_INDEFINITE_WAIT))) + if (CheckOSError(DosWaitEventSem(*c,SEM_INDEFINITE_WAIT)) + && (rc != ERROR_INTERRUPT)) croak("panic: COND_WAIT: rc=%i", rc); + if (rc == ERROR_INTERRUPT) + errno = EINTR; if (m) MUTEX_LOCK(m); } #endif @@ -356,7 +359,7 @@ result(int flag, int pid) /* global Argv[] contains arguments. */ int -do_aspawn(really, flag, execf) +do_spawn_ve(really, flag, execf) SV *really; U32 flag; U32 execf; |