home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1d < prev    next >
Text File  |  1995-04-20  |  63KB  |  2,295 lines
  1. # This is my patch  patch.1d for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4. # Please execute the following commands in your perl directory
  5. # and then apply the patch below.
  6. #
  7. mv pod/pod2latex pod/pod2latex.SH
  8. mv pod/pod2html pod/pod2html.SH
  9. mv pod/pod2man pod/pod2man.SH
  10. exit 0
  11.  
  12. This is my patch  patch.1d  for perl5.001.   A complete description is
  13. given below, but here are the basic changes.
  14.  
  15.     1.  Linux:  more tweaks so dynamic loading works under ELF
  16.     or (maybe) under dld.  There are so many different dld versions
  17.     and so many different tool sets, it's hard to be more specific.
  18.     2.  perl -e '$v=1e19+0' no longer dumps core on Intel x86
  19.     processors.
  20.     3.  pod stuff:  
  21.     a.  Wrapped pod2* translators in a 'SH' wrapper so that they
  22.         have the proper path to perl at the top.
  23.     b.  Fixed pod/ Makefile to call the pod2html translator
  24.         correctly.  (Why do pod2man and pod2html work differently?)
  25.     c.  Include latest (Feb 2, 1995) version of pod2html, fresh from
  26.         ftp.metronet.com.
  27.     4.  MakeMaker 4.093.
  28.     5.  GIMME and installperl patches from Tim Bunce.
  29.     6.  Miscellaneous hint file updates.
  30.     
  31. To apply, change to your perl directory, run the commands above, then
  32. apply with 
  33.     patch -p1 -N  < thispatch.
  34.  
  35. If you've applied any of my "unofficial" patches since patch.1c, you
  36. should probably remove them first with a patch -R.  Otherwise, you will
  37. get rejects from this patch.
  38.  
  39.     Patch and enjoy,
  40.  
  41.     Andy Dougherty            doughera@lafcol.lafayette.edu
  42.     Dept. of Physics
  43.     Lafayette College, Easton PA
  44.  
  45.  
  46. Configure
  47.     Allow ' ' to mean 'none' in a few more places.  This provides
  48.     a way for hint files to set something to an empty value and to
  49.     ensure that the empty value will be maintained when config.sh is
  50.     reused.
  51.  
  52.     Fix silly ld typo that prevented hint file from actually setting
  53.     $ld.
  54.  
  55.  
  56. MANIFEST
  57.     Now has pod/pod2*.SH.
  58.  
  59. Makefile.SH
  60.     Remove old libperl.a instead of blindly adding to it.  Failure to
  61.     do this causes a problem if you originally used perl's malloc but
  62.     later changed your mind.  The old malloc.o would still be in
  63.     libperl.a
  64.     
  65. ext/DynaLoader/dl_dlopen.xs
  66.     Use strerror(errno) instead of dlerror for NetBSD.
  67.  
  68. handy.h
  69.     Clarify & rework HAS_BOOL comments and code.  No functionality is
  70.     changed, but I hope this is easier to follow.
  71.  
  72. hints/freebsd.sh
  73. hints/isc.sh
  74. hints/linux.sh
  75. hints/netbsd.sh
  76. hints/next_3_0.sh
  77. hints/next_3_2.sh
  78. hints/sco_3.sh
  79.     Miscellaneous updates.  See the individual comments in the patches.
  80.  
  81. installperl
  82.     Run ranlib on installed .a libraries.
  83.     unlink() old versions of files before installing new ones, in
  84.     case the old ones are are write-protected.
  85.  
  86. lib/ExtUtils/MakeMaker.pm
  87.     Updated to 4.092 by Andreas Koenig.  This features better
  88.     selection of shared library versions and shorter command lines for
  89.     static linking of new extensions.  It is also more robust against
  90.     broken csh on Linux.  (There's still a glob in the library
  91.     selection loop, however.)
  92.     
  93.     I further updated it to 4.093 because I didn't like the 
  94.     distclean target :-).  It's just a sloppy quick fix, but that's
  95.     all I have time for now.  I've also worked on the library version
  96.     selection stuff and the $(CC) command stuff a little more.
  97.  
  98. lib/TieHash.pm
  99.     Overdue removal of ambiguous ${pack} construction.
  100.  
  101. perl.h
  102.     New U_V macro to cast to the UV type (usually unsigned long).
  103.  
  104. pod/Makefile
  105.     Updated.
  106.  
  107. pod/pod2html.SH
  108.     Updated.
  109.     Converted to 'SH' wrapper so correct #!/path/to/perl gets used.
  110.  
  111. pod/pod2latex.SH
  112. pod/pod2man.SH
  113.     Converted to 'SH' wrapper so correct #!/path/to/perl gets used.
  114.  
  115. pp_hot.c
  116.     GIMME patch from Tim Bunce.
  117.  
  118. pp_sys.c
  119.     Allow use of F_FREESP fcntl() directive to truncate files.
  120.  
  121.     If HAS_MKDIR is not defined, the stat() call to check the result
  122.     of the system "mkdir" call was failing because the filename
  123.     pointer no longer pointed to the right location.
  124.  
  125. sv.c
  126.     Protect some (UV) casts by the new U_V() macro.
  127.  
  128. util.c
  129.     New cast_uv() function to support the U_V() macro, if needed.
  130.     cast_iv() and cast_uv() no longer assume 32-bit longs.
  131.     The various cast_() functions have also been simplified.
  132.  
  133. Index: Configure
  134. Prereq:  3.0.1.7 
  135. *** perl5.001c/Configure    Thu Apr  6 11:16:18 1995
  136. --- perl5.001d/Configure    Fri Apr 14 15:46:27 1995
  137. ***************
  138. *** 20,26 ****
  139.   
  140.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  141.   #
  142. ! # Generated on Thu Apr  6 11:09:32 EDT 1995 [metaconfig 3.0 PL53]
  143.   
  144.   cat >/tmp/c1$$ <<EOF
  145.   ARGGGHHHH!!!!!
  146. --- 20,26 ----
  147.   
  148.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  149.   #
  150. ! # Generated on Fri Apr 14 15:43:12 EDT 1995 [metaconfig 3.0 PL53]
  151.   
  152.   cat >/tmp/c1$$ <<EOF
  153.   ARGGGHHHH!!!!!
  154. ***************
  155. *** 4241,4247 ****
  156.       rp="Any special flags to pass to $cc -c to compile shared library modules?"
  157.       . ./myread
  158.       case "$ans" in
  159. !     none) cccdlflags='' ;;
  160.       *) cccdlflags="$ans" ;;
  161.       esac
  162.   
  163. --- 4241,4247 ----
  164.       rp="Any special flags to pass to $cc -c to compile shared library modules?"
  165.       . ./myread
  166.       case "$ans" in
  167. !     none) cccdlflags=' ' ;;
  168.       *) cccdlflags="$ans" ;;
  169.       esac
  170.   
  171. ***************
  172. *** 4278,4288 ****
  173.           fi
  174.           rm -f try.c a.out
  175.           ;;
  176. !     *)    dflt=ld
  177.           ;;
  178.       esac
  179.   
  180. !     rp="What comnmand should be used to create dynamic libraries?"
  181.       . ./myread
  182.       ld="$ans"
  183.   
  184. --- 4278,4288 ----
  185.           fi
  186.           rm -f try.c a.out
  187.           ;;
  188. !     *)    dflt="$ld"
  189.           ;;
  190.       esac
  191.   
  192. !     rp="What command should be used to create dynamic libraries?"
  193.       . ./myread
  194.       ld="$ans"
  195.   
  196. ***************
  197. *** 4311,4317 ****
  198.       rp="Any special flags to pass to $ld to create a dynamically loaded library?"
  199.       . ./myread
  200.       case "$ans" in
  201. !     none) lddlflags='' ;;
  202.       *) lddlflags="$ans" ;;
  203.       esac
  204.   
  205. --- 4311,4317 ----
  206.       rp="Any special flags to pass to $ld to create a dynamically loaded library?"
  207.       . ./myread
  208.       case "$ans" in
  209. !     none) lddlflags=' ' ;;
  210.       *) lddlflags="$ans" ;;
  211.       esac
  212.   
  213. ***************
  214. *** 4335,4341 ****
  215.       rp="Any special flags to pass to $cc to use dynamic loading?"
  216.       . ./myread
  217.       case "$ans" in
  218. !     none) ccdlflags='' ;;
  219.       *) ccdlflags="$ans" ;;
  220.       esac
  221.       ;;
  222. --- 4335,4341 ----
  223.       rp="Any special flags to pass to $cc to use dynamic loading?"
  224.       . ./myread
  225.       case "$ans" in
  226. !     none) ccdlflags=' ' ;;
  227.       *) ccdlflags="$ans" ;;
  228.       esac
  229.       ;;
  230. ***************
  231. *** 6438,6444 ****
  232.   
  233.   EOM
  234.       case "$dynamic_ext" in
  235. !     ''|' ') dflt="$avail_ext" ;;
  236.       *)    dflt="$dynamic_ext" ;;
  237.       esac
  238.       case "$dflt" in
  239. --- 6438,6444 ----
  240.   
  241.   EOM
  242.       case "$dynamic_ext" in
  243. !     '') dflt="$avail_ext" ;;
  244.       *)    dflt="$dynamic_ext" ;;
  245.       esac
  246.       case "$dflt" in
  247. ***************
  248. *** 6447,6458 ****
  249.       rp="What extensions do you wish to load dynamically?"
  250.       . ./myread
  251.       case "$ans" in
  252. !     none) dynamic_ext='' ;;
  253.       *) dynamic_ext="$ans" ;;
  254.       esac
  255.   
  256.       case "$static_ext" in
  257. !     ''|' ')
  258.           : Exclude those already listed in dynamic linking
  259.           dflt=''
  260.           for xxx in $avail_ext; do
  261. --- 6447,6458 ----
  262.       rp="What extensions do you wish to load dynamically?"
  263.       . ./myread
  264.       case "$ans" in
  265. !     none) dynamic_ext=' ' ;;
  266.       *) dynamic_ext="$ans" ;;
  267.       esac
  268.   
  269.       case "$static_ext" in
  270. !     '')
  271.           : Exclude those already listed in dynamic linking
  272.           dflt=''
  273.           for xxx in $avail_ext; do
  274. ***************
  275. *** 6475,6481 ****
  276.       rp="What extensions do you wish to load statically?"
  277.       . ./myread
  278.       case "$ans" in
  279. !     none) static_ext='' ;;
  280.       *) static_ext="$ans" ;;
  281.       esac
  282.       ;;
  283. --- 6475,6481 ----
  284.       rp="What extensions do you wish to load statically?"
  285.       . ./myread
  286.       case "$ans" in
  287. !     none) static_ext=' ' ;;
  288.       *) static_ext="$ans" ;;
  289.       esac
  290.       ;;
  291. ***************
  292. *** 6486,6492 ****
  293.   
  294.   EOM
  295.       case "$static_ext" in
  296. !     ''|' ') dflt="$avail_ext" ;;
  297.       *)    dflt="$static_ext" ;;
  298.       esac
  299.   
  300. --- 6486,6492 ----
  301.   
  302.   EOM
  303.       case "$static_ext" in
  304. !     '') dflt="$avail_ext" ;;
  305.       *)    dflt="$static_ext" ;;
  306.       esac
  307.   
  308. ***************
  309. *** 6496,6502 ****
  310.       rp="What extensions do you wish to include?"
  311.       . ./myread
  312.       case "$ans" in
  313. !     none) static_ext='' ;;
  314.       *) static_ext="$ans" ;;
  315.       esac
  316.       ;;
  317. --- 6496,6502 ----
  318.       rp="What extensions do you wish to include?"
  319.       . ./myread
  320.       case "$ans" in
  321. !     none) static_ext=' ' ;;
  322.       *) static_ext="$ans" ;;
  323.       esac
  324.       ;;
  325. Index: MANIFEST
  326. *** perl5.001c/MANIFEST    Sun Mar 12 22:14:06 1995
  327. --- perl5.001d/MANIFEST    Thu Apr 13 10:38:43 1995
  328. ***************
  329. *** 402,410 ****
  330.   pod/perlsyn.pod        Syntax info
  331.   pod/perltrap.pod    Trap info
  332.   pod/perlvar.pod        Variable info
  333. ! pod/pod2html        Translator to turn pod into HTML
  334. ! pod/pod2latex        Translator to turn pod into LaTeX
  335. ! pod/pod2man        Translator to turn pod into manpage
  336.   pod/splitman        Splits perlfunc into multiple man pages
  337.   pp.c            Push/Pop code
  338.   pp.h            Push/Pop code defs
  339. --- 402,410 ----
  340.   pod/perlsyn.pod        Syntax info
  341.   pod/perltrap.pod    Trap info
  342.   pod/perlvar.pod        Variable info
  343. ! pod/pod2html.SH        Precursor for translator to turn pod into HTML
  344. ! pod/pod2latex.SH    Precursor for translator to turn pod into LaTeX
  345. ! pod/pod2man.SH        Precursor for translator to turn pod into manpage
  346.   pod/splitman        Splits perlfunc into multiple man pages
  347.   pp.c            Push/Pop code
  348.   pp.h            Push/Pop code defs
  349. Index: Makefile.SH
  350. *** perl5.001c/Makefile.SH    Thu Apr  6 13:59:46 1995
  351. --- perl5.001d/Makefile.SH    Sat Apr 15 11:32:18 1995
  352. ***************
  353. *** 227,232 ****
  354. --- 227,233 ----
  355.   ;;
  356.   *)
  357.   $spitshell >>Makefile <<'!NO!SUBS!'
  358. +     rm -f $(perllib)
  359.       ar rcu $(perllib) perl.o $(obj)
  360.       @$(ranlib) $(perllib)
  361.   !NO!SUBS!
  362. ***************
  363. *** 329,334 ****
  364. --- 330,336 ----
  365.   
  366.   realclean: clean
  367.       -cd x2p; $(MAKE) realclean
  368. +     -cd pod; $(MAKE) realclean
  369.       @for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) ; do \
  370.       sh ext/util/make_ext realclean $$x ; \
  371.       done
  372. Index: ext/DynaLoader/dl_dlopen.xs
  373. *** perl5.001c/ext/DynaLoader/dl_dlopen.xs    Tue Oct 18 12:28:19 1994
  374. --- perl5.001d/ext/DynaLoader/dl_dlopen.xs    Thu Apr 13 10:15:28 1995
  375. ***************
  376. *** 115,121 ****
  377.   #endif
  378.   
  379.   #ifndef HAS_DLERROR
  380. ! #define dlerror() "Unknown error - dlerror() not implemented"
  381.   #endif
  382.   
  383.   
  384. --- 115,125 ----
  385.   #endif
  386.   
  387.   #ifndef HAS_DLERROR
  388. ! # ifdef __NetBSD__
  389. ! #  define dlerror() strerror(errno)
  390. ! # else
  391. ! #  define dlerror() "Unknown error - dlerror() not implemented"
  392. ! # endif
  393.   #endif
  394.   
  395.   
  396. Index: handy.h
  397. *** perl5.001c/handy.h    Sun Apr  2 16:13:10 1995
  398. --- perl5.001d/handy.h    Mon Apr 10 16:29:06 1995
  399. ***************
  400. *** 24,38 ****
  401.   #define Nullsv Null(SV*)
  402.   
  403.   /* bool is built-in for g++-2.6.3, which might be used for an extension.
  404. !    gcc-2.6.2 under Linux defines _G_HAVE_BOOL to 0, and does not
  405. !    define bool. */
  406. ! #if !defined(HAS_BOOL) && !(_G_HAVE_BOOL)
  407. ! #ifdef UTS
  408. ! #define bool int
  409. ! #else
  410. ! #define bool char
  411.   #endif
  412. - #endif /* !defined(HAS_BOOL) && !(_G_HAVE_BOOL) */
  413.   
  414.   #ifdef TRUE
  415.   #undef TRUE
  416. --- 24,49 ----
  417.   #define Nullsv Null(SV*)
  418.   
  419.   /* bool is built-in for g++-2.6.3, which might be used for an extension.
  420. !    If the extension includes <_G_config.h> before this file then
  421. !    _G_HAVE_BOOL will be properly set.  If, however, the extension includes
  422. !    this file first, then you will have to manually set -DHAS_BOOL in 
  423. !    your command line to avoid a conflict.
  424. ! */
  425. ! #ifdef _G_HAVE_BOOL
  426. ! # if _G_HAVE_BOOL
  427. ! #  ifndef HAS_BOOL
  428. ! #   define HAS_BOOL 1
  429. ! #  endif
  430. ! # endif
  431. ! #endif
  432. ! 
  433. ! #ifndef HAS_BOOL
  434. ! # ifdef UTS
  435. ! #  define bool int
  436. ! # else
  437. ! #  define bool char
  438. ! # endif
  439.   #endif
  440.   
  441.   #ifdef TRUE
  442.   #undef TRUE
  443. Index: hints/cxux.sh
  444. *** perl5.001c/hints/cxux.sh    Tue Feb 28 19:42:47 1995
  445. --- perl5.001d/hints/cxux.sh    Fri Apr 14 10:40:15 1995
  446. ***************
  447. *** 72,78 ****
  448.   cc='/bin/cc -Xa'
  449.   cccdlflags='-Zelf -Zpic'
  450.   ccdlflags='-Zelf -Zlink=dynamic -Wl,-Bexport -u sigaction'
  451. ! lddlflags='-G'
  452.   
  453.   # Configure imagines that stdio.h is "standard", but it really isn't.
  454.   # Things like the -T and -B file test operators (on file handles) fail when
  455. --- 72,78 ----
  456.   cc='/bin/cc -Xa'
  457.   cccdlflags='-Zelf -Zpic'
  458.   ccdlflags='-Zelf -Zlink=dynamic -Wl,-Bexport -u sigaction'
  459. ! lddlflags='-Zlink=so'
  460.   
  461.   # Configure imagines that stdio.h is "standard", but it really isn't.
  462.   # Things like the -T and -B file test operators (on file handles) fail when
  463. Index: hints/freebsd.sh
  464. *** perl5.001c/hints/freebsd.sh    Thu Jan 19 19:08:36 1995
  465. --- perl5.001d/hints/freebsd.sh    Tue Apr 11 11:34:29 1995
  466. ***************
  467. *** 1,4 ****
  468. ! # Oringal based on info from
  469.   # Carl M. Fongheiser <cmf@ins.infonet.net>
  470.   # Date: Thu, 28 Jul 1994 19:17:05 -0500 (CDT)
  471.   #
  472. --- 1,4 ----
  473. ! # Original based on info from
  474.   # Carl M. Fongheiser <cmf@ins.infonet.net>
  475.   # Date: Thu, 28 Jul 1994 19:17:05 -0500 (CDT)
  476.   #
  477. ***************
  478. *** 6,26 ****
  479.   # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  480.   # Date: Wed, 28 Sep 1994 00:37:46 +0100 (MET)
  481.   #
  482.   case "$osvers" in
  483.   0.*|1.0*)
  484.       usedl="$undef"
  485.       ;;
  486. ! *)    d_dlopen="$define"
  487.       cccdlflags='-DPIC -fpic'
  488. !     lddlflags='-Bshareable'
  489.       malloctype='void *'
  490.       groupstype='int'
  491.       d_setregid='undef'
  492.       d_setreuid='undef'
  493.       d_setrgid='undef'
  494.       d_setruid='undef'
  495. !     i_unistd='undef'
  496.       ;;
  497.   esac
  498.   # Avoid telldir prototype conflict in pp_sys.c  (FreeBSD uses const DIR *)
  499.   pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
  500. --- 6,50 ----
  501.   # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  502.   # Date: Wed, 28 Sep 1994 00:37:46 +0100 (MET)
  503.   #
  504. + # Additional 2.* defines from
  505. + # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  506. + # Date: Sat, 8 Apr 1995 20:53:41 +0200 (MET DST)
  507. + #
  508. + # FreeBSD has the dynamic loading dl*() functions in /usr/lib/crt0.o,
  509. + # so Configure doesn't find them (unless you abandon the nm scan).
  510. + #
  511. + # The two flags "-fpic -DPIC" are used to indicate a
  512. + # will-be-shared object.  Configure will guess the -fpic, (and the
  513. + # -DPIC is not used by perl proper) but the full define is included to 
  514. + # be consistent with the FreeBSD general shared libs building process.
  515. + #
  516. + # setreuid and friends are inherently broken in all versions of FreeBSD.
  517. + #
  518. + 
  519.   case "$osvers" in
  520.   0.*|1.0*)
  521.       usedl="$undef"
  522.       ;;
  523. ! 1.1*)    d_dlopen="$define"
  524.       cccdlflags='-DPIC -fpic'
  525. !     lddlflags='-Bshareable $lddlflags'
  526.       malloctype='void *'
  527.       groupstype='int'
  528.       d_setregid='undef'
  529.       d_setreuid='undef'
  530.       d_setrgid='undef'
  531.       d_setruid='undef'
  532. !     ;;
  533. ! *)
  534. !     d_dlopen="$define"
  535. !     cccdlflags='-DPIC -fpic'
  536. !     lddlflags='-Bshareable $lddlflags'
  537. !     d_setregid='undef'
  538. !     d_setreuid='undef'
  539. !     d_setrgid='undef'
  540. !     d_setruid='undef'
  541.       ;;
  542.   esac
  543.   # Avoid telldir prototype conflict in pp_sys.c  (FreeBSD uses const DIR *)
  544. + # Configure should test for this.  Volunteers?
  545.   pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
  546. Index: hints/isc.sh
  547. *** perl5.001c/hints/isc.sh    Tue Oct 18 12:33:12 1994
  548. --- perl5.001d/hints/isc.sh    Sat Apr 15 10:30:51 1995
  549. ***************
  550. *** 6,14 ****
  551.   #
  552.   # Use Configure -Dcc=gcc to use gcc
  553.   #
  554. ! set `echo X "$libswanted "| sed -e 's/ c / /'`
  555.   shift
  556.   libswanted="$*"
  557.   case "$cc" in
  558.   *gcc*)    ccflags="$ccflags -posix"
  559.       ldflags="$ldflags -posix"
  560. --- 6,24 ----
  561.   #
  562.   # Use Configure -Dcc=gcc to use gcc
  563.   #
  564. ! 
  565. ! # We don't want to explicitly mention -lc (since we're using POSIX mode.)
  566. ! # We also don't want -lx (the Xenix compatability libraries.) The only
  567. ! # thing that it seems to pick up is chsize(), which has been reported to
  568. ! # not work.  chsize() can also be implemented via fcntl() in perl (if you
  569. ! # define -D_SYSV3).  We'll leave in -lPW since it's harmless.  Some
  570. ! # extension might eventually need it for alloca, though perl doesn't use
  571. ! # it. 
  572. ! 
  573. ! set `echo X "$libswanted "| sed -e 's/ c / /' -e 's/ x / /'`
  574.   shift
  575.   libswanted="$*"
  576. + 
  577.   case "$cc" in
  578.   *gcc*)    ccflags="$ccflags -posix"
  579.       ldflags="$ldflags -posix"
  580. ***************
  581. *** 17,21 ****
  582. --- 27,37 ----
  583.       ldflags="$ldflags -Xp"
  584.           ;;
  585.   esac
  586. + 
  587. + # You can also include -D_SYSV3 to pick up "traditionally visible"
  588. + # symbols hidden by name-space pollution rules.  This raises some
  589. + # compilation "redefinition" warnings, but they appear harmless.
  590. + # ccflags="$ccflags -D_SYSV3"
  591. + 
  592.   # Pick up dbm.h in <rpcsvc/dbm.h>
  593.   ccflags="$ccflags -I/usr/include/rpcsvc"
  594. Index: hints/linux.sh
  595. *** perl5.001c/hints/linux.sh    Fri Apr  7 09:20:47 1995
  596. --- perl5.001d/hints/linux.sh    Mon Apr 10 16:20:22 1995
  597. ***************
  598. *** 24,32 ****
  599.   esac
  600.   
  601.   # Perl expects BSD style signal handling.
  602. ! ccflags="-D__USE_BSD_SIGNAL $ccflags"
  603.   
  604. ! # The following functions are gcc built-ins, but the Configure test
  605.   # may fail because it doesn't supply a proper prototype.
  606.   d_memcmp=define
  607.   d_memcpy=define
  608. --- 24,33 ----
  609.   esac
  610.   
  611.   # Perl expects BSD style signal handling.
  612. ! # gcc defines _G_HAVE_BOOL to 1, but doesn't actually supply bool.
  613. ! ccflags="-D__USE_BSD_SIGNAL -Dbool=char -DHAS_BOOL $ccflags"
  614.   
  615. ! # The following functions are gcc built-ins, but the Configure tests
  616.   # may fail because it doesn't supply a proper prototype.
  617.   d_memcmp=define
  618.   d_memcpy=define
  619. ***************
  620. *** 68,84 ****
  621.   
  622.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  623.   EOM
  624. !     # Be careful not to overwrite lddlflags, since the user might
  625. !     # have specified some -L/path options on the Configure command line.
  626. !     lddlflags="-shared $lddlflags"
  627. !     ccdlflags='-rdynamic'
  628. !     so='so'
  629. !     dlext='so'
  630. !     ld=gcc
  631.   else
  632.       echo "You don't have an ELF gcc, using dld if available."
  633.       # We might possibly have a version of DLD around.
  634.       lddlflags="-r $lddlflags"
  635.       so='sa'
  636.       dlext='o'
  637.       ## If you are using DLD 3.2.4 which does not support shared libs,
  638. --- 69,83 ----
  639.   
  640.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  641.   EOM
  642. !     # Configure now handles these automatically.
  643.   else
  644.       echo "You don't have an ELF gcc, using dld if available."
  645.       # We might possibly have a version of DLD around.
  646.       lddlflags="-r $lddlflags"
  647. +     # These empty values are so that Configure doesn't put in the
  648. +     # Linux ELF values.
  649. +     ccdlflags=' '
  650. +     cccdlflags=' '
  651.       so='sa'
  652.       dlext='o'
  653.       ## If you are using DLD 3.2.4 which does not support shared libs,
  654. Index: hints/netbsd.sh
  655. *** perl5.001c/hints/netbsd.sh    Fri Mar 31 15:29:47 1995
  656. --- perl5.001d/hints/netbsd.sh    Mon Apr 10 10:14:41 1995
  657. ***************
  658. *** 1,5 ****
  659.   # hints/netbsd.sh
  660. ! # netbsd keeps  dynamic loading dl*() functions in /lib/crt0.o,
  661.   # so Configure doesn't find them (unless you abandon the nm scan).
  662.   case "$osvers" in
  663.   0.9*|0.8*)
  664. --- 1,5 ----
  665.   # hints/netbsd.sh
  666. ! # netbsd keeps  dynamic loading dl*() functions in /usr/lib/crt0.o,
  667.   # so Configure doesn't find them (unless you abandon the nm scan).
  668.   case "$osvers" in
  669.   0.9*|0.8*)
  670. Index: hints/next_3_0.sh
  671. *** perl5.001c/hints/next_3_0.sh    Mon Feb 13 20:15:00 1995
  672. --- perl5.001d/hints/next_3_0.sh    Tue Apr 11 11:20:16 1995
  673. ***************
  674. *** 21,27 ****
  675. --- 21,32 ----
  676.   useposix='undef'
  677.   ldflags='-u libsys_s'
  678.   libswanted='dbm gdbm db'
  679. + #
  680.   lddlflags='-r'
  681. + # Give cccdlflags an empty value since Configure will detect we are
  682. + # using GNU cc and try to specify -fpic for cccdlflags.
  683. + cccdlflags=' '
  684. + #
  685.   i_utime='undef'
  686.   groupstype='int'
  687.   direntrytype='struct direct'
  688. Index: hints/next_3_2.sh
  689. *** perl5.001c/hints/next_3_2.sh    Wed Feb 22 14:36:59 1995
  690. --- perl5.001d/hints/next_3_2.sh    Mon Apr 10 10:14:22 1995
  691. ***************
  692. *** 5,11 ****
  693. --- 5,16 ----
  694.   POSIX_cflags='ccflags="-posix $ccflags"'
  695.   ldflags='-u libsys_s'
  696.   libswanted='dbm gdbm db'
  697. + 
  698.   lddlflags='-r'
  699. + # Give cccdlflags an empty value since Configure will detect we are
  700. + # using GNU cc and try to specify -fpic for cccdlflags.
  701. + cccdlflags=' '
  702. + 
  703.   i_utime='undef'
  704.   groupstype='int'
  705.   direntrytype='struct direct'
  706. Index: hints/powerunix.sh
  707. *** perl5.001c/hints/powerunix.sh    Tue Feb 28 19:42:55 1995
  708. --- perl5.001d/hints/powerunix.sh    Fri Apr 14 10:40:15 1995
  709. ***************
  710. *** 49,55 ****
  711.   cc='/bin/cc'
  712.   cccdlflags='-Zpic'
  713.   ccdlflags='-Zlink=dynamic -Wl,-Bexport'
  714. ! lddlflags='-G'
  715.   
  716.   # Configure imagines that stdio.h is "standard", but it really isn't.
  717.   # Things like the -T and -B file test operators (on file handles) fail when
  718. --- 49,55 ----
  719.   cc='/bin/cc'
  720.   cccdlflags='-Zpic'
  721.   ccdlflags='-Zlink=dynamic -Wl,-Bexport'
  722. ! lddlflags='-Zlink=so'
  723.   
  724.   # Configure imagines that stdio.h is "standard", but it really isn't.
  725.   # Things like the -T and -B file test operators (on file handles) fail when
  726. Index: hints/sco_3.sh
  727. *** perl5.001c/hints/sco_3.sh    Tue Oct 18 12:33:50 1994
  728. --- perl5.001d/hints/sco_3.sh    Tue Apr 11 16:14:41 1995
  729. ***************
  730. *** 22,30 ****
  731. --- 22,41 ----
  732.       ccflags="$ccflags -U M_XENIX"
  733.       optimize="$optimize -O2"
  734.       ;;
  735. + scocc)    ;;
  736. + 
  737.   *)
  738.       ccflags="$ccflags -W0 -U M_XENIX"
  739.       ;;
  740.   esac
  741.   i_varargs=undef
  742. + 
  743. + # I have received one report that nm extraction doesn't work if you're
  744. + # using the scocc compiler.  This system had the following 'myconfig'
  745. + # uname='xxx xxx 3.2 2 i386 '
  746. + # cc='scocc', optimize='-O'
  747. + usenm='false'
  748. + 
  749. + # If you want to use nm, you'll probably have to use nm -p.  The
  750. + # following does that for you:
  751.   nm_opt='-p'
  752. Index: installperl
  753. *** perl5.001c/installperl    Tue Apr  4 11:55:03 1995
  754. --- perl5.001d/installperl    Sat Apr 15 11:14:10 1995
  755. ***************
  756. *** 146,153 ****
  757.   makedir("$installarchlib/CORE");
  758.   foreach $file (<*.h libperl*.*>) {
  759.       cp_if_diff($file,"$installarchlib/CORE/$file");
  760. !     if ($file =~ /\.a$/ && $osname eq 'next') { 
  761. !        #on NeXTs we have to rerun ranlib after copying libraries
  762.          &cmd("$ranlib $installarchlib/CORE/$file");
  763.       }
  764.   }
  765. --- 146,154 ----
  766.   makedir("$installarchlib/CORE");
  767.   foreach $file (<*.h libperl*.*>) {
  768.       cp_if_diff($file,"$installarchlib/CORE/$file");
  769. !     if ($file =~ /\.a$/ && $osname =~ /^(next|sunos)$/) { 
  770. !        # on NeXTs and Suns we have to rerun ranlib after copying libraries
  771. !        # (maybe on all platforms which have ranlib ?)
  772.          &cmd("$ranlib $installarchlib/CORE/$file");
  773.       }
  774.   }
  775. ***************
  776. *** 342,347 ****
  777. --- 343,349 ----
  778.       -f $from || die "$0: $from not found";
  779.       system "cmp", "-s", $from, $to;
  780.       if ($?) {
  781. +     unlink($to);   # In case we don't have write permissions.
  782.       cmd("cp $from $to");
  783.       }
  784.   }
  785. Index: lib/ExtUtils/MakeMaker.pm
  786. *** perl5.001c/lib/ExtUtils/MakeMaker.pm    Mon Apr  3 15:52:47 1995
  787. --- perl5.001d/lib/ExtUtils/MakeMaker.pm    Fri Apr 14 17:18:56 1995
  788. ***************
  789. *** 1,9 ****
  790.   package ExtUtils::MakeMaker;
  791.   
  792. ! $Version = 4.091; # Last edited 31 Mar 1995 by Andreas Koenig
  793.   
  794.   use Config;
  795. - check_hints();
  796.   use Carp;
  797.   use Cwd;
  798.   
  799. --- 1,8 ----
  800.   package ExtUtils::MakeMaker;
  801.   
  802. ! $Version = 4.093; # Last edited 12 Apr 1995 by Andy Dougherty
  803.   
  804.   use Config;
  805.   use Carp;
  806.   use Cwd;
  807.   
  808. ***************
  809. *** 48,58 ****
  810.   hash table of Config.pm by supplying hints files in a C<hints/>
  811.   directory. The hints files are expected to be named like their
  812.   counterparts in C<PERL_SRC/hints>, but with an C<.pl> file name
  813. ! extension (eg. C<next_3_2.sh>). They are simply C<eval>ed by MakeMaker
  814. ! and can be used to execute commands as well as to include special
  815. ! variables. If there is no hintsfile for the actual system, but for
  816. ! some previous releases of the same operating system, the latest one of
  817. ! those is used.
  818.   
  819.   =head2 Default Makefile Behaviour
  820.   
  821. --- 47,57 ----
  822.   hash table of Config.pm by supplying hints files in a C<hints/>
  823.   directory. The hints files are expected to be named like their
  824.   counterparts in C<PERL_SRC/hints>, but with an C<.pl> file name
  825. ! extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by MakeMaker
  826. ! within the WriteMakefile() subroutine, and can be used to execute
  827. ! commands as well as to include special variables. If there is no
  828. ! hintsfile for the actual system, but for some previous releases of the
  829. ! same operating system, the latest one of those is used.
  830.   
  831.   =head2 Default Makefile Behaviour
  832.   
  833. ***************
  834. *** 80,86 ****
  835.     make config     # to check if the Makefile is up-to-date
  836.     make clean      # delete local temporary files (Makefile gets renamed)
  837.     make realclean  # delete all derived files (including installed files)
  838. !   make distclean  # produce a gzipped file ready for shipping
  839.   
  840.   The macros in the produced Makefile may be overridden on the command
  841.   line to the make call as in the following example:
  842. --- 79,85 ----
  843.     make config     # to check if the Makefile is up-to-date
  844.     make clean      # delete local temporary files (Makefile gets renamed)
  845.     make realclean  # delete all derived files (including installed files)
  846. !   make dist       # produce a gzipped file ready for shipping
  847.   
  848.   The macros in the produced Makefile may be overridden on the command
  849.   line to the make call as in the following example:
  850. ***************
  851. *** 276,283 ****
  852.   =cut
  853.   
  854.   sub check_hints {
  855. !     # We allow extension-specific hints files. If we find one we act as if Config.pm
  856. !     # had read the contents
  857.   
  858.       # First we look for the best hintsfile we have
  859.       my(@goodhints);
  860. --- 275,281 ----
  861.   =cut
  862.   
  863.   sub check_hints {
  864. !     # We allow extension-specific hints files.
  865.   
  866.       # First we look for the best hintsfile we have
  867.       my(@goodhints);
  868. ***************
  869. *** 300,312 ****
  870.       closedir DIR;
  871.       return unless @goodhints; # There was no hintsfile
  872.       # the last one in lexical ordering is our choice:
  873. !     $hint=(reverse sort @goodhints)[0];
  874.   
  875.       # execute the hintsfile:
  876.       open HINTS, "hints/$hint.pl";
  877.       @goodhints = <HINTS>;
  878.       close HINTS;
  879.       eval join('',@goodhints);
  880.   }
  881.   
  882.   # Setup dummy package:
  883. --- 298,312 ----
  884.       closedir DIR;
  885.       return unless @goodhints; # There was no hintsfile
  886.       # the last one in lexical ordering is our choice:
  887. !     $hint=(sort @goodhints)[-1];
  888.   
  889.       # execute the hintsfile:
  890.       open HINTS, "hints/$hint.pl";
  891.       @goodhints = <HINTS>;
  892.       close HINTS;
  893. +     print STDOUT "Processing hints file hints/$hint.pl";
  894.       eval join('',@goodhints);
  895. +     print STDOUT $@ if $@;
  896.   }
  897.   
  898.   # Setup dummy package:
  899. ***************
  900. *** 444,450 ****
  901.    dynamic_lib:    {ARMAYBE => 'ar', OTHERLDFLAGS => '...'}
  902.    clean:        {FILES => "*.xyz foo"}
  903.    realclean:    {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
  904. !  distclean:    {TARNAME=>'MyTarFile', TARFLAGS=>'cvfF', COMPRESS=>'gzip'}
  905.    tool_autosplit:    {MAXLEN => 8}
  906.   END
  907.   
  908. --- 444,450 ----
  909.    dynamic_lib:    {ARMAYBE => 'ar', OTHERLDFLAGS => '...'}
  910.    clean:        {FILES => "*.xyz foo"}
  911.    realclean:    {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
  912. !  dist:        {TARNAME=>'MyTarFile', TARFLAGS=>'cvfF', COMPRESS=>'gzip'}
  913.    tool_autosplit:    {MAXLEN => 8}
  914.   END
  915.   
  916. ***************
  917. *** 478,484 ****
  918.       'subdirs'        => {},
  919.       'clean'        => {},
  920.       'realclean'        => {},
  921. !     'distclean'        => {},
  922.       'test'        => {},
  923.       'install'        => {},
  924.       'force'        => {},
  925. --- 478,484 ----
  926.       'subdirs'        => {},
  927.       'clean'        => {},
  928.       'realclean'        => {},
  929. !     'dist'        => {},
  930.       'test'        => {},
  931.       'install'        => {},
  932.       'force'        => {},
  933. ***************
  934. *** 534,539 ****
  935. --- 534,542 ----
  936.   
  937.       parse_args(\%att, @ARGV);
  938.       my(%initial_att) = %att; # record initial attributes
  939. + 
  940. +     check_hints();
  941. + 
  942.       my($key);
  943.   
  944.       MY->init_main();
  945. ***************
  946. *** 570,576 ****
  947.       } else {
  948.           my(%a) = %{$att{$section} || {}};
  949.           print MAKE "\n# --- MakeMaker $section section:";
  950. !         print MAKE "# ",%a if $Verbose;
  951.           print(MAKE MY->nicetext(MY->$section( %a )));
  952.       }
  953.       }
  954. --- 573,579 ----
  955.       } else {
  956.           my(%a) = %{$att{$section} || {}};
  957.           print MAKE "\n# --- MakeMaker $section section:";
  958. !         print MAKE "# ", join ", ", %a if $Verbose;
  959.           print(MAKE MY->nicetext(MY->$section( %a )));
  960.       }
  961.       }
  962. ***************
  963. *** 1003,1009 ****
  964.   sub find_perl{
  965.       my($self, $ver, $names, $dirs, $trace) = @_;
  966.       my($name, $dir);
  967. !     if ($trace){
  968.       print "Looking for perl $ver by these names: ";
  969.       print "@$names, ";
  970.       print "in these dirs:";
  971. --- 1006,1012 ----
  972.   sub find_perl{
  973.       my($self, $ver, $names, $dirs, $trace) = @_;
  974.       my($name, $dir);
  975. !     if ($trace >= 2){
  976.       print "Looking for perl $ver by these names: ";
  977.       print "@$names, ";
  978.       print "in these dirs:";
  979. ***************
  980. *** 1017,1023 ****
  981.             $name .= ".exe" unless -x "$dir/$name";
  982.           }
  983.           next unless -x "$dir/$name";
  984. !         print "Executing $dir/$name" if ($trace);
  985.           my($out);
  986.           if ($Is_VMS) {
  987.             my($vmscmd) = 'MCR ' . vmsify("$dir/$name");
  988. --- 1020,1026 ----
  989.             $name .= ".exe" unless -x "$dir/$name";
  990.           }
  991.           next unless -x "$dir/$name";
  992. !         print "Executing $dir/$name" if ($trace >= 2);
  993.           my($out);
  994.           if ($Is_VMS) {
  995.             my($vmscmd) = 'MCR ' . vmsify("$dir/$name");
  996. ***************
  997. *** 1025,1031 ****
  998.           } else {
  999.             $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  1000.           }
  1001. !         return "$dir/$name" if $out =~ /VER_OK/;
  1002.       }
  1003.       }
  1004.       print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
  1005. --- 1028,1037 ----
  1006.           } else {
  1007.             $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  1008.           }
  1009. !         if ($out =~ /VER_OK/) {
  1010. !         print "Using $dir/$name" if $trace;
  1011. !         return "$dir/$name";
  1012. !         }
  1013.       }
  1014.       }
  1015.       print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
  1016. ***************
  1017. *** 1223,1228 ****
  1018. --- 1229,1235 ----
  1019.       ."Please notify perl5-porters\@nicoh.com\n";
  1020.       }
  1021.       my($cccmd)=($old) ? $old : $new;
  1022. +     $cccmd =~ s/\b\Q$Config{'cc'}\E\b/\$(CC)/;
  1023.       "CCCMD = $cccmd\n";
  1024.   }
  1025.   
  1026. ***************
  1027. *** 1617,1624 ****
  1028.       # This method provides a mechanism to automatically deal with
  1029.       # subdirectories containing further Makefile.PL scripts.
  1030.       # It calls the subdir_x() method for each subdirectory.
  1031. !     foreach(<*/Makefile.PL>){
  1032. !     s:/Makefile\.PL$:: ;
  1033.       print "Including $_ subdirectory" if ($Verbose);
  1034.       push(@m, MY->subdir_x($_));
  1035.       }
  1036. --- 1624,1632 ----
  1037.       # This method provides a mechanism to automatically deal with
  1038.       # subdirectories containing further Makefile.PL scripts.
  1039.       # It calls the subdir_x() method for each subdirectory.
  1040. !     foreach(grep -d, &lsdir()){
  1041. !     next if /^\./;
  1042. !     next unless -f "$_/Makefile\.PL" ;
  1043.       print "Including $_ subdirectory" if ($Verbose);
  1044.       push(@m, MY->subdir_x($_));
  1045.       }
  1046. ***************
  1047. *** 1718,1724 ****
  1048.   }
  1049.   
  1050.   
  1051. ! sub distclean {
  1052.       my($self, %attribs) = @_;
  1053.       # VERSION should be sanitised before use as a file name
  1054.       my($tarname)  = $attribs{TARNAME}  || '$(DISTNAME)-$(VERSION)';
  1055. --- 1726,1732 ----
  1056.   }
  1057.   
  1058.   
  1059. ! sub dist {
  1060.       my($self, %attribs) = @_;
  1061.       # VERSION should be sanitised before use as a file name
  1062.       my($tarname)  = $attribs{TARNAME}  || '$(DISTNAME)-$(VERSION)';
  1063. ***************
  1064. *** 1728,1734 ****
  1065.       my($postop)   = $attribs{POSTOP} || '@:';
  1066.       my($mkfiles)  = join(' ', map("$_/$att{MAKEFILE} $_/$att{MAKEFILE}.old", ".", @{$att{DIR}}));
  1067.       "
  1068. ! distclean:     clean
  1069.       $preop
  1070.       $att{RM_F} $mkfiles
  1071.       cd .. && tar $tarflags $tarname.tar \$(BASEEXT)
  1072. --- 1736,1742 ----
  1073.       my($postop)   = $attribs{POSTOP} || '@:';
  1074.       my($mkfiles)  = join(' ', map("$_/$att{MAKEFILE} $_/$att{MAKEFILE}.old", ".", @{$att{DIR}}));
  1075.       "
  1076. ! dist:     clean
  1077.       $preop
  1078.       $att{RM_F} $mkfiles
  1079.       cd .. && tar $tarflags $tarname.tar \$(BASEEXT)
  1080. ***************
  1081. *** 1913,1919 ****
  1082.       $cccmd .= " $Config{'cccdlflags'}" if ($Config{'d_shrplib'});
  1083.   
  1084.       # The front matter of the linkcommand...
  1085. !     $linkcmd = join ' ', $Config{'cc'},
  1086.           grep($_, @Config{qw(large split ldflags ccdlflags)});
  1087.       $linkcmd =~ s/\s+/ /g;
  1088.   
  1089. --- 1921,1927 ----
  1090.       $cccmd .= " $Config{'cccdlflags'}" if ($Config{'d_shrplib'});
  1091.   
  1092.       # The front matter of the linkcommand...
  1093. !     $linkcmd = join ' ', "\$(CC)",
  1094.           grep($_, @Config{qw(large split ldflags ccdlflags)});
  1095.       $linkcmd =~ s/\s+/ /g;
  1096.   
  1097. ***************
  1098. *** 1935,1941 ****
  1099.       for (sort keys %static) {
  1100.       next unless /\.a$/;
  1101.       $_ = dirname($_) . "/extralibs.ld";
  1102. !     push @$extra, "`cat $_`";
  1103.       }
  1104.   
  1105.       grep(s/^/-I/, @$perlinc);
  1106. --- 1943,1949 ----
  1107.       for (sort keys %static) {
  1108.       next unless /\.a$/;
  1109.       $_ = dirname($_) . "/extralibs.ld";
  1110. !     push @$extra, $_;
  1111.       }
  1112.   
  1113.       grep(s/^/-I/, @$perlinc);
  1114. ***************
  1115. *** 1951,1957 ****
  1116.   MAP_PERLINC   = @{$perlinc}
  1117.   MAP_STATIC    = ",
  1118.   join(" ", sort keys %static), "
  1119. - MAP_EXTRA     = @{$extra}
  1120.   MAP_PRELIBS   = $Config{'libs'} $Config{'cryptlib'}
  1121.   ";
  1122.   
  1123. --- 1959,1964 ----
  1124. ***************
  1125. *** 1969,1976 ****
  1126.   ";
  1127.   
  1128.       push @m, "
  1129. ! \$(MAP_TARGET): $tmp/perlmain.o \$(MAP_LIBPERL) \$(MAP_STATIC)
  1130. !     \$(MAP_LINKCMD) -o \$\@ $tmp/perlmain.o \$(MAP_LIBPERL) \$(MAP_STATIC) \$(MAP_EXTRA) \$(MAP_PRELIBS)
  1131.       @ echo 'To install the new \"\$(MAP_TARGET)\" binary, call'
  1132.       @ echo '    make -f $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
  1133.       @ echo 'To remove the intermediate files say'
  1134. --- 1976,1993 ----
  1135.   ";
  1136.   
  1137.       push @m, "
  1138. ! extralibs.ld: @$extra
  1139. !     \@ $att{RM_F} \$\@
  1140. !     \@ \$(TOUCH) \$\@
  1141. ! ";
  1142. ! 
  1143. !     foreach (@$extra){
  1144. !     push @m, "\tcat $_ >> \$\@\n";
  1145. !     }
  1146. ! 
  1147. !     push @m, "
  1148. ! \$(MAP_TARGET): $tmp/perlmain.o \$(MAP_LIBPERL) \$(MAP_STATIC) extralibs.ld
  1149. !     \$(MAP_LINKCMD) -o \$\@ $tmp/perlmain.o \$(MAP_LIBPERL) \$(MAP_STATIC) `cat extralibs.ld` \$(MAP_PRELIBS)
  1150.       @ echo 'To install the new \"\$(MAP_TARGET)\" binary, call'
  1151.       @ echo '    make -f $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
  1152.       @ echo 'To remove the intermediate files say'
  1153. ***************
  1154. *** 1988,1999 ****
  1155.   
  1156.   };
  1157.   
  1158. ! # We write MAP_EXTRA outside the perl program to have it eval'd by the shell
  1159.       push @m, q{
  1160.   doc_inst_perl:
  1161.       @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary",' \\
  1162.           -e '"$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)",' \\
  1163. !         -e '"MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' -- $(MAP_EXTRA)
  1164.   };
  1165.   
  1166.       push @m, qq{
  1167. --- 2005,2016 ----
  1168.   
  1169.   };
  1170.   
  1171. ! # We write EXTRA outside the perl program to have it eval'd by the shell
  1172.       push @m, q{
  1173.   doc_inst_perl:
  1174.       @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary",' \\
  1175.           -e '"$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)",' \\
  1176. !         -e '"MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' -- `cat extralibs.ld`
  1177.   };
  1178.   
  1179.       push @m, qq{
  1180. ***************
  1181. *** 2004,2009 ****
  1182. --- 2021,2028 ----
  1183.   
  1184.   realclean :: map_clean
  1185.   
  1186. + distclean :: realclean
  1187. + 
  1188.   map_clean :
  1189.       $att{RM_F} $tmp/perlmain.o $tmp/perlmain.c $makefilename
  1190.   };
  1191. ***************
  1192. *** 2068,2079 ****
  1193.           # For gcc-2.6.2 on linux (March 1995), DLD can not load
  1194.           # .sa libraries, with the exception of libm.sa, so we
  1195.           # deliberately skip them.
  1196. !         if (@fullname=<${thispth}/lib${thislib}.${so}.[0-9]*>){
  1197. !         $fullname=$fullname[-1]; #ATTN: 10 looses against 9!
  1198.           } elsif (-f ($fullname="$thispth/lib$thislib.$so")
  1199. !              && (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
  1200.           } elsif (-f ($fullname="$thispth/lib${thislib}_s.a")
  1201. !              && ($thislib .= "_s") ){ # we must explicitly ask for _s version
  1202.           } elsif (-f ($fullname="$thispth/lib$thislib.a")){
  1203.           } elsif (-f ($fullname="$thispth/Slib$thislib.a")){
  1204.           } else {
  1205. --- 2087,2120 ----
  1206.           # For gcc-2.6.2 on linux (March 1995), DLD can not load
  1207.           # .sa libraries, with the exception of libm.sa, so we
  1208.           # deliberately skip them.
  1209. !         if (@fullname = lsdir($thispth,"^lib$thislib\.$so\.[0-9]+")){
  1210. !         # Take care that libfoo.so.10 wins against libfoo.so.9.
  1211. !         # Compare two libraries to find the most recent version
  1212. !         # number.  E.g.  if you have libfoo.so.9.0.7 and
  1213. !         # libfoo.so.10.1, first convert all digits into two
  1214. !         # decimal places.  Then we'll add ".00" to the shorter
  1215. !         # strings so that we're comparing strings of equal length
  1216. !         # Thus we'll compare libfoo.so.09.07.00 with
  1217. !         # libfoo.so.10.01.00.  Some libraries might have letters
  1218. !         # in the version.  We don't know what they mean, but will
  1219. !         # try to skip them gracefully -- we'll set any letter to
  1220. !         # '0'.  Finally, sort in reverse so we can take the
  1221. !         # first element.
  1222. !         $fullname = "$thispth/" .
  1223. !         (sort { my($ma) = $a;
  1224. !             my($mb) = $b;
  1225. !             $ma =~ tr/A-Za-z/0/s;
  1226. !             $ma =~ s/\b(\d)\b/0$1/g;
  1227. !             $mb =~ tr/A-Za-z/0/s;
  1228. !             $mb =~ s/\b(\d)\b/0$1/g;
  1229. !             while (length($ma) < length($mb)) { $ma .= ".00"; }
  1230. !             while (length($mb) < length($ma)) { $mb .= ".00"; }
  1231. !             # Comparison deliberately backwards
  1232. !             $mb cmp $ma;} @fullname)[0];
  1233.           } elsif (-f ($fullname="$thispth/lib$thislib.$so")
  1234. !          && (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
  1235.           } elsif (-f ($fullname="$thispth/lib${thislib}_s.a")
  1236. !          && ($thislib .= "_s") ){ # we must explicitly use _s version
  1237.           } elsif (-f ($fullname="$thispth/lib$thislib.a")){
  1238.           } elsif (-f ($fullname="$thispth/Slib$thislib.a")){
  1239.           } else {
  1240. ***************
  1241. *** 2092,2103 ****
  1242.   
  1243.           # Do not add it into the list if it is already linked in
  1244.           # with the main perl executable.
  1245. !         # We have to special-case the NeXT, because all the math is also in libsys_s
  1246. !         unless ( $in_perl || ($Config{'osname'} eq 'next' && $thislib eq 'm') ){
  1247.           push(@extralibs, "-l$thislib");
  1248.           }
  1249.   
  1250. - 
  1251.           # We might be able to load this archive file dynamically
  1252.           if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
  1253.           # We push -l$thislib instead of $fullname because
  1254. --- 2133,2145 ----
  1255.   
  1256.           # Do not add it into the list if it is already linked in
  1257.           # with the main perl executable.
  1258. !         # We have to special-case the NeXT, because all the math 
  1259. !         # is also in libsys_s
  1260. !         unless ($in_perl || 
  1261. !             ($Config{'osname'} eq 'next' && $thislib eq 'm') ){
  1262.           push(@extralibs, "-l$thislib");
  1263.           }
  1264.   
  1265.           # We might be able to load this archive file dynamically
  1266.           if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
  1267.           # We push -l$thislib instead of $fullname because
  1268. ***************
  1269. *** 2120,2126 ****
  1270.           }
  1271.           last;    # found one here so don't bother looking further
  1272.       }
  1273. !     print STDOUT "Warning (non-fatal): No library found for -l$thislib" unless $found_lib>0;
  1274.       }
  1275.       return ('','','') unless $found;
  1276.       ("@extralibs", "@bsloadlibs", "@ldloadlibs");
  1277. --- 2162,2169 ----
  1278.           }
  1279.           last;    # found one here so don't bother looking further
  1280.       }
  1281. !     print STDOUT "Warning (non-fatal): No library found for -l$thislib" 
  1282. !         unless $found_lib>0;
  1283.       }
  1284.       return ('','','') unless $found;
  1285.       ("@extralibs", "@bsloadlibs", "@ldloadlibs");
  1286. ***************
  1287. *** 2393,2398 ****
  1288. --- 2436,2476 ----
  1289.   
  1290.   Another attempt to fix writedoc() from Dean Roehrich.
  1291.   
  1292. + 
  1293. + v4.092 April 11 1994 by Andreas Koenig
  1294. + 
  1295. + Fixed a docu bug in hint file description. Added printing of a warning
  1296. + from eval in the hintfile section if the eval has errors.  Moved
  1297. + check_hints() into the WriteMakefile() subroutine to avoid evaling
  1298. + hintsfiles for other uses of the module (mkbootstrap, mksymlists).
  1299. + 
  1300. + Eliminated csh globbing to work around buggy Linux csh.
  1301. + 
  1302. + In extliblist() libfoo.so.10 now wins against libfoo.so.9.
  1303. + 
  1304. + Use $(CC) instead of $Config{'cc'} everywhere to allow overriding
  1305. + according to a patch by Dean Roehrich.
  1306. + 
  1307. + Introduce a ./extralibs.ld file that contains the contents of all
  1308. + relevant extralibs.ld files for a static build to shorten the command
  1309. + line for the linking of a new static perl.
  1310. + 
  1311. + Minor cosmetics.
  1312. + 
  1313. + v4.093 April 12 1994 by Andy Dougherty
  1314. + 
  1315. + Rename distclean target to plain dist.  Insert a dummy distclean
  1316. + target that's the same as realclean.  This is more consistent with the
  1317. + main perl makefile.
  1318. + 
  1319. + Fix up extliblist() so even bizarre names like libfoo.so.10.0.1
  1320. + are handled.
  1321. + 
  1322. + Include Tim's suggestions about $verbose and more careful substitution
  1323. + of $(CC) for $Config{'cc'}.
  1324. + 
  1325. + Minor cosmetic fixes for my 80-character wide terminal.
  1326. + 
  1327.   =head1 NOTES
  1328.   
  1329.   MakeMaker development work still to be done:
  1330. ***************
  1331. *** 2401,2406 ****
  1332. --- 2479,2489 ----
  1333.   
  1334.   Add a html: target when there has been found a general solution to
  1335.   installing html files.
  1336. + 
  1337. + Add an uninstall target.
  1338. + 
  1339. + Add a FLAVOR variable that makes it easier to build debugging,
  1340. + embedded or multiplicity perls.
  1341.   
  1342.   =cut
  1343.   
  1344. Index: lib/TieHash.pm
  1345. *** perl5.001c/lib/TieHash.pm    Thu Apr  6 11:04:26 1995
  1346. --- perl5.001d/lib/TieHash.pm    Thu Apr 13 09:40:40 1995
  1347. ***************
  1348. *** 10,17 ****
  1349.   
  1350.   sub TIEHASH {
  1351.       my $pack = shift;
  1352. !     if (defined &{"{$pack}::new"}) {
  1353. !     carp "WARNING: calling ${pack}->new since ${pack}->TIEHASH is missing"
  1354.           if $^W;
  1355.       $pack->new(@_);
  1356.       }
  1357. --- 10,17 ----
  1358.   
  1359.   sub TIEHASH {
  1360.       my $pack = shift;
  1361. !     if (defined &{"$pack\::new"}) {
  1362. !     carp "WARNING: calling $pack\->new since $pack\->TIEHASH is missing"
  1363.           if $^W;
  1364.       $pack->new(@_);
  1365.       }
  1366. Index: perl.h
  1367. *** perl5.001c/perl.h    Wed Apr  5 16:43:59 1995
  1368. --- perl5.001d/perl.h    Thu Apr 13 09:29:16 1995
  1369. ***************
  1370. *** 647,657 ****
  1371. --- 647,660 ----
  1372.   #ifdef CASTI32
  1373.   #define I_32(what) ((I32)(what))
  1374.   #define I_V(what) ((IV)(what))
  1375. + #define U_V(what) ((UV)(what))
  1376.   #else
  1377.   I32 cast_i32 _((double));
  1378.   #define I_32(what) (cast_i32((double)(what)))
  1379.   IV cast_iv _((double));
  1380.   #define I_V(what) (cast_iv((double)(what)))
  1381. + UV cast_uv _((double));
  1382. + #define U_V(what) (cast_uv((double)(what)))
  1383.   #endif
  1384.   
  1385.   struct Outrec {
  1386. Index: pod/Makefile
  1387. *** perl5.001c/pod/Makefile    Thu Jan 19 19:08:44 1995
  1388. --- perl5.001d/pod/Makefile    Sat Apr 15 11:26:57 1995
  1389. ***************
  1390. *** 1,5 ****
  1391. --- 1,7 ----
  1392.   all: man
  1393.   
  1394. + PERL = ../miniperl
  1395. + 
  1396.   POD = \
  1397.       perl.pod    \
  1398.       perlapi.pod    \
  1399. ***************
  1400. *** 89,107 ****
  1401.   
  1402.   man: $(MAN)
  1403.   
  1404. ! html: $(HTML)
  1405.   
  1406.   .SUFFIXES: .pod .man
  1407.   
  1408.   .pod.man:
  1409. !     ../miniperl pod2man $*.pod >$*.man
  1410.   
  1411.   .SUFFIXES: .pod .html
  1412.   
  1413.   .pod.html:
  1414. !     ../miniperl pod2html $*.pod >$*.html
  1415.   
  1416.   clean:
  1417.       rm -f $(MAN) $(HTML)
  1418.   
  1419.   realclean:    clean
  1420. --- 91,125 ----
  1421.   
  1422.   man: $(MAN)
  1423.   
  1424. ! # pod2html runs on all the pods at once in order to build up
  1425. ! # cross-references.
  1426. ! html:
  1427. !     $(PERL) pod2html *.pod
  1428.   
  1429.   .SUFFIXES: .pod .man
  1430.   
  1431.   .pod.man:
  1432. !     $(PERL) pod2man $*.pod >$*.man
  1433.   
  1434.   .SUFFIXES: .pod .html
  1435.   
  1436.   .pod.html:
  1437. !     $(PERL) pod2html $*.pod
  1438.   
  1439.   clean:
  1440.       rm -f $(MAN) $(HTML)
  1441.   
  1442.   realclean:    clean
  1443. +     rm -f pod2man pod2latex pod2html
  1444. + 
  1445. + distclean:    realclean
  1446. + 
  1447. + # Dependencies.
  1448. + pod2latex:    pod2latex.SH ../config.sh
  1449. +     sh pod2latex.SH
  1450. + 
  1451. + pod2html:    pod2html.SH ../config.sh
  1452. +     sh pod2html.SH
  1453. + 
  1454. + pod2man:    pod2man.SH ../config.sh
  1455. +     sh pod2man.SH
  1456. Index: pod/pod2html.SH
  1457. *** perl5.001c/pod/pod2html.SH    Thu Jan 19 20:04:59 1995
  1458. --- perl5.001d/pod/pod2html.SH    Thu Apr 13 10:34:13 1995
  1459. ***************
  1460. *** 1,4 ****
  1461. ! #!/usr/bin/perl 
  1462.   #
  1463.   # pod2html - convert pod format to html
  1464.   # 
  1465. --- 1,28 ----
  1466. ! case $CONFIG in
  1467. ! '')
  1468. !     if test -f config.sh; then TOP=.;
  1469. !     elif test -f ../config.sh; then TOP=..;
  1470. !     elif test -f ../../config.sh; then TOP=../..;
  1471. !     elif test -f ../../../config.sh; then TOP=../../..;
  1472. !     elif test -f ../../../../config.sh; then TOP=../../../..;
  1473. !     else
  1474. !         echo "Can't find config.sh."; exit 1
  1475. !     fi
  1476. !     . $TOP/config.sh
  1477. !     ;;
  1478. ! esac
  1479. ! case "$0" in
  1480. ! */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1481. ! esac
  1482. ! echo "Extracting pod/pod2html (with variable substitutions)"
  1483. ! rm -f pod2html
  1484. ! $spitshell >pod2html <<!GROK!THIS!
  1485. ! #!$bin/perl
  1486. ! eval 'exec $bin/perl -S \$0 \${1+"\$@"}'
  1487. !     if \$running_under_some_shell;
  1488. ! !GROK!THIS!
  1489. ! 
  1490. ! $spitshell >>pod2html <<'!NO!SUBS!'
  1491.   #
  1492.   # pod2html - convert pod format to html
  1493.   # 
  1494. ***************
  1495. *** 46,54 ****
  1496. --- 70,80 ----
  1497.   
  1498.   # loop twice through the pods, first to learn the links, then to produce html
  1499.   for $count (0,1){
  1500. +     (print "Scanning pods...\n") unless $count;
  1501.       foreach $podfh ( @Pods ) {
  1502.       ($pod = $podfh) =~ s/\.pod$//;
  1503.       Debug("files", "opening 2 $podfh" );
  1504. +     (print "Creating $pod.html from $podfh\n") if $count;
  1505.       $RS = "\n=";
  1506.       open($podfh,"<".$podfh)  || die "can't open $podfh: $ERRNO";
  1507.       @all=<$podfh>;
  1508. ***************
  1509. *** 60,70 ****
  1510.       $in_list=0;
  1511.       $html=$pod.".html";
  1512.       if($count){
  1513. -             #open(HTML,">&STDOUT") || die "can't create $html: $ERRNO";
  1514.           open(HTML,">$html") || die "can't create $html: $ERRNO";
  1515.           print HTML <<'HTML__EOQ', <<"HTML__EOQQ";
  1516. !         <!-- $RCSfile$$Date$ -->
  1517. !         <!-- $Log$  -->
  1518.           <HTML>
  1519.   HTML__EOQ
  1520.           <TITLE> \U$pod\E </TITLE>
  1521. --- 86,95 ----
  1522.       $in_list=0;
  1523.       $html=$pod.".html";
  1524.       if($count){
  1525.           open(HTML,">$html") || die "can't create $html: $ERRNO";
  1526.           print HTML <<'HTML__EOQ', <<"HTML__EOQQ";
  1527. !         <!-- \$RCSfile\$\$Revision\$\$Date\$ -->
  1528. !         <!-- \$Log\$ -->
  1529.           <HTML>
  1530.   HTML__EOQ
  1531.           <TITLE> \U$pod\E </TITLE>
  1532. ***************
  1533. *** 77,120 ****
  1534.           ($cmd, $title, $rest) = ($1,$2,$3);
  1535.           if ($cmd eq "item") {
  1536.           if($count ){
  1537. !             ($depth) or &do_list("over",$all[$i],\$in_list,\$depth);
  1538. !             &do_item($title,$rest,$in_list);
  1539.           }
  1540.           else{
  1541.               # scan item
  1542. !             &scan_thing("item",$title,$pod);
  1543.           }
  1544.           }
  1545.           elsif ($cmd =~ /^head([12])/){
  1546.           $num=$1;
  1547.           if($count){
  1548. !             &do_hdr($num,$title,$rest,$depth);
  1549.           }
  1550.           else{
  1551.               # header scan
  1552. !             &scan_thing($cmd,$title,$pod); # skip head1
  1553.           }
  1554.           }
  1555.           elsif ($cmd =~ /^over/) {
  1556. !         $depth and &do_list("over",$all[$i+1],\$in_list,\$depth);
  1557.           }
  1558.           elsif ($cmd =~ /^back/) {
  1559.           if($count){
  1560.               ($depth) or next; # just skip it
  1561. !             &do_list("back",$all[$i+1],\$in_list,\$depth);
  1562. !             &do_rest("$title.$rest");
  1563.           }
  1564.           }
  1565.           elsif ($cmd =~ /^cut/) {
  1566. !         &do_rest($rest);
  1567.           }
  1568. !         else {
  1569. !         warn "unrecognized header: $cmd";
  1570.           }
  1571.       }
  1572.       if($count){
  1573.           while($depth){
  1574. !          &do_list("back",$all[$i+1],\$in_list,\$depth);
  1575.           }
  1576.           print HTML "\n</HTML>\n";
  1577.       }
  1578. --- 102,146 ----
  1579.           ($cmd, $title, $rest) = ($1,$2,$3);
  1580.           if ($cmd eq "item") {
  1581.           if($count ){
  1582. !             ($depth) or do_list("over",$all[$i],\$in_list,\$depth);
  1583. !             do_item($title,$rest,$in_list);
  1584.           }
  1585.           else{
  1586.               # scan item
  1587. !             scan_thing("item",$title,$pod);
  1588.           }
  1589.           }
  1590.           elsif ($cmd =~ /^head([12])/){
  1591.           $num=$1;
  1592.           if($count){
  1593. !             do_hdr($num,$title,$rest,$depth);
  1594.           }
  1595.           else{
  1596.               # header scan
  1597. !             scan_thing($cmd,$title,$pod); # skip head1
  1598.           }
  1599.           }
  1600.           elsif ($cmd =~ /^over/) {
  1601. !         $count and $depth and do_list("over",$all[$i+1],\$in_list,\$depth);
  1602.           }
  1603.           elsif ($cmd =~ /^back/) {
  1604.           if($count){
  1605.               ($depth) or next; # just skip it
  1606. !             do_list("back",$all[$i+1],\$in_list,\$depth);
  1607. !             do_rest("$title.$rest");
  1608.           }
  1609.           }
  1610.           elsif ($cmd =~ /^cut/) {
  1611. !         next;
  1612.           }
  1613. !         elsif($Debug){
  1614. !         (warn "unrecognized header: $cmd") if $Debug;
  1615.           }
  1616.       }
  1617. +         # close open lists without '=back' stmts
  1618.       if($count){
  1619.           while($depth){
  1620. !          do_list("back",$all[$i+1],\$in_list,\$depth);
  1621.           }
  1622.           print HTML "\n</HTML>\n";
  1623.       }
  1624. ***************
  1625. *** 125,131 ****
  1626.       my($which,$next_one,$list_type,$depth)=@_;
  1627.       my($key);
  1628.       if($which eq "over"){
  1629. !     ($next_one =~ /^item\s+(.*)/ ) or warn "Bad list, $1\n";
  1630.       $key=$1;
  1631.       if($key =~ /^1\.?/){
  1632.       $$list_type = "OL";
  1633. --- 151,157 ----
  1634.       my($which,$next_one,$list_type,$depth)=@_;
  1635.       my($key);
  1636.       if($which eq "over"){
  1637. !     ($next_one =~ /^item\s+(.*)/ ) or (warn "Bad list, $1\n") if $Debug;
  1638.       $key=$1;
  1639.       if($key =~ /^1\.?/){
  1640.       $$list_type = "OL";
  1641. ***************
  1642. *** 137,143 ****
  1643.       $$list_type="DL";
  1644.       }
  1645.       else{
  1646. !     warn "unknown list type for item $key";
  1647.       }
  1648.       print HTML qq{\n};
  1649.       print HTML qq{<$$list_type>};
  1650. --- 163,169 ----
  1651.       $$list_type="DL";
  1652.       }
  1653.       else{
  1654. !     (warn "unknown list type for item $key") if $Debug;
  1655.       }
  1656.       print HTML qq{\n};
  1657.       print HTML qq{<$$list_type>};
  1658. ***************
  1659. *** 152,167 ****
  1660.   sub do_hdr{
  1661.       my($num,$title,$rest,$depth)=@_;
  1662.       ($num == 1) and print HTML qq{<p><hr>\n};
  1663. !     &process_thing(\$title,"NAME");
  1664.       print HTML qq{\n<H$num> };
  1665.       print HTML $title; 
  1666.       print HTML qq{</H$num>\n};
  1667. !     &do_rest($rest);
  1668.   }
  1669.   
  1670.   sub do_item{
  1671.       my($title,$rest,$list_type)=@_;
  1672. !     &process_thing(\$title,"NAME");
  1673.       if($list_type eq "DL"){
  1674.       print HTML qq{\n<DT><STRONG>\n};
  1675.       print HTML $title; 
  1676. --- 178,193 ----
  1677.   sub do_hdr{
  1678.       my($num,$title,$rest,$depth)=@_;
  1679.       ($num == 1) and print HTML qq{<p><hr>\n};
  1680. !     process_thing(\$title,"NAME");
  1681.       print HTML qq{\n<H$num> };
  1682.       print HTML $title; 
  1683.       print HTML qq{</H$num>\n};
  1684. !     do_rest($rest);
  1685.   }
  1686.   
  1687.   sub do_item{
  1688.       my($title,$rest,$list_type)=@_;
  1689. !     process_thing(\$title,"NAME");
  1690.       if($list_type eq "DL"){
  1691.       print HTML qq{\n<DT><STRONG>\n};
  1692.       print HTML $title; 
  1693. ***************
  1694. *** 172,184 ****
  1695.       print HTML qq{\n<LI>};
  1696.       ($list_type ne "OL") && (print HTML $title,"\n");
  1697.       }
  1698. !     &do_rest($rest);
  1699.       print HTML ($list_type eq "DL" )? qq{</DD>} : qq{</LI>};
  1700.   }
  1701.   
  1702.   sub do_rest{
  1703.       my($rest)=@_;
  1704. !     my(@lines,$p,$q,$line,@paras,$inpre);
  1705.       @paras=split(/\n\n+/,$rest);
  1706.       for($p=0;$p<=$#paras;$p++){
  1707.       @lines=split(/\n/,$paras[$p]);
  1708. --- 198,210 ----
  1709.       print HTML qq{\n<LI>};
  1710.       ($list_type ne "OL") && (print HTML $title,"\n");
  1711.       }
  1712. !     do_rest($rest);
  1713.       print HTML ($list_type eq "DL" )? qq{</DD>} : qq{</LI>};
  1714.   }
  1715.   
  1716.   sub do_rest{
  1717.       my($rest)=@_;
  1718. !     my(@lines,$p,$q,$line,,@paras,$inpre);
  1719.       @paras=split(/\n\n+/,$rest);
  1720.       for($p=0;$p<=$#paras;$p++){
  1721.       @lines=split(/\n/,$paras[$p]);
  1722. ***************
  1723. *** 207,219 ****
  1724.           foreach $q (@lines){
  1725.               if($paras[$p]=~/>>|<</){
  1726.               if($inpre){
  1727. !                 &process_thing(\$q,"HTML");
  1728.               }
  1729.               else {
  1730.                   print HTML qq{\n</XMP>\n};
  1731.                   print HTML qq{<PRE>\n};
  1732.                   $inpre=1;
  1733. !                 &process_thing(\$q,"HTML");
  1734.               }
  1735.               }
  1736.               while($q =~  s/\t+/' 'x (length($&) * 8 - length($`) % 8)/e){
  1737. --- 233,245 ----
  1738.           foreach $q (@lines){
  1739.               if($paras[$p]=~/>>|<</){
  1740.               if($inpre){
  1741. !                 process_thing(\$q,"HTML");
  1742.               }
  1743.               else {
  1744.                   print HTML qq{\n</XMP>\n};
  1745.                   print HTML qq{<PRE>\n};
  1746.                   $inpre=1;
  1747. !                 process_thing(\$q,"HTML");
  1748.               }
  1749.               }
  1750.               while($q =~  s/\t+/' 'x (length($&) * 8 - length($`) % 8)/e){
  1751. ***************
  1752. *** 229,235 ****
  1753.       else{                             # other text
  1754.           @lines=split(/\n/,$paras[$p]);
  1755.           foreach $line (@lines){
  1756. !                 &process_thing(\$line,"HTML");
  1757.           print HTML qq{$line\n};
  1758.           }
  1759.       }
  1760. --- 255,261 ----
  1761.       else{                             # other text
  1762.           @lines=split(/\n/,$paras[$p]);
  1763.           foreach $line (@lines){
  1764. !                 process_thing(\$line,"HTML");
  1765.           print HTML qq{$line\n};
  1766.           }
  1767.       }
  1768. ***************
  1769. *** 239,247 ****
  1770.   
  1771.   sub process_thing{
  1772.       my($thing,$htype)=@_;
  1773. !     &pre_escapes($thing);
  1774. !     &find_refs($thing,$htype);
  1775. !     &post_escapes($thing);
  1776.   }
  1777.   
  1778.   sub scan_thing{
  1779. --- 265,273 ----
  1780.   
  1781.   sub process_thing{
  1782.       my($thing,$htype)=@_;
  1783. !     pre_escapes($thing);
  1784. !     find_refs($thing,$htype);
  1785. !     post_escapes($thing);
  1786.   }
  1787.   
  1788.   sub scan_thing{
  1789. ***************
  1790. *** 284,290 ****
  1791.           Debug("headers", "header $_");
  1792.       } 
  1793.       else {
  1794. !         warn "unrecognized header: $cmd";
  1795.       } 
  1796.   }
  1797.   
  1798. --- 310,316 ----
  1799.           Debug("headers", "header $_");
  1800.       } 
  1801.       else {
  1802. !         (warn "unrecognized header: $cmd") if $Debug;
  1803.       } 
  1804.   }
  1805.   
  1806. ***************
  1807. *** 316,324 ****
  1808.       }
  1809.       if ($char =~ /[IF]/) {
  1810.       return "<EM> $bigkey </EM>";
  1811.       } else {
  1812.       return "<STRONG> $bigkey </STRONG>";
  1813. !     } 
  1814.   } 
  1815.   
  1816.   sub find_refs { 
  1817. --- 342,352 ----
  1818.       }
  1819.       if ($char =~ /[IF]/) {
  1820.       return "<EM> $bigkey </EM>";
  1821. +     } elsif($char =~ /C/) {
  1822. +     return "<CODE> $bigkey </CODE>";
  1823.       } else {
  1824.       return "<STRONG> $bigkey </STRONG>";
  1825. !     }
  1826.   } 
  1827.   
  1828.   sub find_refs { 
  1829. ***************
  1830. *** 329,335 ****
  1831.       $$thing=~s/L<([^>]*)>/lrefs($1,$htype)/ge;
  1832.       $$thing=~s/([CIBF])<(\W*?(-?\w*).*?)>/picrefs($1, $2, $3, $htype)/ge;
  1833.       $$thing=~s/((\w+)\(\))/picrefs("I", $1, $2,$htype)/ge;
  1834. !     $$thing=~s/([\$\@%]([\w:]+|\W\b))/varrefs($1,$htype)/ge;
  1835.       (($$thing eq $orig) && ($htype eq "NAME")) && 
  1836.       ($$thing=picrefs("I", $$thing, "", $htype));
  1837.   }
  1838. --- 357,363 ----
  1839.       $$thing=~s/L<([^>]*)>/lrefs($1,$htype)/ge;
  1840.       $$thing=~s/([CIBF])<(\W*?(-?\w*).*?)>/picrefs($1, $2, $3, $htype)/ge;
  1841.       $$thing=~s/((\w+)\(\))/picrefs("I", $1, $2,$htype)/ge;
  1842. !     $$thing=~s/([\$\@%](?!&[gl]t)([\w:]+|\W\b))/varrefs($1,$htype)/ge;
  1843.       (($$thing eq $orig) && ($htype eq "NAME")) && 
  1844.       ($$thing=picrefs("I", $$thing, "", $htype));
  1845.   }
  1846. ***************
  1847. *** 354,360 ****
  1848.           if (!defined $section && defined $Podnames{$page}) {
  1849.           return "\n$type$page.html\">\nthe <EM> $page </EM> manpage<\/A>\n";
  1850.       } else {
  1851. !         warn "Bizarre entry $page/$item";
  1852.           return "the <EM> $_[0] </EM>  manpage\n";
  1853.       } 
  1854.       } 
  1855. --- 382,388 ----
  1856.           if (!defined $section && defined $Podnames{$page}) {
  1857.           return "\n$type$page.html\">\nthe <EM> $page </EM> manpage<\/A>\n";
  1858.       } else {
  1859. !         (warn "Bizarre entry $page/$item") if $Debug;
  1860.           return "the <EM> $_[0] </EM>  manpage\n";
  1861.       } 
  1862.       } 
  1863. ***************
  1864. *** 385,391 ****
  1865.               }
  1866.       }
  1867.       }
  1868. !     warn "No $ref reference for $item (@_)";
  1869.       return $text;
  1870.   } 
  1871.   
  1872. --- 413,419 ----
  1873.               }
  1874.       }
  1875.       }
  1876. !     (warn "No $ref reference for $item (@_)") if $Debug;
  1877.       return $text;
  1878.   } 
  1879.   
  1880. ***************
  1881. *** 433,439 ****
  1882.   sub post_escapes {
  1883.       my($thing)=@_;
  1884.       $$thing=~s/[^GM]>>/\>\;\>\;/g;
  1885. !     $$thing=~s/([^"MGA])>/$1\>\;/g;
  1886.       $$thing=~tr/\200-\377/\000-\177/;
  1887.   }
  1888.   
  1889. --- 461,467 ----
  1890.   sub post_escapes {
  1891.       my($thing)=@_;
  1892.       $$thing=~s/[^GM]>>/\>\;\>\;/g;
  1893. !     $$thing=~s/([^"MGAE])>/$1\>\;/g;
  1894.       $$thing=~tr/\200-\377/\000-\177/;
  1895.   }
  1896.   
  1897. ***************
  1898. *** 457,459 ****
  1899. --- 485,490 ----
  1900.   }
  1901.   
  1902.   
  1903. + !NO!SUBS!
  1904. + chmod 755 pod2html
  1905. + $eunicefix pod2html
  1906. Index: pod/pod2latex.SH
  1907. *** perl5.001c/pod/pod2latex.SH    Sat Mar 11 16:55:04 1995
  1908. --- perl5.001d/pod/pod2latex.SH    Thu Apr 13 12:20:39 1995
  1909. ***************
  1910. *** 1,4 ****
  1911. ! #!/usr/bin/perl
  1912.   # pod2latex, version 1.1
  1913.   # by Taro Kawagish (kawagish@imslab.co.jp),  Jan 11, 1995.
  1914.   #
  1915. --- 1,29 ----
  1916. ! case $CONFIG in
  1917. ! '')
  1918. !     if test -f config.sh; then TOP=.;
  1919. !     elif test -f ../config.sh; then TOP=..;
  1920. !     elif test -f ../../config.sh; then TOP=../..;
  1921. !     elif test -f ../../../config.sh; then TOP=../../..;
  1922. !     elif test -f ../../../../config.sh; then TOP=../../../..;
  1923. !     else
  1924. !         echo "Can't find config.sh."; exit 1
  1925. !     fi
  1926. !     . $TOP/config.sh
  1927. !     ;;
  1928. ! esac
  1929. ! case "$0" in
  1930. ! */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1931. ! esac
  1932. ! echo "Extracting pod/pod2latex (with variable substitutions)"
  1933. ! rm -f pod2latex
  1934. ! $spitshell >pod2latex <<!GROK!THIS!
  1935. ! #!$bin/perl
  1936. ! eval 'exec $bin/perl -S \$0 \${1+"\$@"}'
  1937. !     if \$running_under_some_shell;
  1938. ! !GROK!THIS!
  1939. ! 
  1940. ! $spitshell >>pod2latex <<'!NO!SUBS!'
  1941. ! #
  1942.   # pod2latex, version 1.1
  1943.   # by Taro Kawagish (kawagish@imslab.co.jp),  Jan 11, 1995.
  1944.   #
  1945. ***************
  1946. *** 630,632 ****
  1947. --- 655,660 ----
  1948.       "yuml"    =>    '\\"{y}',    #   small y, dieresis or umlaut mark
  1949.   );
  1950.   }
  1951. + !NO!SUBS!
  1952. + chmod 755 pod2latex
  1953. + $eunicefix pod2latex
  1954. Index: pod/pod2man.SH
  1955. Prereq:  1.5 
  1956. *** perl5.001c/pod/pod2man.SH    Wed Feb  8 19:10:04 1995
  1957. --- perl5.001d/pod/pod2man.SH    Thu Apr 13 10:34:04 1995
  1958. ***************
  1959. *** 1,4 ****
  1960. ! #!/usr/bin/perl
  1961.   
  1962.   $/ = "";
  1963.   $cutting = 1;
  1964. --- 1,28 ----
  1965. ! case $CONFIG in
  1966. ! '')
  1967. !     if test -f config.sh; then TOP=.;
  1968. !     elif test -f ../config.sh; then TOP=..;
  1969. !     elif test -f ../../config.sh; then TOP=../..;
  1970. !     elif test -f ../../../config.sh; then TOP=../../..;
  1971. !     elif test -f ../../../../config.sh; then TOP=../../../..;
  1972. !     else
  1973. !         echo "Can't find config.sh."; exit 1
  1974. !     fi
  1975. !     . $TOP/config.sh
  1976. !     ;;
  1977. ! esac
  1978. ! case "$0" in
  1979. ! */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1980. ! esac
  1981. ! echo "Extracting pod/pod2man (with variable substitutions)"
  1982. ! rm -f pod2man
  1983. ! $spitshell >pod2man <<!GROK!THIS!
  1984. ! #!$bin/perl
  1985. ! eval 'exec $bin/perl -S \$0 \${1+"\$@"}'
  1986. !     if \$running_under_some_shell;
  1987. ! !GROK!THIS!
  1988. ! 
  1989. ! $spitshell >>pod2man <<'!NO!SUBS!'
  1990.   
  1991.   $/ = "";
  1992.   $cutting = 1;
  1993. ***************
  1994. *** 623,625 ****
  1995. --- 647,652 ----
  1996.       "yuml"    =>    "y\\*:",    #   small y, dieresis or umlaut mark
  1997.   );
  1998.   }
  1999. + !NO!SUBS!
  2000. + chmod 755 pod2man
  2001. + $eunicefix pod2man
  2002. Index: pp_hot.c
  2003. *** perl5.001c/pp_hot.c    Thu Mar 16 10:23:30 1995
  2004. --- perl5.001d/pp_hot.c    Fri Apr 14 10:01:21 1995
  2005. ***************
  2006. *** 1560,1565 ****
  2007. --- 1560,1566 ----
  2008.       HV *stash;
  2009.       register CV *cv;
  2010.       register CONTEXT *cx;
  2011. +     I32 gimme;
  2012.   
  2013.       if (!sv)
  2014.       DIE("Not a CODE reference");
  2015. ***************
  2016. *** 1632,1637 ****
  2017. --- 1633,1640 ----
  2018.           DIE("No DBsub routine");
  2019.       }
  2020.   
  2021. +     gimme = GIMME;
  2022. + 
  2023.       if (CvXSUB(cv)) {
  2024.       if (CvOLDSTYLE(cv)) {
  2025.           I32 (*fp3)_((int,int,int));
  2026. ***************
  2027. *** 1655,1661 ****
  2028.           (void)(*CvXSUB(cv))(cv);
  2029.   
  2030.           /* Enforce some sanity in scalar context. */
  2031. !         if (GIMME == G_SCALAR && ++markix != stack_sp - stack_base ) {
  2032.           if (markix > stack_sp - stack_base)
  2033.               *(stack_base + markix) = &sv_undef;
  2034.           else
  2035. --- 1658,1664 ----
  2036.           (void)(*CvXSUB(cv))(cv);
  2037.   
  2038.           /* Enforce some sanity in scalar context. */
  2039. !         if (gimme == G_SCALAR && ++markix != stack_sp - stack_base ) {
  2040.           if (markix > stack_sp - stack_base)
  2041.               *(stack_base + markix) = &sv_undef;
  2042.           else
  2043. ***************
  2044. *** 1670,1676 ****
  2045.       dMARK;
  2046.       register I32 items = SP - MARK;
  2047.       I32 hasargs = (op->op_flags & OPf_STACKED) != 0;
  2048. -     I32 gimme = GIMME;
  2049.       AV* padlist = CvPADLIST(cv);
  2050.       SV** svp = AvARRAY(padlist);
  2051.       push_return(op->op_next);
  2052. --- 1673,1678 ----
  2053. Index: pp_sys.c
  2054. *** perl5.001c/pp_sys.c    Sat Mar 11 00:09:30 1995
  2055. --- perl5.001d/pp_sys.c    Tue Apr 11 15:48:46 1995
  2056. ***************
  2057. *** 1116,1122 ****
  2058.       GV *tmpgv;
  2059.   
  2060.       SETERRNO(0,0);
  2061. ! #if defined(HAS_TRUNCATE) || defined(HAS_CHSIZE)
  2062.   #ifdef HAS_TRUNCATE
  2063.       if (op->op_flags & OPf_SPECIAL) {
  2064.       tmpgv = gv_fetchpv(POPp,FALSE, SVt_PVIO);
  2065. --- 1116,1122 ----
  2066.       GV *tmpgv;
  2067.   
  2068.       SETERRNO(0,0);
  2069. ! #if defined(HAS_TRUNCATE) || defined(HAS_CHSIZE) || defined(F_FREESP)
  2070.   #ifdef HAS_TRUNCATE
  2071.       if (op->op_flags & OPf_SPECIAL) {
  2072.       tmpgv = gv_fetchpv(POPp,FALSE, SVt_PVIO);
  2073. ***************
  2074. *** 2321,2327 ****
  2075.   char *filename;
  2076.   {
  2077.       char mybuf[8192];
  2078. !     char *s, *tmps;
  2079.       int anum = 1;
  2080.       FILE *myfp;
  2081.   
  2082. --- 2321,2328 ----
  2083.   char *filename;
  2084.   {
  2085.       char mybuf[8192];
  2086. !     char *s, 
  2087. !      *save_filename = filename;
  2088.       int anum = 1;
  2089.       FILE *myfp;
  2090.   
  2091. ***************
  2092. *** 2373,2379 ****
  2093.           return 0;
  2094.       }
  2095.       else {    /* some mkdirs return no failure indication */
  2096. !         anum = (Stat(filename, &statbuf) >= 0);
  2097.           if (op->op_type == OP_RMDIR)
  2098.           anum = !anum;
  2099.           if (anum)
  2100. --- 2374,2380 ----
  2101.           return 0;
  2102.       }
  2103.       else {    /* some mkdirs return no failure indication */
  2104. !         anum = (Stat(save_filename, &statbuf) >= 0);
  2105.           if (op->op_type == OP_RMDIR)
  2106.           anum = !anum;
  2107.           if (anum)
  2108. Index: sv.c
  2109. *** perl5.001c/sv.c    Wed Mar 15 14:28:08 1995
  2110. --- perl5.001d/sv.c    Wed Apr 12 16:13:08 1995
  2111. ***************
  2112. *** 1038,1044 ****
  2113.           if (SvNVX(sv) < 0.0)
  2114.           return I_V(SvNVX(sv));
  2115.           else
  2116. !         return (IV)(UV)SvNVX(sv);
  2117.       }
  2118.       if (SvPOKp(sv) && SvLEN(sv)) {
  2119.           if (dowarn && !looks_like_number(sv))
  2120. --- 1038,1044 ----
  2121.           if (SvNVX(sv) < 0.0)
  2122.           return I_V(SvNVX(sv));
  2123.           else
  2124. !         return (IV) U_V(SvNVX(sv));
  2125.       }
  2126.       if (SvPOKp(sv) && SvLEN(sv)) {
  2127.           if (dowarn && !looks_like_number(sv))
  2128. ***************
  2129. *** 1061,1067 ****
  2130.           if (SvNVX(sv) < 0.0)
  2131.               return I_V(SvNVX(sv));
  2132.           else
  2133. !             return (IV)(UV)SvNVX(sv);
  2134.           }
  2135.           if (SvPOKp(sv) && SvLEN(sv)) {
  2136.           if (dowarn && !looks_like_number(sv))
  2137. --- 1061,1067 ----
  2138.           if (SvNVX(sv) < 0.0)
  2139.               return I_V(SvNVX(sv));
  2140.           else
  2141. !             return (IV) U_V(SvNVX(sv));
  2142.           }
  2143.           if (SvPOKp(sv) && SvLEN(sv)) {
  2144.           if (dowarn && !looks_like_number(sv))
  2145. ***************
  2146. *** 1088,1094 ****
  2147.       if (SvNVX(sv) < 0.0)
  2148.           SvIVX(sv) = I_V(SvNVX(sv));
  2149.       else
  2150. !         SvIVX(sv) = (IV)(UV)SvNVX(sv);
  2151.       }
  2152.       else if (SvPOKp(sv) && SvLEN(sv)) {
  2153.       if (dowarn && !looks_like_number(sv))
  2154. --- 1088,1094 ----
  2155.       if (SvNVX(sv) < 0.0)
  2156.           SvIVX(sv) = I_V(SvNVX(sv));
  2157.       else
  2158. !         SvIVX(sv) = (IV) U_V(SvNVX(sv));
  2159.       }
  2160.       else if (SvPOKp(sv) && SvLEN(sv)) {
  2161.       if (dowarn && !looks_like_number(sv))
  2162. Index: util.c
  2163. *** perl5.001c/util.c    Wed Apr  5 15:52:50 1995
  2164. --- perl5.001d/util.c    Fri Apr 14 09:50:11 1995
  2165. ***************
  2166. *** 29,34 ****
  2167. --- 29,38 ----
  2168.   #  include <vfork.h>
  2169.   #endif
  2170.   
  2171. + #ifdef I_LIMITS  /* Needed for cast_xxx() functions below. */
  2172. + #  include <limits.h>
  2173. + #endif
  2174. + 
  2175.   /* Put this after #includes because fork and vfork prototypes may
  2176.      conflict.
  2177.   */
  2178. ***************
  2179. *** 1575,1610 ****
  2180.   #endif
  2181.   
  2182.   #ifndef CASTI32
  2183.   I32
  2184.   cast_i32(f)
  2185.   double f;
  2186.   {
  2187. ! #   define BIGDOUBLE 2147483647.0        /* Assume 32 bit int's ! */
  2188. ! #   define BIGNEGDOUBLE (-2147483648.0)
  2189. !     if (f >= BIGDOUBLE)
  2190. !     return (I32) BIGDOUBLE;
  2191. !     if (f <= BIGNEGDOUBLE)
  2192. !     return (I32) BIGNEGDOUBLE;
  2193.       return (I32) f;
  2194.   }
  2195. - # undef BIGDOUBLE
  2196. - # undef BIGNEGDOUBLE
  2197.   
  2198.   IV
  2199.   cast_iv(f)
  2200.   double f;
  2201.   {
  2202. !     /* XXX  This should be fixed.  It assumes 32 bit IV's. */
  2203. ! #   define BIGDOUBLE 2147483647.0        /* Assume 32 bit IV's ! */
  2204. ! #   define BIGNEGDOUBLE (-2147483648.0)
  2205. !     if (f >= BIGDOUBLE)
  2206. !     return (IV) BIGDOUBLE;
  2207. !     if (f <= BIGNEGDOUBLE)
  2208. !     return (IV) BIGNEGDOUBLE;
  2209.       return (IV) f;
  2210.   }
  2211. ! # undef BIGDOUBLE
  2212. ! # undef BIGNEGDOUBLE
  2213.   #endif
  2214.   
  2215.   #ifndef HAS_RENAME
  2216. --- 1579,1653 ----
  2217.   #endif
  2218.   
  2219.   #ifndef CASTI32
  2220. + 
  2221. + /* Look for MAX and MIN integral values.  If we can't find them,
  2222. +    we'll use 32-bit two's complement defaults.
  2223. + */
  2224. + #ifndef LONG_MAX
  2225. + #  ifdef MAXLONG    /* Often used in <values.h> */
  2226. + #    define LONG_MAX MAXLONG
  2227. + #  else
  2228. + #    define LONG_MAX        2147483647L
  2229. + #  endif
  2230. + #endif
  2231. + 
  2232. + #ifndef LONG_MIN
  2233. + #    define LONG_MIN        (-LONG_MAX - 1)
  2234. + #endif
  2235. + 
  2236. + #ifndef ULONG_MAX
  2237. + #  ifdef MAXULONG 
  2238. + #    define LONG_MAX MAXULONG
  2239. + #  else
  2240. + #    define ULONG_MAX       4294967295L
  2241. + #  endif
  2242. + #endif
  2243. + 
  2244. + /* Unfortunately, on some systems the cast_uv() function doesn't
  2245. +    work with the system-supplied definition of ULONG_MAX.  The
  2246. +    comparison  (f >= ULONG_MAX) always comes out true.  It must be a
  2247. +    problem with the compiler constant folding.
  2248. + 
  2249. +    In any case, this workaround should be fine on any two's complement
  2250. +    system.  If it's not, supply a '-DMY_ULONG_MAX=whatever' in your
  2251. +    ccflags.
  2252. +            --Andy Dougherty      <doughera@lafcol.lafayette.edu>
  2253. + */
  2254. + #ifndef MY_ULONG_MAX
  2255. + #  define MY_ULONG_MAX ((UV)LONG_MAX * (UV)2 + (UV)1)
  2256. + #endif
  2257. + 
  2258.   I32
  2259.   cast_i32(f)
  2260.   double f;
  2261.   {
  2262. !     if (f >= LONG_MAX)
  2263. !     return (I32) LONG_MAX;
  2264. !     if (f <= LONG_MIN)
  2265. !     return (I32) LONG_MIN;
  2266.       return (I32) f;
  2267.   }
  2268.   
  2269.   IV
  2270.   cast_iv(f)
  2271.   double f;
  2272.   {
  2273. !     if (f >= LONG_MAX)
  2274. !     return (IV) LONG_MAX;
  2275. !     if (f <= LONG_MIN)
  2276. !     return (IV) LONG_MIN;
  2277.       return (IV) f;
  2278.   }
  2279. ! 
  2280. ! UV
  2281. ! cast_uv(f)
  2282. ! double f;
  2283. ! {
  2284. !     if (f >= MY_ULONG_MAX)
  2285. !     return (UV) MY_ULONG_MAX;
  2286. !     return (UV) f;
  2287. ! }
  2288. ! 
  2289.   #endif
  2290.   
  2291.   #ifndef HAS_RENAME
  2292.  
  2293.  
  2294. End of patch.
  2295.