home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / OS2 / patches < prev    next >
Text File  |  1995-07-03  |  18KB  |  653 lines
  1. *** f:/perl5.001.m/doio.c    Mon Jul 03 00:05:30 1995
  2. --- perl5/doio.c    Sun Jul 02 23:41:26 1995
  3. ***************
  4. *** 36,41 ****
  5. --- 36,44 ----
  6.   #ifdef I_UTIME
  7.   #include <utime.h>
  8.   #endif
  9. + #ifdef I_SYS_UTIME
  10. + #include <sys/utime.h>
  11. + #endif
  12.   #ifdef I_FCNTL
  13.   #include <fcntl.h>
  14.   #endif
  15. *** f:/perl5.001.m/ext/DynaLoader/DynaLoader.pm    Mon Jul 03 00:05:30 1995
  16. --- perl5/ext/DynaLoader/DynaLoader.pm    Mon Jul 03 00:14:04 1995
  17. ***************
  18. *** 407,412 ****
  19. --- 407,413 ----
  20.   
  21.       my(@modparts) = split(/::/,$module);
  22.       my($modfname) = $modparts[-1];
  23. +     $modfname .= '_' if $Config{'osname'} eq "OS/2";
  24.       my($modpname) = join('/',@modparts);
  25.       foreach (@INC) {
  26.       my $dir = "$_/auto/$modpname";
  27. *** f:/perl5.001.m/ext/POSIX/POSIX.xs    Mon Jul 03 00:03:42 1995
  28. --- perl5/ext/POSIX/POSIX.xs    Sun Jul 02 23:40:26 1995
  29. ***************
  30. *** 174,179 ****
  31. --- 174,183 ----
  32.   #define localeconv() not_here("localeconv")
  33.   #endif
  34.   
  35. + #ifndef HAS_MKFIFO
  36. + #define mkfifo(a,b) not_here("mkfifo")
  37. + #endif
  38. + 
  39.   #ifdef HAS_TZNAME
  40.   extern char *tzname[];
  41.   #else
  42. *** f:/perl5.001.m/lib/Cwd.pm    Mon Jul 03 00:03:12 1995
  43. --- perl5/lib/Cwd.pm    Sun Jul 02 23:40:02 1995
  44. ***************
  45. *** 53,58 ****
  46. --- 53,59 ----
  47.   sub getcwd
  48.   {
  49.       if($Config{'osname'} eq 'VMS') { return $ENV{'PWD'} = $ENV{'DEFAULT'} }
  50. +     if($Config{'osname'} eq 'OS/2') { $_ = `\@cd`; s'\\'/'g; s/\s+$//g; return $_; }
  51.   
  52.       my($dotdots, $cwd, @pst, @cst, $dir, @tst);
  53.   
  54. ***************
  55. *** 121,126 ****
  56. --- 122,128 ----
  57.   
  58.   sub fastcwd {
  59.       if($Config{'osname'} eq 'VMS') { return $ENV{'DEFAULT'} }
  60. +     if($Config{'osname'} eq 'OS/2') { $_ = `\@cd`; s'\\'/'g; s/\s+$//g; return $_; }
  61.   
  62.       my($odev, $oino, $cdev, $cino, $tdev, $tino);
  63.       my(@path, $path);
  64. ***************
  65. *** 134,145 ****
  66.       ($cdev, $cino) = stat('.');
  67.       last if $odev == $cdev && $oino == $cino;
  68.       opendir(DIR, '.');
  69. !     for (;;) {
  70. !         $direntry = readdir(DIR);
  71.           next if $direntry eq '.';
  72.           next if $direntry eq '..';
  73. - 
  74. -         last unless defined $direntry;
  75.           ($tdev, $tino) = lstat($direntry);
  76.           last unless $tdev != $odev || $tino != $oino;
  77.       }
  78. --- 136,144 ----
  79.       ($cdev, $cino) = stat('.');
  80.       last if $odev == $cdev && $oino == $cino;
  81.       opendir(DIR, '.');
  82. !     while ($direntry = readdir(DIR)) {
  83.           next if $direntry eq '.';
  84.           next if $direntry eq '..';
  85.           ($tdev, $tino) = lstat($direntry);
  86.           last unless $tdev != $odev || $tino != $oino;
  87.       }
  88. *** f:/perl5.001.m/lib/ExtUtils/MakeMaker.pm    Mon Jul 03 00:07:38 1995
  89. --- perl5/lib/ExtUtils/MakeMaker.pm    Sun Jul 02 23:45:30 1995
  90. ***************
  91. *** 729,743 ****
  92.   
  93.       # --- Initialize Perl Binary Locations
  94.   
  95.       # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  96.       # will be working versions of perl 5. miniperl has priority over perl
  97.       # for PERL to ensure that $(PERL) is usable while building ./ext/*
  98. !     $att{'PERL'} =
  99. !       MY->find_perl(5.0, ['miniperl','perl','perl5',"perl$]" ],
  100. !             [ grep defined $_, $att{PERL_SRC}, split(":", $ENV{PATH}),
  101. !              $Config{'bin'} ], $Verbose )
  102. !     unless ($att{'PERL'});    # don't check, if perl is executable, maybe they
  103. !                 # they have decided to supply switches with perl
  104.   
  105.       # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  106.       ($att{'FULLPERL'} = $att{'PERL'}) =~ s/miniperl/perl/
  107. --- 729,743 ----
  108.   
  109.       # --- Initialize Perl Binary Locations
  110.   
  111. +     # AK: Hardcoding ":" is a bad idea but Unix people will never learn this.
  112. +     my $pathsep = exists($Config{'pathsep'}) ? $Config{'pathsep'} : ":";
  113. + 
  114.       # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  115.       # will be working versions of perl 5. miniperl has priority over perl
  116.       # for PERL to ensure that $(PERL) is usable while building ./ext/*
  117. !     $att{'PERL'} = MY->find_perl(5.0, [ qw(miniperl perl) ],
  118. !         [ grep defined $_, $att{PERL_SRC}, split($pathsep, $ENV{PATH}), $Config{'bin'} ], $Verbose )
  119. !     unless ($att{'PERL'} && -x $att{'PERL'});
  120.   
  121.       # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  122.       ($att{'FULLPERL'} = $att{'PERL'}) =~ s/miniperl/perl/
  123. ***************
  124. *** 927,933 ****
  125.   sub find_perl{
  126.       my($self, $ver, $names, $dirs, $trace) = @_;
  127.       my($name, $dir);
  128. !     if ($trace >= 2){
  129.       print "Looking for perl $ver by these names: ";
  130.       print "@$names, ";
  131.       print "in these dirs:";
  132. --- 927,934 ----
  133.   sub find_perl{
  134.       my($self, $ver, $names, $dirs, $trace) = @_;
  135.       my($name, $dir);
  136. !     my $ext = exists($Config{'exeext'}) ? $Config{'exeext'} : "";
  137. !     if ($trace){
  138.       print "Looking for perl $ver by these names: ";
  139.       print "@$names, ";
  140.       print "in these dirs:";
  141. ***************
  142. *** 936,953 ****
  143.       foreach $dir (@$dirs){
  144.       next unless defined $dir; # $att{PERL_SRC} may be undefined
  145.       foreach $name (@$names){
  146.           print "Checking $dir/$name " if ($trace >= 2);
  147. -         if ($Is_VMS) {
  148. -           $name .= ".exe" unless -x "$dir/$name";
  149. -         }
  150.           next unless -x "$dir/$name";
  151.           print "Executing $dir/$name" if ($trace >= 2);
  152.           my($out);
  153.           if ($Is_VMS) {
  154.             my($vmscmd) = 'MCR ' . vmsify("$dir/$name");
  155.             $out = `$vmscmd -e "require $ver; print ""VER_OK\n"""`;
  156.           } else {
  157. !           $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  158.           }
  159.           if ($out =~ /VER_OK/) {
  160.           print "Using PERL=$dir/$name" if $trace;
  161. --- 937,956 ----
  162.       foreach $dir (@$dirs){
  163.       next unless defined $dir; # $att{PERL_SRC} may be undefined
  164.       foreach $name (@$names){
  165. +             $name .= $ext unless $name =~ /$ext$/oi;
  166.           print "Checking $dir/$name " if ($trace >= 2);
  167.           next unless -x "$dir/$name";
  168.           print "Executing $dir/$name" if ($trace >= 2);
  169.           my($out);
  170.           if ($Is_VMS) {
  171.             my($vmscmd) = 'MCR ' . vmsify("$dir/$name");
  172.             $out = `$vmscmd -e "require $ver; print ""VER_OK\n"""`;
  173. +         } elsif ($Config{'osname'} eq "OS/2") {
  174. +                 $_ = "$dir/$name";
  175. +         s'/'\\'g;
  176. +             $out = `$_ -e "require $ver; print 'VER_OK' " 2>&1`;
  177.           } else {
  178. !             $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  179.           }
  180.           if ($out =~ /VER_OK/) {
  181.           print "Using PERL=$dir/$name" if $trace;
  182. *** f:/perl5.001.m/lib/perl5db.pl    Mon Mar 13 04:34:52 1995
  183. --- perl5/lib/perl5db.pl    Thu Mar 16 16:24:00 1995
  184. ***************
  185. *** 17,28 ****
  186.   
  187.   local($^W) = 0;
  188.   
  189. ! if (-e "/dev/tty") {
  190.       $console = "/dev/tty";
  191.       $rcfile=".perldb";
  192.   }
  193. ! elsif (-e "con") {
  194. !     $console = "con";
  195.       $rcfile="perldb.ini";
  196.   }
  197.   else {
  198. --- 17,28 ----
  199.   
  200.   local($^W) = 0;
  201.   
  202. ! if (-c "/dev/tty") {
  203.       $console = "/dev/tty";
  204.       $rcfile=".perldb";
  205.   }
  206. ! elsif (-c "/dev/con") {
  207. !     $console = "/dev/con";
  208.       $rcfile="perldb.ini";
  209.   }
  210.   else {
  211. *** f:/perl5.001.m/lib/Shell.pm    Tue Oct 18 17:34:58 1994
  212. --- perl5/lib/Shell.pm    Mon May 22 19:12:02 1995
  213. ***************
  214. *** 1,5 ****
  215. --- 1,7 ----
  216.   package Shell;
  217.   
  218. + use Config;
  219. + 
  220.   sub import {
  221.       my $self = shift;
  222.       my ($callpack, $callfile, $callline) = caller;
  223. ***************
  224. *** 18,45 ****
  225.   AUTOLOAD {
  226.       my $cmd = $AUTOLOAD;
  227.       $cmd =~ s/^.*:://;
  228. !     eval qq {
  229.       sub $AUTOLOAD {
  230. !         if (\@_ < 2) {
  231. !         `$cmd \@_`;
  232.           }
  233. !         else {
  234. !         open(SUBPROC, "-|")
  235. !             or exec '$cmd', \@_
  236. !             or die "Can't exec $cmd: \$!\n";
  237. !         if (wantarray) {
  238. !             my \@ret = <SUBPROC>;
  239. !             close SUBPROC;    # XXX Oughta use a destructor.
  240. !             \@ret;
  241. !         }
  242. !         else {
  243. !             local(\$/) = undef;
  244. !             my \$ret = <SUBPROC>;
  245. !             close SUBPROC;
  246. !             \$ret;
  247. !         }
  248.           }
  249.       }
  250.       };
  251.       goto &$AUTOLOAD;
  252.   }
  253. --- 20,83 ----
  254.   AUTOLOAD {
  255.       my $cmd = $AUTOLOAD;
  256.       $cmd =~ s/^.*:://;
  257. !     if ($Config{'archname'} eq 'os2') {
  258. !       eval qq {
  259.       sub $AUTOLOAD {
  260. !       if (\@_ < 1) {
  261. !         `$cmd`;
  262. !       } else {
  263. !         local(\*SAVEOUT, \*READ, \*WRITE);
  264. ! 
  265. !         open SAVEOUT, '>&STDOUT' or die;
  266. !         pipe READ, WRITE or die;
  267. !         close STDOUT;
  268. !         open STDOUT, '>&WRITE' or die;
  269. !         close WRITE;
  270. ! 
  271. !         my \$pid = system(1, $cmd, \@_);
  272. !         die "Can't execute $cmd: \$!\n" if \$pid < 0;
  273. ! 
  274. !         close STDOUT;
  275. !         open STDOUT, '>&SAVEOUT' or die;
  276. !         close SAVEOUT;
  277. ! 
  278. !         if (wantarray) {
  279. !           my \@ret = <READ>;
  280. !           close READ;
  281. !           waitpid \$pid, 0;
  282. !           \@ret;
  283. !         } else {
  284. !           local(\$/) = undef;
  285. !           my \$ret = <READ>;
  286. !           close READ;
  287. !           waitpid \$pid, 0;
  288. !           \$ret;
  289.           }
  290. !       }
  291. !     }
  292. !       }
  293. !     } else {
  294. !       eval qq {
  295. !     sub $AUTOLOAD {
  296. !       if (\@_ < 1) {
  297. !         `$cmd`;
  298. !       } else {
  299. !         open(SUBPROC, "-|")
  300. !           or exec '$cmd', \@_
  301. !           or die "Can't exec $cmd: \$!\n";
  302. !         if (wantarray) {
  303. !           my \@ret = <SUBPROC>;
  304. !           close SUBPROC;    # XXX Oughta use a destructor.
  305. !         \@ret;
  306. !         } else {
  307. !           local(\$/) = undef;
  308. !           my \$ret = <SUBPROC>;
  309. !           close SUBPROC;
  310. !           \$ret;
  311.           }
  312. +       }
  313.       }
  314. +       }
  315.       };
  316.       goto &$AUTOLOAD;
  317.   }
  318. *** f:/perl5.001.m/mg.c    Tue Mar 07 02:46:38 1995
  319. --- perl5/mg.c    Tue May 09 11:14:56 1995
  320. ***************
  321. *** 1250,1256 ****
  322.       CV *cv;
  323.       AV *oldstack;
  324.   
  325. ! #ifdef OS2        /* or anybody else who requires SIG_ACK */
  326.       signal(sig, SIG_ACK);
  327.   #endif
  328.   
  329. --- 1250,1256 ----
  330.       CV *cv;
  331.       AV *oldstack;
  332.   
  333. ! #ifdef __EMX__        /* or anybody else who requires SIG_ACK */
  334.       signal(sig, SIG_ACK);
  335.   #endif
  336.   
  337. *** f:/perl5.001.m/miniperlmain.c    Tue Feb 14 03:48:50 1995
  338. --- perl5/miniperlmain.c    Tue May 09 12:02:32 1995
  339. ***************
  340. *** 16,21 ****
  341. --- 16,31 ----
  342.   {
  343.       int exitstatus;
  344.   
  345. + #ifdef OS2
  346. + # ifdef __IBMC__
  347. +     response_expand(&argc, &argv);
  348. +     expand_argv(&argc, &argv);
  349. + # else
  350. +     _response(&argc, &argv);
  351. +     _wildcard(&argc, &argv);
  352. + # endif
  353. + #endif
  354. + 
  355.   #ifdef VMS
  356.       getredirection(&argc,&argv);
  357.   #endif
  358. *** f:/perl5.001.m/perl.c    Mon Jul 03 00:07:42 1995
  359. --- perl5/perl.c    Sun Jul 02 23:45:32 1995
  360. ***************
  361. *** 1001,1010 ****
  362.   #ifdef MSDOS
  363.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  364.       stdout);
  365. - #ifdef OS2
  366. -         fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n",
  367. -         stdout);
  368.   #endif
  369.   #endif
  370.   #ifdef atarist
  371.           fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  372. --- 1001,1011 ----
  373.   #ifdef MSDOS
  374.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  375.       stdout);
  376.   #endif
  377. + #ifdef OS2
  378. +         fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
  379. +             "Version 5 port Copyright (c) 1994-1995, Andreas Kaiser\n",
  380. +         stdout);
  381.   #endif
  382.   #ifdef atarist
  383.           fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  384. *** f:/perl5.001.m/perl.h    Mon Jul 03 00:07:42 1995
  385. --- perl5/perl.h    Sun Jul 02 23:45:34 1995
  386. ***************
  387. *** 32,48 ****
  388.    * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
  389.    */
  390.   
  391. - #ifdef MYMALLOC
  392. - #   ifdef HIDEMYMALLOC
  393. - #    define malloc Mymalloc
  394. - #    define realloc Myremalloc
  395. - #    define free Myfree
  396. - #   endif
  397. - #   define safemalloc malloc
  398. - #   define saferealloc realloc
  399. - #   define safefree free
  400. - #endif
  401. - 
  402.   /* work around some libPW problems */
  403.   #ifdef DOINIT
  404.   EXT char Error[1];
  405. --- 32,37 ----
  406. ***************
  407. *** 110,115 ****
  408. --- 99,115 ----
  409.   #   include <stdlib.h>
  410.   #endif /* STANDARD_C */
  411.   
  412. + #ifdef MYMALLOC
  413. + #   ifdef HIDEMYMALLOC
  414. + #    define malloc Mymalloc
  415. + #    define realloc Myremalloc
  416. + #    define free Myfree
  417. + #   endif
  418. + #   define safemalloc malloc
  419. + #   define saferealloc realloc
  420. + #   define safefree free
  421. + #endif
  422. + 
  423.   #define MEM_SIZE Size_t
  424.   
  425.   #if defined(I_STRING) || defined(__cplusplus)
  426. ***************
  427. *** 537,543 ****
  428. --- 537,547 ----
  429.   #define FILTER_ISREADER(idx)       (idx >= AvFILL(rsfp_filters))
  430.   
  431.   #ifdef DOSISH
  432. + # if defined(OS2)
  433. + #   include "os2ish.h"
  434. + # else
  435.   #   include "dosish.h"
  436. + # endif
  437.   #else
  438.   # if defined(VMS)
  439.   #   include "vmsish.h"
  440. *** f:/perl5.001.m/pp.c    Mon Jul 03 00:00:14 1995
  441. --- perl5/pp.c    Mon Jul 03 00:34:14 1995
  442. ***************
  443. *** 3391,3397 ****
  444.       else {
  445.       maxiters += (strend - s) * rx->nparens;
  446.       while (s < strend && --limit &&
  447. !         regexec(rx, s, strend, orig, 1, Nullsv, TRUE) ) {
  448.           if (rx->subbase
  449.             && rx->subbase != orig) {
  450.           m = s;
  451. --- 3391,3397 ----
  452.       else {
  453.       maxiters += (strend - s) * rx->nparens;
  454.       while (s < strend && --limit &&
  455. !         pregexec(rx, s, strend, orig, 1, Nullsv, TRUE) ) {
  456.           if (rx->subbase
  457.             && rx->subbase != orig) {
  458.           m = s;
  459. *** f:/perl5.001.m/pp_ctl.c    Mon Jul 03 00:07:44 1995
  460. --- perl5/pp_ctl.c    Sun Jul 02 23:45:34 1995
  461. ***************
  462. *** 2002,2013 ****
  463.       (*tmpname == '.' && 
  464.           (tmpname[1] == '/' ||
  465.            (tmpname[1] == '.' && tmpname[2] == '/')))
  466.   #ifdef VMS
  467. !     || ((*tmpname == '[' || *tmpname == '<') &&
  468. !         (tmpname[1] == '-' || tmpname[1] == ']' || tmpname[1] == '>'))
  469.   #endif
  470. !     )
  471. !     {
  472.       tryrsfp = fopen(tmpname,"r");
  473.       }
  474.       else {
  475. --- 2002,2015 ----
  476.       (*tmpname == '.' && 
  477.           (tmpname[1] == '/' ||
  478.            (tmpname[1] == '.' && tmpname[2] == '/')))
  479. + #ifdef DOSISH
  480. +       || tmpname[0] && tmpname[1] == ':'
  481. + #endif
  482.   #ifdef VMS
  483. !       || ((*tmpname == '[' || *tmpname == '<')
  484. !        && (tmpname[1] == '-' || tmpname[1] == ']' || tmpname[1] == '>'))
  485.   #endif
  486. !     ){
  487.       tryrsfp = fopen(tmpname,"r");
  488.       }
  489.       else {
  490. *** f:/perl5.001.m/pp_sys.c    Mon Jul 03 00:05:18 1995
  491. --- perl5/pp_sys.c    Sun Jul 02 23:40:58 1995
  492. ***************
  493. *** 1210,1216 ****
  494.       DIE("ioctl is not implemented");
  495.   #endif
  496.       else
  497. ! #ifdef DOSISH
  498.       DIE("fcntl is not implemented");
  499.   #else
  500.   #   ifdef HAS_FCNTL
  501. --- 1210,1216 ----
  502.       DIE("ioctl is not implemented");
  503.   #endif
  504.       else
  505. ! #if defined(DOSISH) && !defined(OS2)
  506.       DIE("fcntl is not implemented");
  507.   #else
  508.   #   ifdef HAS_FCNTL
  509. ***************
  510. *** 1455,1463 ****
  511.   
  512.   PP(pp_accept)
  513.   {
  514. -     struct sockaddr_in saddr;    /* use a struct to avoid alignment problems */
  515.       dSP; dTARGET;
  516.   #ifdef HAS_SOCKET
  517.       GV *ngv;
  518.       GV *ggv;
  519.       register IO *nstio;
  520. --- 1455,1463 ----
  521.   
  522.   PP(pp_accept)
  523.   {
  524.       dSP; dTARGET;
  525.   #ifdef HAS_SOCKET
  526. +     struct sockaddr_in saddr;    /* use a struct to avoid alignment problems */
  527.       GV *ngv;
  528.       GV *ggv;
  529.       register IO *nstio;
  530. ***************
  531. *** 2675,2681 ****
  532.       Signal_t (*ihand)();     /* place to save signal during system() */
  533.       Signal_t (*qhand)();     /* place to save signal during system() */
  534.   
  535. ! #if defined(HAS_FORK) && !defined(VMS)
  536.       if (SP - MARK == 1) {
  537.       if (tainting) {
  538.           char *junk = SvPV(TOPs, na);
  539. --- 2675,2681 ----
  540.       Signal_t (*ihand)();     /* place to save signal during system() */
  541.       Signal_t (*qhand)();     /* place to save signal during system() */
  542.   
  543. ! #if defined(HAS_FORK) && !defined(VMS) && !defined(OS2)
  544.       if (SP - MARK == 1) {
  545.       if (tainting) {
  546.           char *junk = SvPV(TOPs, na);
  547. ***************
  548. *** 2900,2906 ****
  549.   {
  550.       dSP;
  551.   
  552. ! #if defined(MSDOS) || !defined(HAS_TIMES)
  553.       DIE("times not implemented");
  554.   #else
  555.       EXTEND(SP, 4);
  556. --- 2900,2906 ----
  557.   {
  558.       dSP;
  559.   
  560. ! #ifndef HAS_TIMES
  561.       DIE("times not implemented");
  562.   #else
  563.       EXTEND(SP, 4);
  564. *** f:/perl5.001.m/proto.h    Mon Jul 03 00:07:44 1995
  565. --- perl5/proto.h    Sun Jul 02 23:45:36 1995
  566. ***************
  567. *** 228,233 ****
  568. --- 228,238 ----
  569.   long    my_ntohl _((long l));
  570.   #endif
  571.   void    my_unexec _((void));
  572. + #if defined(MYMALLOC) && defined(HIDEMYMALLOC)
  573. + extern Malloc_t malloc _((MEM_SIZE));
  574. + extern Malloc_t realloc _((Malloc_t, MEM_SIZE));
  575. + extern Free_t   free _((Malloc_t));
  576. + #endif
  577.   OP*    newANONLIST _((OP* op));
  578.   OP*    newANONHASH _((OP* op));
  579.   OP*    newANONSUB _((I32 floor, OP* block));
  580. *** f:/perl5.001.m/util.c    Mon Jul 03 00:05:22 1995
  581. --- perl5/util.c    Sun Jul 02 23:41:00 1995
  582. ***************
  583. *** 1363,1369 ****
  584.       return fdopen(p[this], mode);
  585.   }
  586.   #else
  587. ! #ifdef atarist
  588.   FILE *popen();
  589.   FILE *
  590.   my_popen(cmd,mode)
  591. --- 1363,1369 ----
  592.       return fdopen(p[this], mode);
  593.   }
  594.   #else
  595. ! #if defined(atarist) || defined(OS2)
  596.   FILE *popen();
  597.   FILE *
  598.   my_popen(cmd,mode)
  599. ***************
  600. *** 1420,1427 ****
  601.   }
  602.   #endif
  603.   
  604. ! #ifndef DOSISH
  605. ! #ifndef VMS /* VMS' my_pclose() is in VMS.c */
  606.   I32
  607.   my_pclose(ptr)
  608.   FILE *ptr;
  609. --- 1420,1426 ----
  610.   }
  611.   #endif
  612.   
  613. ! #if  !defined(DOSISH) && !defined(VMS)  /* VMS' my_popen() is in VMS.c */
  614.   I32
  615.   my_pclose(ptr)
  616.   FILE *ptr;
  617. ***************
  618. *** 1450,1456 ****
  619.       signal(SIGQUIT, qstat);
  620.       return(pid < 0 ? pid : status);
  621.   }
  622. ! #endif /* !VMS */
  623.   I32
  624.   wait4pid(pid,statusp,flags)
  625.   int pid;
  626. --- 1449,1457 ----
  627.       signal(SIGQUIT, qstat);
  628.       return(pid < 0 ? pid : status);
  629.   }
  630. ! #endif /* !DOSISH */
  631. ! 
  632. ! #if  !defined(DOSISH) || defined(OS2)
  633.   I32
  634.   wait4pid(pid,statusp,flags)
  635.   int pid;
  636. ***************
  637. *** 1524,1530 ****
  638.       return;
  639.   }
  640.   
  641. ! #ifdef atarist
  642.   int pclose();
  643.   I32
  644.   my_pclose(ptr)
  645. --- 1525,1531 ----
  646.       return;
  647.   }
  648.   
  649. ! #if defined(atarist) || defined(OS2)
  650.   int pclose();
  651.   I32
  652.   my_pclose(ptr)
  653.