home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1c < prev    next >
Text File  |  1995-04-20  |  75KB  |  2,678 lines
  1. # This is my patch  patch.1c for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. exit 0           # Just in case
  4.  
  5. This is my patch  patch.1c  for perl5.001.  
  6.  
  7. To apply, change to your perl directory,
  8. and apply with 
  9.     patch -N -p1 < thispatch.
  10.  
  11.     Patch and enjoy,
  12.  
  13.     Andy Dougherty            doughera@lafcol.lafayette.edu
  14.     Dept. of Physics
  15.     Lafayette College, Easton PA
  16.  
  17. Configure
  18.     Updated to dist PL53.
  19.     Fix overlapping memcpy test.
  20.     Add check for ld.  Use $cc instead, if on an ELF system.
  21.     With -d, don't reuse config.sh unless $myuname matches.
  22.     Warn more explicitly about changing compilers before reloading
  23.     old config.sh.
  24.     Detect Linux ELF format in nm scan.
  25.     Better detection of d_castneg.  (ISC 4.1 was passing the test,
  26.     but couldn't cast in an argument list.)
  27.     Suggest -fpic for dynamic loading if you're using GNU CC under any 
  28.     name.
  29.     No longer test for byacc, fmod, or drem, since they are not used.
  30.  
  31. Makefile.SH
  32.     Use $ld, not ld (only matters for SVR4)
  33.     Silence some byacc-related harmless error messages.
  34.  
  35. README
  36.     Suggest using -Dcc=gcc (or whatever).
  37.     Warn about reusing old config.sh.  (The warning was already there
  38.     in 5.001; I've just expanded it a little.)
  39.     Warn against using GNU as and GNU ld on SunOS & Solaris.
  40.    
  41. config.H
  42. config_h.SH
  43.     Updated to match Configure.
  44.  
  45. doio.c
  46.     Add socket includes.
  47.  
  48. ext/Fcntl/Fcntl.xs
  49.     Fix typo:  s/SETFL/F_SETFL/;
  50.  
  51. handy.h
  52.     Check _G_HAVE_BOOL, not just if it's defined.
  53.  
  54. hints/dynix.sh
  55. hints/hpux_9.sh
  56. hints/linux.sh
  57. hints/netbsd.sh
  58. hints/titanos.sh
  59.     Updated.  ELF on linux should probably work.
  60.  
  61. installperl
  62.     Install pod2html, pod2latex, and pod2man.
  63.  
  64. lib/ExtUtils/MakeMaker.pm
  65.     Updated to 4.091.  (4.09 + a small writedoc() patch.)
  66.  
  67. myconfig
  68.     Now includes 'ld' command.
  69.  
  70. perl.c
  71.     Revised an #elif clause since Pyramid's cpp doesn't understand
  72.     #elif.
  73.  
  74. perl.h
  75.     Fix U_L, I_V, and I_32 cast macros to ensure that
  76.     the cast_ulong(), cast_iv(), and cast_i32() functions (if used)
  77.     are passed a double.  In particular, the FIXSTATUS macros were
  78.     handing int's to U_L().
  79.     Remove unnecessary HAS_FMOD testing (See util.c).
  80.  
  81. proto.h
  82.     Remove my_fmod() prototype.  (See util.c)
  83.  
  84. sv.h
  85.     Fix GV/CV typo.
  86.  
  87. util.c
  88.     Simplified cast_i32() and cast_iv() to mimic what *actually*
  89.     happens on a SPARC running SunOS 4.1.3.  (Previously, they did
  90.     some complicated fmod() calculation.  I've since discovered that's
  91.     not what happens on the SPARC.)
  92.  
  93.     With this change, fmod() is no longer necessary.  Hence my_fmod
  94.     is removed.  This also means the HAS_FMOD and HAS_DREM tests are
  95.     no longer needed in Configure, so they are gone too.
  96.  
  97. vms/config.vms
  98.     Remove unnecessary HAS_FMOD and HAS_DREM defines.
  99.  
  100. x2p/Makefile.SH
  101.     Silence byacc-related things.
  102.  
  103. Index: Configure
  104. Prereq:  3.0.1.6 
  105. *** perl5.001b/Configure    Sun Mar 12 02:35:24 1995
  106. --- perl5.001c/Configure    Thu Apr  6 11:16:18 1995
  107. ***************
  108. *** 18,26 ****
  109.   # archive site. Check with Archie if you don't know where that can be.)
  110.   #
  111.   
  112. ! # $Id: Head.U,v 3.0.1.6 1994/10/29 15:54:19 ram Exp $
  113.   #
  114. ! # Generated on Fri Mar 10 09:48:55 EST 1995 [metaconfig 3.0 PL51]
  115.   
  116.   cat >/tmp/c1$$ <<EOF
  117.   ARGGGHHHH!!!!!
  118. --- 18,26 ----
  119.   # archive site. Check with Archie if you don't know where that can be.)
  120.   #
  121.   
  122. ! # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  123.   #
  124. ! # Generated on Thu Apr  6 11:09:32 EDT 1995 [metaconfig 3.0 PL53]
  125.   
  126.   cat >/tmp/c1$$ <<EOF
  127.   ARGGGHHHH!!!!!
  128. ***************
  129. *** 58,68 ****
  130.   
  131.   : Proper PATH setting
  132.   paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
  133. ! paths=$paths:'/usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin'
  134. ! paths=$paths:'/sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb'
  135. ! paths=$paths:'/bsd4.3/usr/bin /usr/bsd /bsd43/bin /usr/ccs/bin'
  136. ! paths=$paths:'/etc /usr/lib /usr/ucblib /lib /usr/ccs/lib'
  137. ! paths=$paths:'/sbin /usr/sbin /usr/libexec'
  138.   
  139.   for p in $paths
  140.   do
  141. --- 58,68 ----
  142.   
  143.   : Proper PATH setting
  144.   paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
  145. ! paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
  146. ! paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
  147. ! paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /usr/ccs/bin"
  148. ! paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
  149. ! paths="$paths /sbin /usr/sbin /usr/libexec"
  150.   
  151.   for p in $paths
  152.   do
  153. ***************
  154. *** 229,235 ****
  155.   d_attribut=''
  156.   d_bcmp=''
  157.   d_bcopy=''
  158. - d_byacc=''
  159.   d_bzero=''
  160.   d_casti32=''
  161.   castflags=''
  162. --- 229,234 ----
  163. ***************
  164. *** 252,258 ****
  165.   d_dlsymun=''
  166.   d_dosuid=''
  167.   d_suidsafe=''
  168. - d_drem=''
  169.   d_dup2=''
  170.   d_fchmod=''
  171.   d_fchown=''
  172. --- 251,256 ----
  173. ***************
  174. *** 263,269 ****
  175.   d_fgetpos=''
  176.   d_flexfnam=''
  177.   d_flock=''
  178. - d_fmod=''
  179.   d_fork=''
  180.   d_fsetpos=''
  181.   d_Gconvert=''
  182. --- 261,266 ----
  183. ***************
  184. *** 390,395 ****
  185. --- 387,393 ----
  186.   ccdlflags=''
  187.   d_shrplib=''
  188.   dlsrc=''
  189. + ld=''
  190.   lddlflags=''
  191.   shrpdir=''
  192.   usedl=''
  193. ***************
  194. *** 607,613 ****
  195.   al="$al u3b20d u3b5 ultrix unix unixpc unos vax venix vms"
  196.   al="$al xenix z8000"
  197.   
  198. - gccversion=''
  199.   groupstype=''
  200.   i_whoami=''
  201.   : change the next line if compiling for Xenix/286 on Xenix/386
  202. --- 605,610 ----
  203. ***************
  204. *** 803,809 ****
  205.           esac
  206.           shift
  207.           ;;
  208. !     -V) echo "$me generated by metaconfig 3.0 PL51." >&2
  209.           exit 0;;
  210.       --) break;;
  211.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  212. --- 800,806 ----
  213.           esac
  214.           shift
  215.           ;;
  216. !     -V) echo "$me generated by metaconfig 3.0 PL53." >&2
  217.           exit 0;;
  218.       --) break;;
  219.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  220. ***************
  221. *** 1425,1433 ****
  222.       ./tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  223.   newmyuname="$myuname"
  224.   dflt=n
  225. ! if test "$fastread" = yes; then
  226. !     dflt=y
  227. ! elif test -f ../config.sh; then
  228.       if $contains myuname= ../config.sh >/dev/null 2>&1; then
  229.           eval "`grep myuname= ../config.sh`"
  230.       fi
  231. --- 1422,1428 ----
  232.       ./tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  233.   newmyuname="$myuname"
  234.   dflt=n
  235. ! if test -f ../config.sh; then
  236.       if $contains myuname= ../config.sh >/dev/null 2>&1; then
  237.           eval "`grep myuname= ../config.sh`"
  238.       fi
  239. ***************
  240. *** 1441,1448 ****
  241.   hint=default
  242.   cd ..
  243.   if test -f config.sh; then
  244. !     echo " "
  245. !     rp="I see a config.sh file.  Shall I use it to set the defaults?"
  246.       . UU/myread
  247.       case "$ans" in
  248.       n*|N*) echo "OK, I'll ignore it."; mv config.sh config.sh.old;;
  249. --- 1436,1446 ----
  250.   hint=default
  251.   cd ..
  252.   if test -f config.sh; then
  253. !     $cat <<EOM
  254. ! 
  255. ! I see a config.sh file.  Was it built on THIS system with THIS compiler?  
  256. ! EOM
  257. !     rp="Shall I use config.sh to set the defaults?"
  258.       . UU/myread
  259.       case "$ans" in
  260.       n*|N*) echo "OK, I'll ignore it."; mv config.sh config.sh.old;;
  261. ***************
  262. *** 3087,3093 ****
  263.   $grep fprintf libc.tmp > libc.ptf
  264.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  265.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  266. ! if com="$sed -n -e 's/__IO//' -e 's/^.* [ADTSI]  *_[_.]*//p' -e 's/^.* [ADTSI] //p'";\
  267.       eval $xscan;\
  268.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  269.           eval $xrun
  270. --- 3085,3091 ----
  271.   $grep fprintf libc.tmp > libc.ptf
  272.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  273.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  274. ! if com="$sed -n -e 's/__IO//' -e 's/^.* [ADTSIW]  *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
  275.       eval $xscan;\
  276.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  277.           eval $xrun
  278. ***************
  279. *** 3130,3136 ****
  280.           eval $xrun
  281.   else
  282.       nm -p $* 2>/dev/null >libc.tmp
  283. !     com="$sed -n -e 's/^.* [ADTSI]  *_[_.]*//p' -e 's/^.* [ADTSI] //p'";\
  284.       eval "<libc.tmp $com >libc.list"
  285.       if $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  286.           nm_opt='-p'
  287. --- 3128,3134 ----
  288.           eval $xrun
  289.   else
  290.       nm -p $* 2>/dev/null >libc.tmp
  291. !     com="$sed -n -e 's/^.* [ADTSIW]  *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
  292.       eval "<libc.tmp $com >libc.list"
  293.       if $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  294.           nm_opt='-p'
  295. ***************
  296. *** 3701,3714 ****
  297.   eval $setvar
  298.   $rm -f set set.c
  299.   
  300. - : Check if we really have byacc
  301. - case "$byacc" in
  302. - ''|'byacc') val="$undef" ;;
  303. - *) val="$define" ;;
  304. - esac
  305. - set d_byacc
  306. - eval $setvar
  307. - 
  308.   : see if bzero exists
  309.   set bzero d_bzero
  310.   eval $inlibc
  311. --- 3699,3704 ----
  312. ***************
  313. *** 3832,3841 ****
  314.   $cat >try.c <<EOCP
  315.   #include <sys/types.h>
  316.   #include <signal.h>
  317. ! $signal_t blech() { exit(3); }
  318.   main()
  319.   {
  320. !     double f = -123;
  321.       unsigned long along;
  322.       unsigned int aint;
  323.       unsigned short ashort;
  324. --- 3822,3835 ----
  325.   $cat >try.c <<EOCP
  326.   #include <sys/types.h>
  327.   #include <signal.h>
  328. ! $signal_t blech() { exit(7); }
  329. ! $signal_t blech_in_list() { exit(4); }
  330. ! unsigned long dummy_long(p) unsigned long p; { return p; }
  331. ! unsigned int dummy_int(p) unsigned int p; { return p; }
  332. ! unsigned short dummy_short(p) unsigned short p; { return p; }
  333.   main()
  334.   {
  335. !     double f = -123.;
  336.       unsigned long along;
  337.       unsigned int aint;
  338.       unsigned short ashort;
  339. ***************
  340. *** 3867,3872 ****
  341. --- 3861,3879 ----
  342.       along = (unsigned long)f;
  343.       if (along != 0x80000001)
  344.           result |= 2;
  345. +     if (result)
  346. +         exit(result);
  347. +     signal(SIGFPE, blech_in_list);
  348. +     f = 123.;
  349. +     along = dummy_long((unsigned long)f);
  350. +     aint = dummy_int((unsigned int)f);
  351. +     ashort = dummy_short((unsigned short)f);
  352. +     if (along != (unsigned long)123)
  353. +         result |= 4;
  354. +     if (aint != (unsigned int)123)
  355. +         result |= 4;
  356. +     if (ashort != (unsigned short)123)
  357. +         result |= 4;
  358.       exit(result);
  359.   
  360.   }
  361. ***************
  362. *** 3876,3882 ****
  363.       castflags=$?
  364.   else
  365.       echo "(I can't seem to compile the test program--assuming it can't)"
  366. !     castflags=3
  367.   fi
  368.   case "$castflags" in
  369.   0)    val="$define"
  370. --- 3883,3889 ----
  371.       castflags=$?
  372.   else
  373.       echo "(I can't seem to compile the test program--assuming it can't)"
  374. !     castflags=7
  375.   fi
  376.   case "$castflags" in
  377.   0)    val="$define"
  378. ***************
  379. *** 4209,4214 ****
  380. --- 4216,4222 ----
  381.       usedl="$define"
  382.       : emulate basename
  383.       dlsrc=`echo $ans | $sed -e 's@.*/\([^/]*\)$@\1@'`
  384. + 
  385.       $cat << EOM
  386.   
  387.   Some systems may require passing special flags to $cc -c to
  388. ***************
  389. *** 4217,4225 ****
  390.   
  391.   EOM
  392.       case "$cccdlflags" in
  393. !     ''|' ') case "$cc" in
  394. !         *gcc*)    dflt='-fpic' ;;
  395. !         *)  case "$osname" in
  396.               hpux)    dflt='+z' ;;
  397.               next)    dflt='none' ;;
  398.               solaris) dflt='-K pic' ;;
  399. --- 4225,4232 ----
  400.   
  401.   EOM
  402.       case "$cccdlflags" in
  403. !     '')    case "$gccversion" in
  404. !         '') case "$osname" in
  405.               hpux)    dflt='+z' ;;
  406.               next)    dflt='none' ;;
  407.               solaris) dflt='-K pic' ;;
  408. ***************
  409. *** 4227,4234 ****
  410.               svr4*|esix*) dflt='-Kpic' ;;
  411.               *)    dflt='none' ;;
  412.               esac ;;
  413.           esac ;;
  414. !     *) dflt="$cccdlflags" ;;
  415.       esac
  416.       rp="Any special flags to pass to $cc -c to compile shared library modules?"
  417.       . ./myread
  418. --- 4234,4242 ----
  419.               svr4*|esix*) dflt='-Kpic' ;;
  420.               *)    dflt='none' ;;
  421.               esac ;;
  422. +         *)    dflt='-fpic' ;;
  423.           esac ;;
  424. !     *)    dflt="$cccdlflags" ;;
  425.       esac
  426.       rp="Any special flags to pass to $cc -c to compile shared library modules?"
  427.       . ./myread
  428. ***************
  429. *** 4237,4245 ****
  430.       *) cccdlflags="$ans" ;;
  431.       esac
  432.   
  433. !     cat << 'EOM'
  434.   
  435. ! Some systems may require passing special flags to ld to create a
  436.   library that can be dynamically loaded.  If your ld flags include
  437.   -L/other/path options to locate libraries outside your loader's normal
  438.   search path, you may need to specify those -L options here as well.  To
  439. --- 4245,4294 ----
  440.       *) cccdlflags="$ans" ;;
  441.       esac
  442.   
  443. !     cat << EOM
  444. ! 
  445. ! Some systems use ld to create libraries that can be dynamically loaded,
  446. ! while other systems (such as those using ELF) use $cc.
  447. ! 
  448. ! EOM
  449. !     case "$ld" in
  450. !     '')    $cat >try.c <<'EOM'
  451. ! /* Test for whether ELF binaries are produced */
  452. ! #include <fcntl.h>
  453. ! #include <stdlib.h>
  454. ! main() {
  455. !     char b[4];
  456. !     int i = open("a.out",O_RDONLY);
  457. !     if(i == -1) 
  458. !         exit(1); /* fail */
  459. !     if(read(i,b,4)==4 && b[0]==127 && b[1]=='E' && b[2]=='L' && b[3]=='F')
  460. !         exit(0); /* succeed (yes, it's ELF) */
  461. !     else
  462. !         exit(1); /* fail */
  463. ! }
  464. ! EOM
  465. !         if $cc $ccflags try.c >/dev/null 2>&1 && ./a.out; then
  466. !             cat <<EOM
  467. ! You appear to have ELF support.  I'll use $cc to build dynamic libraries.
  468. ! EOM
  469. !             dflt="$cc"
  470. !         else
  471. !             echo "I'll use ld to build dynamic libraries."
  472. !             dflt='ld'
  473. !         fi
  474. !         rm -f try.c a.out
  475. !         ;;
  476. !     *)    dflt=ld
  477. !         ;;
  478. !     esac
  479. ! 
  480. !     rp="What comnmand should be used to create dynamic libraries?"
  481. !     . ./myread
  482. !     ld="$ans"
  483. ! 
  484. !     cat << EOM
  485.   
  486. ! Some systems may require passing special flags to $ld to create a
  487.   library that can be dynamically loaded.  If your ld flags include
  488.   -L/other/path options to locate libraries outside your loader's normal
  489.   search path, you may need to specify those -L options here as well.  To
  490. ***************
  491. *** 4249,4254 ****
  492. --- 4298,4304 ----
  493.       case "$lddlflags" in
  494.       ''|' ') case "$osname" in
  495.               hpux)  dflt='-b' ;;
  496. +             linux)    dflt='-shared' ;;
  497.               next)  dflt='none' ;;
  498.               solaris) dflt='-G' ;;
  499.               sunos) dflt='-assert nodefinitions' ;;
  500. ***************
  501. *** 4258,4264 ****
  502.               ;;
  503.       *) dflt="$lddlflags" ;;
  504.       esac
  505. !     rp="Any special flags to pass to ld to create a dynamically loaded library?"
  506.       . ./myread
  507.       case "$ans" in
  508.       none) lddlflags='' ;;
  509. --- 4308,4314 ----
  510.               ;;
  511.       *) dflt="$lddlflags" ;;
  512.       esac
  513. !     rp="Any special flags to pass to $ld to create a dynamically loaded library?"
  514.       . ./myread
  515.       case "$ans" in
  516.       none) lddlflags='' ;;
  517. ***************
  518. *** 4274,4280 ****
  519.   EOM
  520.       case "$ccdlflags" in
  521.       ''|' ') case "$osname" in
  522. !         hpux)    dflt='none' ;;
  523.           next)    dflt='none' ;;
  524.           sunos)    dflt='none' ;;
  525.           *)    dflt='none' ;;
  526. --- 4324,4331 ----
  527.   EOM
  528.       case "$ccdlflags" in
  529.       ''|' ') case "$osname" in
  530. !         hpux)    dflt='-Wl,-E' ;;
  531. !         linux)    dflt='-rdynamic' ;;
  532.           next)    dflt='none' ;;
  533.           sunos)    dflt='none' ;;
  534.           *)    dflt='none' ;;
  535. ***************
  536. *** 4289,4294 ****
  537. --- 4340,4346 ----
  538.       esac
  539.       ;;
  540.   *)  usedl="$undef"
  541. +     ld='ld'
  542.       dlsrc='dl_none.xs'
  543.       lddlflags=''
  544.       ccdlflags=''
  545. ***************
  546. *** 4420,4426 ****
  547.   }
  548.   EOM
  549.       if $cc $ccflags $cccdlflags -c dyna.c > /dev/null 2>&1 && 
  550. !         ld $lddlflags -o dyna.$dlext dyna.o > /dev/null 2>&1 && 
  551.           $cc $ccflags $ldflags $cccdlflags $ccdlflags fred.c -o fred $libs > /dev/null 2>&1; then
  552.           xxx=`./fred`
  553.           case $xxx in
  554. --- 4472,4478 ----
  555.   }
  556.   EOM
  557.       if $cc $ccflags $cccdlflags -c dyna.c > /dev/null 2>&1 && 
  558. !         $ld $lddlflags -o dyna.$dlext dyna.o > /dev/null 2>&1 && 
  559.           $cc $ccflags $ldflags $cccdlflags $ccdlflags fred.c -o fred $libs > /dev/null 2>&1; then
  560.           xxx=`./fred`
  561.           case $xxx in
  562. ***************
  563. *** 4552,4561 ****
  564.   set d_dosuid
  565.   eval $setvar
  566.   
  567. - : see if drem exists
  568. - set drem d_drem
  569. - eval $inlibc
  570. - 
  571.   : see if dup2 exists
  572.   set dup2 d_dup2
  573.   eval $inlibc
  574. --- 4604,4609 ----
  575. ***************
  576. *** 4623,4632 ****
  577.   set flock d_flock
  578.   eval $inlibc
  579.   
  580. - : see if fmod exists
  581. - set fmod d_fmod
  582. - eval $inlibc
  583. - 
  584.   : see if fork exists
  585.   set fork d_fork
  586.   eval $inlibc
  587. --- 4671,4676 ----
  588. ***************
  589. *** 5204,5213 ****
  590.   for (align = 7; align >= 0; align--) {
  591.       for (len = 36; len; len--) {
  592.           b = buf+align;
  593. !         memcpy(abc, b, len);
  594.           for (off = 1; off <= len; off++) {
  595. -             memcpy(b, b+off, len);
  596.               memcpy(b+off, b, len);
  597.               if (memcmp(b, abc, len))
  598.                   exit(1);
  599.           }
  600. --- 5248,5257 ----
  601.   for (align = 7; align >= 0; align--) {
  602.       for (len = 36; len; len--) {
  603.           b = buf+align;
  604. !         memcpy(b, abc, len);
  605.           for (off = 1; off <= len; off++) {
  606.               memcpy(b+off, b, len);
  607. +             memcpy(b, b+off, len);
  608.               if (memcmp(b, abc, len))
  609.                   exit(1);
  610.           }
  611. ***************
  612. *** 5626,5632 ****
  613.           . ./myread
  614.           case "$ans" in
  615.           y*) hostcat='nidump hosts .';;
  616. !         *) ;;
  617.           esac
  618.       fi
  619.       case "$hostcat" in
  620. --- 5670,5679 ----
  621.           . ./myread
  622.           case "$ans" in
  623.           y*) hostcat='nidump hosts .';;
  624. !         *)    case "$hostcat" in
  625. !             nidump*) hostcat='';;
  626. !             esac
  627. !             ;;
  628.           esac
  629.       fi
  630.       case "$hostcat" in
  631. ***************
  632. *** 6097,6103 ****
  633.   define)
  634.       : Check the return type needed for hash 
  635.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  636. !     cat >try.c <<'EOCP'
  637.   #include <sys/types.h>
  638.   #include <db.h>
  639.   u_int32_t 
  640. --- 6144,6150 ----
  641.   define)
  642.       : Check the return type needed for hash 
  643.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  644. !     $cat >try.c <<'EOCP'
  645.   #include <sys/types.h>
  646.   #include <db.h>
  647.   u_int32_t 
  648. ***************
  649. *** 6122,6128 ****
  650.           echo "I can't seem to compile the test program." >&4
  651.           db_hashtype=int
  652.       fi
  653. !     $rm -f try.[co]
  654.       echo "Your version of Berkeley DB uses $db_hashtype for hash."
  655.       ;;
  656.   *)    db_hashtype=int
  657. --- 6169,6175 ----
  658.           echo "I can't seem to compile the test program." >&4
  659.           db_hashtype=int
  660.       fi
  661. !     $rm -f try.*
  662.       echo "Your version of Berkeley DB uses $db_hashtype for hash."
  663.       ;;
  664.   *)    db_hashtype=int
  665. ***************
  666. *** 6158,6164 ****
  667.           echo "I can't seem to compile the test program." >&4
  668.           db_prefixtype='int'
  669.       fi
  670. !     $rm -f try.[co]
  671.       echo "Your version of Berkeley DB uses $db_prefixtype for prefix."
  672.       ;;
  673.   *)    db_prefixtype='int'
  674. --- 6205,6211 ----
  675.           echo "I can't seem to compile the test program." >&4
  676.           db_prefixtype='int'
  677.       fi
  678. !     $rm -f try.*
  679.       echo "Your version of Berkeley DB uses $db_prefixtype for prefix."
  680.       ;;
  681.   *)    db_prefixtype='int'
  682. ***************
  683. *** 7702,7708 ****
  684.   d_bcopy='$d_bcopy'
  685.   d_bsd='$d_bsd'
  686.   d_bsdpgrp='$d_bsdpgrp'
  687. - d_byacc='$d_byacc'
  688.   d_bzero='$d_bzero'
  689.   d_casti32='$d_casti32'
  690.   d_castneg='$d_castneg'
  691. --- 7749,7754 ----
  692. ***************
  693. *** 7722,7728 ****
  694.   d_dlopen='$d_dlopen'
  695.   d_dlsymun='$d_dlsymun'
  696.   d_dosuid='$d_dosuid'
  697. - d_drem='$d_drem'
  698.   d_dup2='$d_dup2'
  699.   d_eunice='$d_eunice'
  700.   d_fchmod='$d_fchmod'
  701. --- 7768,7773 ----
  702. ***************
  703. *** 7734,7740 ****
  704.   d_fgetpos='$d_fgetpos'
  705.   d_flexfnam='$d_flexfnam'
  706.   d_flock='$d_flock'
  707. - d_fmod='$d_fmod'
  708.   d_fork='$d_fork'
  709.   d_fpathconf='$d_fpathconf'
  710.   d_fsetpos='$d_fsetpos'
  711. --- 7779,7784 ----
  712. ***************
  713. *** 7945,7950 ****
  714. --- 7989,7995 ----
  715.   known_extensions='$known_extensions'
  716.   ksh='$ksh'
  717.   large='$large'
  718. + ld='$ld'
  719.   lddlflags='$lddlflags'
  720.   ldflags='$ldflags'
  721.   less='$less'
  722. Index: Makefile.SH
  723. *** perl5.001b/Makefile.SH    Fri Apr  7 07:58:29 1995
  724. --- perl5.001c/Makefile.SH    Thu Apr  6 13:59:46 1995
  725. ***************
  726. *** 77,82 ****
  727. --- 77,83 ----
  728.   # I now supply perly.c with the kits, so don't remake perly.c without byacc
  729.   BYACC = $byacc
  730.   CC = $cc
  731. + LD = $ld
  732.   bin = $installbin
  733.   scriptdir = $scriptdir
  734.   privlib = $installprivlib
  735. ***************
  736. *** 221,227 ****
  737.   case "$d_shrplib" in
  738.   *define*)
  739.   $spitshell >>Makefile <<'!NO!SUBS!'
  740. !     ld $(LDDLFLAGS) -o $@ perl.o $(obj)
  741.   !NO!SUBS!
  742.   ;;
  743.   *)
  744. --- 222,228 ----
  745.   case "$d_shrplib" in
  746.   *define*)
  747.   $spitshell >>Makefile <<'!NO!SUBS!'
  748. !     $(LD) $(LDDLFLAGS) -o $@ perl.o $(obj)
  749.   !NO!SUBS!
  750.   ;;
  751.   *)
  752. ***************
  753. *** 281,287 ****
  754.   # to run with precisely the same version of byacc as I use.  You
  755.   # normally shouldn't remake perly.[ch].
  756.   
  757. ! run_byacc:
  758.       @ echo 'Expect' 109 shift/reduce and 1 reduce/reduce conflict
  759.       $(BYACC) -d perly.y
  760.       sh $(shellflags) ./perly.fixer y.tab.c perly.c
  761. --- 282,288 ----
  762.   # to run with precisely the same version of byacc as I use.  You
  763.   # normally shouldn't remake perly.[ch].
  764.   
  765. ! run_byacc:    FORCE
  766.       @ echo 'Expect' 109 shift/reduce and 1 reduce/reduce conflict
  767.       $(BYACC) -d perly.y
  768.       sh $(shellflags) ./perly.fixer y.tab.c perly.c
  769. ***************
  770. *** 292,301 ****
  771.   # appear out-of-date after a patch is applied or a new distribution is
  772.   # made.
  773.   perly.c: perly.y
  774. !     - touch perly.c
  775.   
  776.   perly.h: perly.y
  777. !     - touch perly.h
  778.   
  779.   # Extensions:
  780.   # Names added to $(dynamic_ext) or $(static_ext) will automatically
  781. --- 293,302 ----
  782.   # appear out-of-date after a patch is applied or a new distribution is
  783.   # made.
  784.   perly.c: perly.y
  785. !     -@touch perly.c
  786.   
  787.   perly.h: perly.y
  788. !     -@touch perly.h
  789.   
  790.   # Extensions:
  791.   # Names added to $(dynamic_ext) or $(static_ext) will automatically
  792. ***************
  793. *** 337,342 ****
  794. --- 338,344 ----
  795.       rm -f config.h makefile makefile.old
  796.       rm -f $(private)
  797.       rm -rf lib/auto
  798. +     rm -f lib/.exists
  799.       rm -f h2ph h2ph.man c2ph pstruct h2xs makeaperl
  800.       rm -rf .config
  801.       @echo "Note that make realclean does not delete config.sh"
  802. Index: README
  803. *** perl5.001b/README    Tue Feb 28 19:40:58 1995
  804. --- perl5.001c/README    Thu Apr  6 14:08:57 1995
  805. ***************
  806. *** 73,81 ****
  807.   
  808.       Configure supports a number of useful options.  Run Configure -h 
  809.       to get a listing.  To compile with gcc, for example, you can run 
  810. !     Configure -Dcc=gcc, or answer 'gcc' at the cc prompt.  If you
  811. !     change compilers or make other significant changes, you should
  812. !     probably _not_ re-use your old config.sh.
  813.       
  814.       By default, perl will be installed in /usr/local/{bin, lib, man}.
  815.       You can specify a different prefix for the default installation
  816. --- 73,85 ----
  817.   
  818.       Configure supports a number of useful options.  Run Configure -h 
  819.       to get a listing.  To compile with gcc, for example, you can run 
  820. !     Configure -Dcc=gcc, or answer 'gcc' at the cc prompt.  This is the
  821. !     preferred way to invoke an alternate compiler, since the hints
  822. !     files can then set appropriate defaults.
  823. !     
  824. !     If you change compilers or make other significant changes, you should
  825. !     probably _not_ re-use your old config.sh.  Simply remove it or
  826. !     rename it, e.g. mv config.sh config.sh.old.
  827.       
  828.       By default, perl will be installed in /usr/local/{bin, lib, man}.
  829.       You can specify a different prefix for the default installation
  830. ***************
  831. *** 152,157 ****
  832. --- 156,165 ----
  833.       If you get varags problems with gcc, be sure that gcc is installed
  834.       correctly.  When using gcc, you should probably have i_stdarg='define'
  835.       and i_varags='undef' in config.sh.
  836. +     If you wish to use dynamic loading on SunOS or Solaris, and you
  837. +     have GNU as and GNU ld installed, you may need to add -B/bin/ to
  838. +     your $ccflags and $ldflags so that the system's versions of as 
  839. +     and ld are used.
  840.   
  841.   5)  make test
  842.   
  843. ***************
  844. *** 184,189 ****
  845. --- 192,200 ----
  846.       s2p        sed-to-perl translator
  847.       find2perl    find-to-perl translator
  848.       h2xs        Converts C .h header files to Perl extensions.
  849. +     pod2html,    Converters from perl's pod documentation format
  850. +     pod2latex, and     to other useful formats.
  851. +     pod2man
  852.   
  853.       library files    in $privlib and $archlib specified to
  854.               Configure, usually under /usr/local/lib/perl5/.
  855. Index: config.H
  856. Prereq:  3.0.1.3 
  857. *** perl5.001b/config.H    Tue Feb 28 19:41:30 1995
  858. --- perl5.001c/config.H    Thu Apr  6 14:10:48 1995
  859. ***************
  860. *** 14,20 ****
  861.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  862.    */
  863.   
  864. ! /* Configuration time: Mon Feb 27 17:21:15 EST 1995
  865.    * Configured by: andy
  866.    * Target system: crystal crystal 3.2 2 i386 
  867.    */
  868. --- 14,20 ----
  869.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  870.    */
  871.   
  872. ! /* Configuration time: Wed Apr  5 14:50:33 EDT 1995
  873.    * Configured by: andy
  874.    * Target system: crystal crystal 3.2 2 i386 
  875.    */
  876. ***************
  877. *** 140,148 ****
  878.    *        0 = ok
  879.    *        1 = couldn't cast < 0
  880.    *        2 = couldn't cast >= 0x80000000
  881.    */
  882.   /*#define    CASTNEGFLOAT        /**/
  883. ! #define CASTFLAGS 3        /**/
  884.   
  885.   /* HAS_CHOWN:
  886.    *    This symbol, if defined, indicates that the chown routine is
  887. --- 140,149 ----
  888.    *        0 = ok
  889.    *        1 = couldn't cast < 0
  890.    *        2 = couldn't cast >= 0x80000000
  891. +  *        4 = couldn't cast in argument expression list
  892.    */
  893.   /*#define    CASTNEGFLOAT        /**/
  894. ! #define CASTFLAGS 7        /**/
  895.   
  896.   /* HAS_CHOWN:
  897.    *    This symbol, if defined, indicates that the chown routine is
  898. ***************
  899. *** 232,245 ****
  900.   /*#define SETUID_SCRIPTS_ARE_SECURE_NOW    /**/
  901.   /*#define DOSUID        /**/
  902.   
  903. - /* HAS_DREM:
  904. -  *    This symbol, if defined, indicates that the drem routine is
  905. -  *    available.  This routine is roughly the same as fmod, i.e. it
  906. -  *    computes the remainder r=x-n*y, where n=rint(x/y), whereas fmod
  907. -  *    uses n=trunc(x/y).
  908. -  */
  909. - /*#define HAS_DREM        /**/
  910. - 
  911.   /* HAS_DUP2:
  912.    *    This symbol, if defined, indicates that the dup2 routine is
  913.    *    available to duplicate file descriptors.
  914. --- 233,238 ----
  915. ***************
  916. *** 282,293 ****
  917.    */
  918.   /*#define HAS_FLOCK        /**/
  919.   
  920. - /* HAS_FMOD:
  921. -  *    This symbol, if defined, indicates that the fmod routine is
  922. -  *    available to compute the remainder r=x-n*y where n=trunc(x/y).
  923. -  */
  924. - #define HAS_FMOD        /**/
  925. - 
  926.   /* HAS_FORK:
  927.    *    This symbol, if defined, indicates that the fork routine is
  928.    *    available.
  929. --- 275,280 ----
  930. ***************
  931. *** 597,603 ****
  932.    *    probably use memmove() or memcpy(). If neither is defined, roll your
  933.    *    own version.
  934.    */
  935. ! #define HAS_SAFE_MEMCPY    /**/
  936.   
  937.   /* HAS_SELECT:
  938.    *    This symbol, if defined, indicates that the select routine is
  939. --- 584,590 ----
  940.    *    probably use memmove() or memcpy(). If neither is defined, roll your
  941.    *    own version.
  942.    */
  943. ! /*#define HAS_SAFE_MEMCPY    /**/
  944.   
  945.   /* HAS_SELECT:
  946.    *    This symbol, if defined, indicates that the select routine is
  947. ***************
  948. *** 959,964 ****
  949. --- 946,964 ----
  950.   #define Groups_t gid_t    /* Type for 2nd arg to getgroups() */
  951.   #endif
  952.   
  953. + /* DB_Prefix_t:
  954. +  *    This symbol contains the type of the prefix structure element
  955. +  *    in the <db.h> header file.  In older versions of DB, it was
  956. +  *    int, while in newer ones it is u_int32_t.
  957. +  */
  958. + /* DB_Hash_t:
  959. +  *    This symbol contains the type of the prefix structure element
  960. +  *    in the <db.h> header file.  In older versions of DB, it was
  961. +  *    int, while in newer ones it is size_t.
  962. +  */
  963. + #define DB_Hash_t    int        /**/
  964. + #define DB_Prefix_t    int      /**/
  965. + 
  966.   /* I_DIRENT:
  967.    *    This symbol, if defined, indicates to the C program that it should
  968.    *    include <dirent.h>. Using this symbol also triggers the definition
  969. ***************
  970. *** 1022,1027 ****
  971. --- 1022,1033 ----
  972.    */
  973.   /*#define I_MEMORY        /**/
  974.   
  975. + /* I_NDBM:
  976. +  *    This symbol, if defined, indicates that ndbm.h exists and should
  977. +  *    be included.
  978. +  */
  979. + #define I_NDBM    /**/
  980. + 
  981.   /* I_NET_ERRNO:
  982.    *    This symbol, if defined, indicates that <net/errno.h> exists and 
  983.    *    should be included.
  984. ***************
  985. *** 1372,1396 ****
  986.    *    some sort is available.
  987.    */
  988.   /*#define USE_DYNAMIC_LOADING        /**/
  989. - 
  990. - /* DB_Prefix_t:
  991. -  *    This symbol contains the type of the prefix structure element
  992. -  *    in the <db.h> header file.  In older versions of DB, it was
  993. -  *    int, while in newer ones it is u_int32_t.
  994. -  */
  995. - /* DB_Hash_t:
  996. -  *    This symbol contains the type of the prefix structure element
  997. -  *    in the <db.h> header file.  In older versions of DB, it was
  998. -  *    int, while in newer ones it is size_t.
  999. -  */
  1000. - #define DB_Hash_t    int        /**/
  1001. - #define DB_Prefix_t    int      /**/
  1002. - 
  1003. - /* I_NDBM:
  1004. -  *    This symbol, if defined, indicates that ndbm.h exists and should
  1005. -  *    be included.
  1006. -  */
  1007. - #define I_NDBM    /**/
  1008.   
  1009.   /* I_SYS_STAT:
  1010.    *    This symbol, if defined, indicates to the C program that it should
  1011. --- 1378,1383 ----
  1012. Index: config_h.SH
  1013. Prereq:  3.0.1.3 
  1014. *** perl5.001b/config_h.SH    Tue Feb 28 19:42:13 1995
  1015. --- perl5.001c/config_h.SH    Thu Apr  6 11:16:18 1995
  1016. ***************
  1017. *** 154,159 ****
  1018. --- 154,160 ----
  1019.    *        0 = ok
  1020.    *        1 = couldn't cast < 0
  1021.    *        2 = couldn't cast >= 0x80000000
  1022. +  *        4 = couldn't cast in argument expression list
  1023.    */
  1024.   #$d_castneg    CASTNEGFLOAT        /**/
  1025.   #define CASTFLAGS $castflags        /**/
  1026. ***************
  1027. *** 246,259 ****
  1028.   #$d_suidsafe SETUID_SCRIPTS_ARE_SECURE_NOW    /**/
  1029.   #$d_dosuid DOSUID        /**/
  1030.   
  1031. - /* HAS_DREM:
  1032. -  *    This symbol, if defined, indicates that the drem routine is
  1033. -  *    available.  This routine is roughly the same as fmod, i.e. it
  1034. -  *    computes the remainder r=x-n*y, where n=rint(x/y), whereas fmod
  1035. -  *    uses n=trunc(x/y).
  1036. -  */
  1037. - #$d_drem HAS_DREM        /**/
  1038. - 
  1039.   /* HAS_DUP2:
  1040.    *    This symbol, if defined, indicates that the dup2 routine is
  1041.    *    available to duplicate file descriptors.
  1042. --- 247,252 ----
  1043. ***************
  1044. *** 296,307 ****
  1045.    */
  1046.   #$d_flock HAS_FLOCK        /**/
  1047.   
  1048. - /* HAS_FMOD:
  1049. -  *    This symbol, if defined, indicates that the fmod routine is
  1050. -  *    available to compute the remainder r=x-n*y where n=trunc(x/y).
  1051. -  */
  1052. - #$d_fmod HAS_FMOD        /**/
  1053. - 
  1054.   /* HAS_FORK:
  1055.    *    This symbol, if defined, indicates that the fork routine is
  1056.    *    available.
  1057. --- 289,294 ----
  1058. ***************
  1059. *** 973,978 ****
  1060. --- 960,978 ----
  1061.   #define Groups_t $groupstype    /* Type for 2nd arg to getgroups() */
  1062.   #endif
  1063.   
  1064. + /* DB_Prefix_t:
  1065. +  *    This symbol contains the type of the prefix structure element
  1066. +  *    in the <db.h> header file.  In older versions of DB, it was
  1067. +  *    int, while in newer ones it is u_int32_t.
  1068. +  */
  1069. + /* DB_Hash_t:
  1070. +  *    This symbol contains the type of the prefix structure element
  1071. +  *    in the <db.h> header file.  In older versions of DB, it was
  1072. +  *    int, while in newer ones it is size_t.
  1073. +  */
  1074. + #define DB_Hash_t    $db_hashtype        /**/
  1075. + #define DB_Prefix_t    $db_prefixtype      /**/
  1076. + 
  1077.   /* I_DIRENT:
  1078.    *    This symbol, if defined, indicates to the C program that it should
  1079.    *    include <dirent.h>. Using this symbol also triggers the definition
  1080. ***************
  1081. *** 1036,1041 ****
  1082. --- 1036,1047 ----
  1083.    */
  1084.   #$i_memory I_MEMORY        /**/
  1085.   
  1086. + /* I_NDBM:
  1087. +  *    This symbol, if defined, indicates that ndbm.h exists and should
  1088. +  *    be included.
  1089. +  */
  1090. + #$i_ndbm I_NDBM    /**/
  1091. + 
  1092.   /* I_NET_ERRNO:
  1093.    *    This symbol, if defined, indicates that <net/errno.h> exists and 
  1094.    *    should be included.
  1095. ***************
  1096. *** 1386,1410 ****
  1097.    *    some sort is available.
  1098.    */
  1099.   #$usedl USE_DYNAMIC_LOADING        /**/
  1100. - 
  1101. - /* DB_Prefix_t:
  1102. -  *    This symbol contains the type of the prefix structure element
  1103. -  *    in the <db.h> header file.  In older versions of DB, it was
  1104. -  *    int, while in newer ones it is u_int32_t.
  1105. -  */
  1106. - /* DB_Hash_t:
  1107. -  *    This symbol contains the type of the prefix structure element
  1108. -  *    in the <db.h> header file.  In older versions of DB, it was
  1109. -  *    int, while in newer ones it is size_t.
  1110. -  */
  1111. - #define DB_Hash_t    $db_hashtype        /**/
  1112. - #define DB_Prefix_t    $db_prefixtype      /**/
  1113. - 
  1114. - /* I_NDBM:
  1115. -  *    This symbol, if defined, indicates that ndbm.h exists and should
  1116. -  *    be included.
  1117. -  */
  1118. - #$i_ndbm I_NDBM    /**/
  1119.   
  1120.   /* I_SYS_STAT:
  1121.    *    This symbol, if defined, indicates to the C program that it should
  1122. --- 1392,1397 ----
  1123. Index: doio.c
  1124. *** perl5.001b/doio.c    Thu Mar  9 23:44:15 1995
  1125. --- perl5.001c/doio.c    Fri Mar 31 15:44:07 1995
  1126. ***************
  1127. *** 43,48 ****
  1128. --- 43,58 ----
  1129.   #include <sys/file.h>
  1130.   #endif
  1131.   
  1132. + #if defined(HAS_SOCKET) && !defined(VMS) /* VMS handles sockets via vmsish.h */
  1133. + # include <sys/socket.h>
  1134. + # include <netdb.h>
  1135. + # ifndef ENOTSOCK
  1136. + #  ifdef I_NET_ERRNO
  1137. + #   include <net/errno.h>
  1138. + #  endif
  1139. + # endif
  1140. + #endif
  1141. + 
  1142.   bool
  1143.   do_open(gv,name,len,supplied_fp)
  1144.   GV *gv;
  1145. Index: ext/Fcntl/Fcntl.xs
  1146. *** perl5.001b/ext/Fcntl/Fcntl.xs    Tue Oct 18 12:28:38 1994
  1147. --- perl5.001c/ext/Fcntl/Fcntl.xs    Fri Mar 31 15:32:00 1995
  1148. ***************
  1149. *** 51,59 ****
  1150.   #else
  1151.               goto not_there;
  1152.   #endif
  1153. !         if (strEQ(name, "SETFL"))
  1154. ! #ifdef SETFL
  1155. !             return SETFL;
  1156.   #else
  1157.               goto not_there;
  1158.   #endif
  1159. --- 51,59 ----
  1160.   #else
  1161.               goto not_there;
  1162.   #endif
  1163. !         if (strEQ(name, "F_SETFL"))
  1164. ! #ifdef F_SETFL
  1165. !             return F_SETFL;
  1166.   #else
  1167.               goto not_there;
  1168.   #endif
  1169. Index: handy.h
  1170. *** perl5.001b/handy.h    Wed Feb  8 19:43:10 1995
  1171. --- perl5.001c/handy.h    Sun Apr  2 16:13:10 1995
  1172. ***************
  1173. *** 23,36 ****
  1174.   #define Nullfp Null(FILE*)
  1175.   #define Nullsv Null(SV*)
  1176.   
  1177. ! /* bool is built-in for g++-2.6.3, which might be used for an extension. */
  1178. ! #if !defined(HAS_BOOL) && !defined(_G_HAVE_BOOL)
  1179.   #ifdef UTS
  1180.   #define bool int
  1181.   #else
  1182.   #define bool char
  1183.   #endif
  1184. ! #endif /* !defined(HAS_BOOL) && !defined(_G_HAVE_BOOL) */
  1185.   
  1186.   #ifdef TRUE
  1187.   #undef TRUE
  1188. --- 23,38 ----
  1189.   #define Nullfp Null(FILE*)
  1190.   #define Nullsv Null(SV*)
  1191.   
  1192. ! /* bool is built-in for g++-2.6.3, which might be used for an extension.
  1193. !    gcc-2.6.2 under Linux defines _G_HAVE_BOOL to 0, and does not
  1194. !    define bool. */
  1195. ! #if !defined(HAS_BOOL) && !(_G_HAVE_BOOL)
  1196.   #ifdef UTS
  1197.   #define bool int
  1198.   #else
  1199.   #define bool char
  1200.   #endif
  1201. ! #endif /* !defined(HAS_BOOL) && !(_G_HAVE_BOOL) */
  1202.   
  1203.   #ifdef TRUE
  1204.   #undef TRUE
  1205. Index: hints/dynix.sh
  1206. *** perl5.001b/hints/dynix.sh    Tue Oct 18 12:32:46 1994
  1207. --- perl5.001c/hints/dynix.sh    Mon Apr  3 17:07:44 1995
  1208. ***************
  1209. *** 1,2 ****
  1210. --- 1,3 ----
  1211. + # If this doesn't work, try specifying 'none' for hints.
  1212.   d_castneg=undef
  1213.   libswanted=`echo $libswanted | sed -e 's/socket /socket seq /'`
  1214. Index: hints/hpux_9.sh
  1215. *** perl5.001b/hints/hpux_9.sh    Wed Feb  8 19:43:15 1995
  1216. --- perl5.001c/hints/hpux_9.sh    Tue Mar 28 16:26:21 1995
  1217. ***************
  1218. *** 14,21 ****
  1219.       ;;
  1220.   esac
  1221.   libswanted='m dld'
  1222. ! # ldflags="-Wl,-E -Wl,-a,shared"  # Force all shared?
  1223. ! ldflags="-Wl,-E"
  1224.   usemymalloc='y'
  1225.   alignbytes=8
  1226.   selecttype='int *' 
  1227. --- 14,21 ----
  1228.       ;;
  1229.   esac
  1230.   libswanted='m dld'
  1231. ! # ccdlflags="-Wl,-E -Wl,-a,shared $ccdlflags"  # Force all shared?
  1232. ! ccdlflags="-Wl,-E $ccdlflags"
  1233.   usemymalloc='y'
  1234.   alignbytes=8
  1235.   selecttype='int *' 
  1236. Index: hints/linux.sh
  1237. *** perl5.001b/hints/linux.sh    Sun Mar 12 02:36:00 1995
  1238. --- perl5.001c/hints/linux.sh    Fri Apr  7 09:20:47 1995
  1239. ***************
  1240. *** 2,21 ****
  1241.   # Original version by rsanders
  1242.   # Additional support by Kenneth Albanowski <kjahds@kjahds.com>
  1243.   #
  1244. ! # First pass at ELF support by Andy Dougherty <doughera@lafcol.lafayette.edu>
  1245. ! # Fri Feb  3 14:05:00 EST 1995
  1246. ! # Use   sh Configure -Dcc=gcc-elf     to try using gcc-elf.  It might work.
  1247.   #
  1248. ! # Last updated Mon Mar  6 10:18:10 EST 1995
  1249.   #
  1250.   
  1251. ! # Why is this needed?
  1252. ! bin='/usr/bin'
  1253.   
  1254. ! # Apparently some versions of gcc 2.6.2 are picking up _G_HAVE_BOOL
  1255. ! # from somewhere (_G_config.h maybe?) but not actually defining bool.
  1256. ! # Anyone really know what's going on?
  1257. ! ccflags='-Dbool=char -DHAS_BOOL'
  1258.   
  1259.   d_dosuid='define'
  1260.   
  1261. --- 2,39 ----
  1262.   # Original version by rsanders
  1263.   # Additional support by Kenneth Albanowski <kjahds@kjahds.com>
  1264.   #
  1265. ! # ELF support by H.J. Lu <hjl@nynexst.com>
  1266. ! # Additional info from Nigel Head <nhead@ESOC.bitnet>
  1267. ! # and Kenneth Albanowski <kjahds@kjahds.com>
  1268.   #
  1269. ! # Consolidated by Andy Dougherty <doughera@lafcol.lafayette.edu>
  1270.   #
  1271. + # Last updated Thu Apr  6 12:22:03 EDT 1995
  1272. + #
  1273. + 
  1274. + # perl goes into the /usr tree.  See the Filesystem Standard
  1275. + # available via anonymous FTP at tsx-11.mit.edu in
  1276. + # /pub/linux/docs/linux-standards/fsstnd.
  1277. + # This used to be
  1278. + # bin='/usr/bin'
  1279. + # but it doesn't seem sensible to put the binary in /usr and all the
  1280. + # rest of the support stuff (lib, man pages) into /usr/local.
  1281. + # However, allow a command line override, e.g. Configure -Dprefix=/foo/bar
  1282. + case "$prefix" in
  1283. + '') prefix='/usr' ;;
  1284. + esac
  1285.   
  1286. ! # Perl expects BSD style signal handling.
  1287. ! ccflags="-D__USE_BSD_SIGNAL $ccflags"
  1288.   
  1289. ! # The following functions are gcc built-ins, but the Configure test
  1290. ! # may fail because it doesn't supply a proper prototype.
  1291. ! d_memcmp=define
  1292. ! d_memcpy=define
  1293. ! 
  1294. ! # Configure may fail to find lstat() since it's a static/inline
  1295. ! # function in <sys/stat.h>.
  1296. ! d_lstat=define
  1297.   
  1298.   d_dosuid='define'
  1299.   
  1300. ***************
  1301. *** 26,51 ****
  1302.   '') optimize='-O2' ;;
  1303.   esac
  1304.   
  1305. ! case "$cc" in
  1306. ! *cc-elf*)
  1307.       so='so'
  1308.       dlext='so'
  1309. !     # Configure might not understand nm output for ELF.
  1310. !     usenm=false
  1311. !     ;;
  1312. ! *)
  1313. !     lddlflags='-r'
  1314.       so='sa'
  1315.       dlext='o'
  1316.       ## If you are using DLD 3.2.4 which does not support shared libs,
  1317.       ## uncomment the next two lines:
  1318.       #ldflags="-static"
  1319.       #so='none'
  1320. !     ;;
  1321. ! esac
  1322.   
  1323. ! cat <<EOM
  1324.   
  1325.   You should take a look at hints/linux.sh. There are a some lines you
  1326. ! may wish to change near the bottom.
  1327.   EOM
  1328. --- 44,103 ----
  1329.   '') optimize='-O2' ;;
  1330.   esac
  1331.   
  1332. ! # Are we using ELF?  Thanks to Kenneth Albanowski <kjahds@kjahds.com>
  1333. ! # for this test.
  1334. ! cat >try.c <<'EOM'
  1335. ! /* Test for whether ELF binaries are produced */
  1336. ! #include <fcntl.h>
  1337. ! #include <stdlib.h>
  1338. ! main() {
  1339. !     char buffer[4];
  1340. !     int i=open("a.out",O_RDONLY);
  1341. !     if(i==-1)
  1342. !         exit(1); /* fail */
  1343. !     if(read(i,&buffer[0],4)<4)
  1344. !         exit(1); /* fail */
  1345. !     if(buffer[0] != 127 || buffer[1] != 'E' ||
  1346. !            buffer[2] != 'L' || buffer[3] != 'F')
  1347. !         exit(1); /* fail */
  1348. !     exit(0); /* succeed (yes, it's ELF) */
  1349. ! }
  1350. ! EOM
  1351. ! if gcc try.c >/dev/null 2>&1 && ./a.out; then
  1352. !     cat <<'EOM'
  1353. ! 
  1354. ! You appear to have ELF support.  I'll try to use it for dynamic loading.
  1355. ! EOM
  1356. !     # Be careful not to overwrite lddlflags, since the user might
  1357. !     # have specified some -L/path options on the Configure command line.
  1358. !     lddlflags="-shared $lddlflags"
  1359. !     ccdlflags='-rdynamic'
  1360.       so='so'
  1361.       dlext='so'
  1362. !     ld=gcc
  1363. ! else
  1364. !     echo "You don't have an ELF gcc, using dld if available."
  1365. !     # We might possibly have a version of DLD around.
  1366. !     lddlflags="-r $lddlflags"
  1367.       so='sa'
  1368.       dlext='o'
  1369.       ## If you are using DLD 3.2.4 which does not support shared libs,
  1370.       ## uncomment the next two lines:
  1371.       #ldflags="-static"
  1372.       #so='none'
  1373. ! fi
  1374. ! rm -rf try.c a.out
  1375.   
  1376. ! cat <<'EOM'
  1377.   
  1378.   You should take a look at hints/linux.sh. There are a some lines you
  1379. ! may wish to change.
  1380.   EOM
  1381. + 
  1382. + # And -- reported by one user:
  1383. + # We need to get -lc away from the link lines.
  1384. + # If we leave it there we get SEGV from miniperl during the build.
  1385. + # This may have to do with bugs in the pre-release version of libc for ELF.
  1386. + # Uncomment the next two lines to remove -lc from the link line.
  1387. + # set `echo " $libswanted " | sed -e 's@ c @ @'`
  1388. + # libswanted="$*"
  1389. Index: hints/netbsd.sh
  1390. *** perl5.001b/hints/netbsd.sh    Tue Oct 18 12:33:27 1994
  1391. --- perl5.001c/hints/netbsd.sh    Fri Mar 31 15:29:47 1995
  1392. ***************
  1393. *** 1,10 ****
  1394.   # hints/netbsd.sh
  1395.   case "$osvers" in
  1396. ! 0.9|0.8)
  1397.       usedl="$undef"
  1398.       ;;
  1399. ! *)    d_dlopen="$define"
  1400. !     cccdlflags='-DPIC -fpic'
  1401. !     lddlflags='-Bforcearchive -Bshareable'
  1402.       ;;
  1403.   esac
  1404. --- 1,17 ----
  1405.   # hints/netbsd.sh
  1406. + # netbsd keeps  dynamic loading dl*() functions in /lib/crt0.o,
  1407. + # so Configure doesn't find them (unless you abandon the nm scan).
  1408.   case "$osvers" in
  1409. ! 0.9*|0.8*)
  1410.       usedl="$undef"
  1411.       ;;
  1412. ! *)    d_dlopen=$define
  1413. !     d_dlerror=$define
  1414. !     cccdlflags="-DPIC -fpic $cccdlflags"
  1415. !     lddlflags="-Bforcearchive -Bshareable $lddlflags"
  1416.       ;;
  1417.   esac
  1418. + 
  1419. + # Avoid telldir prototype conflict in pp_sys.c  (NetBSD uses const DIR *)
  1420. + # Configure should test for this.  Volunteers?
  1421. + pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
  1422. Index: hints/titanos.sh
  1423. *** perl5.001b/hints/titanos.sh    Tue Oct 18 12:34:08 1994
  1424. --- perl5.001c/hints/titanos.sh    Fri Mar 31 14:55:53 1995
  1425. ***************
  1426. *** 2,7 ****
  1427. --- 2,8 ----
  1428.   # Created by: JT McDuffie (jt@kpc.com)  26 DEC 1991
  1429.   # p5ed by: Jarkko Hietaniemi <jhi@hut.fi> Aug 27 1994
  1430.   #  NOTE:   You should run Configure with tcsh (yes, tcsh).
  1431. + # Comments by Andy Dougherty <doughera@lafcol.lafayette.edu> 28 Mar 1995
  1432.   alignbytes="8"
  1433.   byteorder="4321"
  1434.   castflags='0'
  1435. ***************
  1436. *** 14,22 ****
  1437.   models='none'
  1438.   ccflags="$ccflags -I/usr/include/net -DDEBUGGING -DSTANDARD_C"
  1439.   cppflags="$cppflags -I/usr/include/net -DDEBUGGING -DSTANDARD_C"
  1440. - libs='-lnsl -ldbm -lPW -lmalloc -lm'
  1441.   stdchar='unsigned char'
  1442. ! static_ext='DynaLoader NDBM_File Socket'
  1443.   uidtype='ushort'
  1444.   voidflags='7'
  1445.   inclwanted='/usr/include /usr/include/net'
  1446. --- 15,38 ----
  1447.   models='none'
  1448.   ccflags="$ccflags -I/usr/include/net -DDEBUGGING -DSTANDARD_C"
  1449.   cppflags="$cppflags -I/usr/include/net -DDEBUGGING -DSTANDARD_C"
  1450.   stdchar='unsigned char'
  1451. ! #
  1452. ! # Apparently there are some harmful libs in Configure's $libswanted.
  1453. ! # Perl5.000 had: libs='-lnsl -ldbm -lPW -lmalloc -lm'
  1454. ! # Unfortunately, this line prevents users from including things like
  1455. ! # -lgdbm and -ldb, which they may or may not have or want.
  1456. ! # We should probably fiddle with libswanted instead of libs.
  1457. ! # And even there, we should only bother to delete harmful libraries.
  1458. ! # However, I don't know what they are or why they should be deleted,
  1459. ! # so this will have to do for now.  --AD  28 Mar 1995
  1460. ! libswanted='nsl dbm gdbm db PW malloc m'
  1461. ! #
  1462. ! # Extensions:  This system can not compile POSIX. We'll let Configure 
  1463. ! # figure out the others.  Certainly Fcntl, Socket, and at least one *DB*
  1464. ! # extension should be included.
  1465. ! # perl5.000 had:  static_ext='DynaLoader NDBM_File Socket'
  1466. ! useposix='n'
  1467. ! #
  1468.   uidtype='ushort'
  1469.   voidflags='7'
  1470.   inclwanted='/usr/include /usr/include/net'
  1471. Index: installperl
  1472. *** perl5.001b/installperl    Wed Feb 22 14:37:10 1995
  1473. --- perl5.001c/installperl    Tue Apr  4 11:55:03 1995
  1474. ***************
  1475. *** 12,18 ****
  1476.   
  1477.   umask 022;
  1478.   
  1479. ! @scripts = ('cppstdin', 'c2ph', 'h2xs', 'pstruct', 'x2p/s2p', 'x2p/find2perl');
  1480.   @manpages = (<pod/*.man>, 'x2p/a2p.man', 'x2p/s2p.man');
  1481.   
  1482.   # Read in the config file.
  1483. --- 12,19 ----
  1484.   
  1485.   umask 022;
  1486.   
  1487. ! @scripts = ('cppstdin', 'c2ph', 'h2xs', 'pstruct', 'x2p/s2p', 'x2p/find2perl',
  1488. !         'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
  1489.   @manpages = (<pod/*.man>, 'x2p/a2p.man', 'x2p/s2p.man');
  1490.   
  1491.   # Read in the config file.
  1492. Index: lib/ExtUtils/MakeMaker.pm
  1493. *** perl5.001b/lib/ExtUtils/MakeMaker.pm    Sun Mar 12 03:13:57 1995
  1494. --- perl5.001c/lib/ExtUtils/MakeMaker.pm    Mon Apr  3 15:52:47 1995
  1495. ***************
  1496. *** 1,6 ****
  1497.   package ExtUtils::MakeMaker;
  1498.   
  1499. ! $Version = 4.086; # Last edited 9 Mar 1995 by Andy Dougherty
  1500.   
  1501.   use Config;
  1502.   check_hints();
  1503. --- 1,6 ----
  1504.   package ExtUtils::MakeMaker;
  1505.   
  1506. ! $Version = 4.091; # Last edited 31 Mar 1995 by Andreas Koenig
  1507.   
  1508.   use Config;
  1509.   check_hints();
  1510. ***************
  1511. *** 9,18 ****
  1512.   
  1513.   require Exporter;
  1514.   @ISA = qw(Exporter);
  1515. ! @EXPORT = qw(&WriteMakefile &mkbootstrap &mksymlists $Verbose);
  1516.   @EXPORT_OK = qw($Version %att %skip %Recognized_Att_Keys
  1517.       @MM_Sections %MM_Sections
  1518. !     &help &lsdir &neatvalue);
  1519.   
  1520.   $Is_VMS = $Config{'osname'} eq 'VMS';
  1521.   require ExtUtils::MM_VMS if $Is_VMS;
  1522. --- 9,18 ----
  1523.   
  1524.   require Exporter;
  1525.   @ISA = qw(Exporter);
  1526. ! @EXPORT = qw(&WriteMakefile $Verbose);
  1527.   @EXPORT_OK = qw($Version %att %skip %Recognized_Att_Keys
  1528.       @MM_Sections %MM_Sections
  1529. !     &help &lsdir &neatvalue &mkbootstrap &mksymlists);
  1530.   
  1531.   $Is_VMS = $Config{'osname'} eq 'VMS';
  1532.   require ExtUtils::MM_VMS if $Is_VMS;
  1533. ***************
  1534. *** 23,29 ****
  1535.   $Verbose = 0;
  1536.   $^W=1;
  1537.   
  1538. - 
  1539.   =head1 NAME
  1540.   
  1541.   ExtUtils::MakeMaker - create an extension Makefile
  1542. --- 23,28 ----
  1543. ***************
  1544. *** 73,79 ****
  1545.     perl Makefile.PL INST_LIB=~/myperllib INST_EXE=~/bin
  1546.   
  1547.   Note, that in this example MakeMaker does the tilde expansion for you
  1548. ! and INST_ARCHLIB is set to either C<INST_LIB/$Config{"osname"}> if
  1549.   that directory exists and otherwise to INST_LIB.
  1550.   
  1551.   Other interesting targets in the generated Makefile are
  1552. --- 72,78 ----
  1553.     perl Makefile.PL INST_LIB=~/myperllib INST_EXE=~/bin
  1554.   
  1555.   Note, that in this example MakeMaker does the tilde expansion for you
  1556. ! and INST_ARCHLIB is set to either C<INST_LIB/$Config{"archname"}> if
  1557.   that directory exists and otherwise to INST_LIB.
  1558.   
  1559.   Other interesting targets in the generated Makefile are
  1560. ***************
  1561. *** 392,397 ****
  1562. --- 391,402 ----
  1563.   
  1564.    H:        Ref to array of *.h file names. Similar to C: above.
  1565.   
  1566. +  PL_FILES:      Ref to hash of files to be processed as perl programs. MakeMaker
  1567. +         will default to any found C<*.PL> file (except C<Makefile.PL>) being
  1568. +         keys and the basename of the file being the value. E.g.
  1569. +         C<{ 'foobar.PL' => 'foobar' }>. The C<*.PL> files are expected to
  1570. +         produce output to the target files themselves.
  1571. + 
  1572.    EXE_FILES:    Ref to array of executable files. The files will be copied to 
  1573.           the INST_EXE directory. The installed files will be deleted 
  1574.           by a make realclean.
  1575. ***************
  1576. *** 455,460 ****
  1577. --- 460,466 ----
  1578.       'tool_xsubpp'    => {},
  1579.       'tools_other'    => {},
  1580.       'post_constants'    => {},
  1581. +     'pasthru'        => {},
  1582.       'c_o'        => {},
  1583.       'xs_c'        => {},
  1584.       'xs_o'        => {},
  1585. ***************
  1586. *** 467,472 ****
  1587. --- 473,479 ----
  1588.       'static'        => {},
  1589.       'static_lib'    => {},
  1590.       'installpm'        => {},
  1591. +     'processPL'        => {},
  1592.       'installbin'    => {},
  1593.       'subdirs'        => {},
  1594.       'clean'        => {},
  1595. ***************
  1596. *** 527,532 ****
  1597. --- 534,540 ----
  1598.   
  1599.       parse_args(\%att, @ARGV);
  1600.       my(%initial_att) = %att; # record initial attributes
  1601. +     my($key);
  1602.   
  1603.       MY->init_main();
  1604.   
  1605. ***************
  1606. *** 553,558 ****
  1607. --- 561,567 ----
  1608.       # build hash for SKIP to make testing easy
  1609.       %skip = map( ($_,1), @{$att{'SKIP'} || []});
  1610.   
  1611. +     my $section;
  1612.       foreach $section ( @MM_Sections ){
  1613.       print "Processing Makefile '$section' section" if ($Verbose >= 2);
  1614.       my($skipit) = skipcheck($section);
  1615. ***************
  1616. *** 658,664 ****
  1617.       return "{ ".join(', ',@m)." }";
  1618.   }
  1619.   
  1620. - 
  1621.   # ------ Define the MakeMaker default methods in package MM_Unix ------
  1622.   
  1623.   package MM_Unix;
  1624. --- 667,672 ----
  1625. ***************
  1626. *** 687,694 ****
  1627.       # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  1628.   
  1629.       # *Real* information: where did we get these two from? ...
  1630. !     $inc_config_dir = dirname($INC{'Config.pm'});
  1631. !     $inc_carp_dir   = dirname($INC{'Carp.pm'});
  1632.   
  1633.       # Typically PERL_* and INST_* will be identical but that need
  1634.       # not be the case (e.g., installing into project libraries etc).
  1635. --- 695,702 ----
  1636.       # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  1637.   
  1638.       # *Real* information: where did we get these two from? ...
  1639. !     my $inc_config_dir = dirname($INC{'Config.pm'});
  1640. !     my $inc_carp_dir   = dirname($INC{'Carp.pm'});
  1641.   
  1642.       # Typically PERL_* and INST_* will be identical but that need
  1643.       # not be the case (e.g., installing into project libraries etc).
  1644. ***************
  1645. *** 704,710 ****
  1646.   
  1647.       unless ($att{PERL_SRC}){
  1648.       foreach(qw(../.. ../../.. ../../../..)){
  1649. !         ($att{PERL_SRC}=$_, last) if -f "$_/config.sh";
  1650.       }
  1651.       }
  1652.       unless ($att{PERL_SRC}){
  1653. --- 712,721 ----
  1654.   
  1655.       unless ($att{PERL_SRC}){
  1656.       foreach(qw(../.. ../../.. ../../../..)){
  1657. !         if ( -f "$_/config.sh" && -f "$_/perl.h" && -f "$_/lib/Exporter.pm") {
  1658. !         $att{PERL_SRC}=$_ ;
  1659. !         last;
  1660. !         }
  1661.       }
  1662.       }
  1663.       unless ($att{PERL_SRC}){
  1664. ***************
  1665. *** 719,724 ****
  1666. --- 730,748 ----
  1667.       $att{PERL_LIB}     = "$att{PERL_SRC}/lib" unless $att{PERL_LIB};
  1668.       $att{PERL_ARCHLIB} = $att{PERL_LIB};
  1669.       $att{PERL_INC}     = $att{PERL_SRC};
  1670. +     # catch an situation that has occurred a few times in the past:
  1671. +     warn <<EOM unless -s "$att{PERL_SRC}/cflags";
  1672. + You cannot build extensions below the perl source tree after executing
  1673. + a 'make clean' in the perl source tree.
  1674. + 
  1675. + To rebuild extensions distributed with the perl source you should
  1676. + simply Configure (to include those extensions) and then build perl as
  1677. + normal. After installing perl the source tree can be deleted. It is not
  1678. + needed for building extensions.
  1679. + 
  1680. + It is recommended that you unpack and build additional extensions away
  1681. + from the perl source tree.
  1682. + EOM
  1683.       }
  1684.   
  1685.       # INST_LIB typically pre-set if building an extension after
  1686. ***************
  1687. *** 728,740 ****
  1688.       if (defined $att{PERL_SRC}) {
  1689.           $att{INST_LIB} = $att{PERL_LIB};
  1690.       } else {
  1691. !         $att{INST_LIB} = "$pwd/blib";
  1692.       }
  1693.       }
  1694.       # Try to work out what INST_ARCHLIB should be if not set:
  1695.       unless ($att{INST_ARCHLIB}){
  1696.       my(%archmap) = (
  1697. !         "$pwd/blib"     => "$pwd/blib", # our private build lib
  1698.           $att{PERL_LIB}    => $att{PERL_ARCHLIB},
  1699.           $Config{'privlib'}    => $Config{'archlib'},
  1700.           $Config{'installprivlib'}    => $Config{'installarchlib'},
  1701. --- 752,764 ----
  1702.       if (defined $att{PERL_SRC}) {
  1703.           $att{INST_LIB} = $att{PERL_LIB};
  1704.       } else {
  1705. !         $att{INST_LIB} = "./blib";
  1706.       }
  1707.       }
  1708.       # Try to work out what INST_ARCHLIB should be if not set:
  1709.       unless ($att{INST_ARCHLIB}){
  1710.       my(%archmap) = (
  1711. !         "./blib"        => "./blib", # our private build lib
  1712.           $att{PERL_LIB}    => $att{PERL_ARCHLIB},
  1713.           $Config{'privlib'}    => $Config{'archlib'},
  1714.           $Config{'installprivlib'}    => $Config{'installarchlib'},
  1715. ***************
  1716. *** 810,816 ****
  1717.   
  1718.   sub init_dirscan {    # --- File and Directory Lists (.xs .pm etc)
  1719.   
  1720. !     my($name, %dir, %xs, %c, %h, %ignore);
  1721.       local(%pm); #the sub in find() has to see this hash
  1722.       $ignore{'test.pl'} = 1;
  1723.       $ignore{'makefile.pl'} = 1 if $Is_VMS;
  1724. --- 834,840 ----
  1725.   
  1726.   sub init_dirscan {    # --- File and Directory Lists (.xs .pm etc)
  1727.   
  1728. !     my($name, %dir, %xs, %c, %h, %ignore, %pl_files);
  1729.       local(%pm); #the sub in find() has to see this hash
  1730.       $ignore{'test.pl'} = 1;
  1731.       $ignore{'makefile.pl'} = 1 if $Is_VMS;
  1732. ***************
  1733. *** 828,833 ****
  1734. --- 852,859 ----
  1735.           $h{$name} = 1;
  1736.       } elsif ($name =~ /\.p[ml]$/){
  1737.           $pm{$name} = "\$(INST_LIBDIR)/$name";
  1738. +     } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
  1739. +         ($pl_files{$name} = $name) =~ s/\.PL$// ;
  1740.       }
  1741.       }
  1742.   
  1743. ***************
  1744. *** 890,895 ****
  1745. --- 916,922 ----
  1746.       my($sufx) = $Is_VMS ? '.obj' : '.o';
  1747.       $att{O_FILES} = [grep s/\.c$/$sufx/, @o_files] ;
  1748.       $att{H}   = [sort keys %h]   unless $att{H};
  1749. +     $att{PL_FILES} = \%pl_files unless $att{PL_FILES};
  1750.   }
  1751.   
  1752.   
  1753. ***************
  1754. *** 899,905 ****
  1755.   }
  1756.   
  1757.   sub init_others {    # --- Initialize Other Attributes
  1758. ! 
  1759.       for $key (keys(%Recognized_Att_Keys), keys(%Other_Att_Keys)){
  1760.       # avoid warnings for uninitialized vars
  1761.       next if exists $att{$key};
  1762. --- 926,932 ----
  1763.   }
  1764.   
  1765.   sub init_others {    # --- Initialize Other Attributes
  1766. !     my($key);
  1767.       for $key (keys(%Recognized_Att_Keys), keys(%Other_Att_Keys)){
  1768.       # avoid warnings for uninitialized vars
  1769.       next if exists $att{$key};
  1770. ***************
  1771. *** 1107,1112 ****
  1772. --- 1134,1140 ----
  1773.       join('',@m);
  1774.   }
  1775.   
  1776. + $Const_cccmd=0; # package global
  1777.   
  1778.   sub const_cccmd{
  1779.       my($self,$libperl)=@_;
  1780. ***************
  1781. *** 1115,1125 ****
  1782.       # e.g., do both and compare results during the transition period.
  1783.       my($cc,$ccflags,$optimize,$large,$split, $shflags)
  1784.       = @Config{qw(cc ccflags optimize large split shellflags)};
  1785.       $shflags = '' unless $shflags;
  1786.       my($prog, $old, $uc, $perltype);
  1787.   
  1788. !     chop($old = `cd $att{PERL_SRC}; sh $shflags ./cflags $libperl $att{BASEEXT}.c 2>/dev/null`)
  1789. !     if $att{PERL_SRC};
  1790.   
  1791.       my(%map) =  (
  1792.           D =>   '-DDEBUGGING',
  1793. --- 1143,1158 ----
  1794.       # e.g., do both and compare results during the transition period.
  1795.       my($cc,$ccflags,$optimize,$large,$split, $shflags)
  1796.       = @Config{qw(cc ccflags optimize large split shellflags)};
  1797. +     my($optdebug)="";
  1798. + 
  1799.       $shflags = '' unless $shflags;
  1800.       my($prog, $old, $uc, $perltype);
  1801.   
  1802. !     unless ($Const_cccmd++){
  1803. !     chop($old = `cd $att{PERL_SRC}; sh $shflags ./cflags $libperl $att{BASEEXT}.c`)
  1804. !       if $att{PERL_SRC};
  1805. !     $Const_cccmd++; # shut up typo warning
  1806. !     }
  1807.   
  1808.       my(%map) =  (
  1809.           D =>   '-DDEBUGGING',
  1810. ***************
  1811. *** 1162,1168 ****
  1812.         echo large=\$large
  1813.         echo split=\$split
  1814.         `;
  1815. !     my(%cflags);
  1816.       foreach $line (@o){
  1817.           chomp $line;
  1818.           if ($line =~ /(.*?)=\s*(.*)\s*$/){
  1819. --- 1195,1201 ----
  1820.         echo large=\$large
  1821.         echo split=\$split
  1822.         `;
  1823. !     my(%cflags,$line);
  1824.       foreach $line (@o){
  1825.           chomp $line;
  1826.           if ($line =~ /(.*?)=\s*(.*)\s*$/){
  1827. ***************
  1828. *** 1298,1303 ****
  1829. --- 1331,1349 ----
  1830.       "";
  1831.   }
  1832.   
  1833. + sub pasthru {
  1834. +     my(@m,@pasthru,$key);
  1835. +     # It has to be considered carefully, which variables are apt to be passed through, e.g. PERL_SRC
  1836. +     # is not suited for subdirectories, as it might be relativ to the parent directory.
  1837. +     # Probably we need a PASTHRU2 variable. PASTHRU1 is a conservative approach, that hardly changes
  1838. +     # MakeMaker between version 4.086 and 4.09.
  1839. +     push @m, "\nPASTHRU1 = ";
  1840. +     foreach $key (qw(INST_ARCHLIB INST_EXE INST_LIB LIBPERL_A LINKTYPE)){
  1841. +     push @pasthru, "$key=\"\$($key)\"";
  1842. +     }
  1843. +     push @m, join "\\\n\t", @pasthru;
  1844. +     join "", @m;
  1845. + }
  1846.   
  1847.   # --- Translation Sections ---
  1848.   
  1849. ***************
  1850. *** 1334,1343 ****
  1851.   all ::    config linkext $(INST_PM)
  1852.   '.$att{NOOP}.'
  1853.   
  1854. ! config :: '.$att{MAKEFILE}.'
  1855. !     @ $(MKPATH) $(INST_LIBDIR) $(INST_ARCHAUTODIR)
  1856.   ';
  1857.   
  1858.       push @m, '
  1859.   $(O_FILES): $(H_FILES)
  1860.   ' if @{$att{O_FILES} || []} && @{$att{H} || []};
  1861. --- 1380,1390 ----
  1862.   all ::    config linkext $(INST_PM)
  1863.   '.$att{NOOP}.'
  1864.   
  1865. ! config :: '.$att{MAKEFILE}.' $(INST_LIBDIR)/.exists $(INST_ARCHAUTODIR)/.exists
  1866.   ';
  1867.   
  1868. +     push @m, MM->dir_target('$(INST_LIBDIR)', '$(INST_ARCHAUTODIR)');
  1869. + 
  1870.       push @m, '
  1871.   $(O_FILES): $(H_FILES)
  1872.   ' if @{$att{O_FILES} || []} && @{$att{H} || []};
  1873. ***************
  1874. *** 1375,1382 ****
  1875.   
  1876.       push(@m,"
  1877.   $att{BASEEXT}.exp: Makefile.PL
  1878. ! ",'    $(PERL) $(I_PERL_LIBS) -e \'use ExtUtils::MakeMaker; \\
  1879. !     mksymlists(DL_FUNCS => ',
  1880.       %$funcs ? neatvalue($funcs) : '""',', DL_VARS => ',
  1881.       @$vars  ? neatvalue($vars)  : '""', ", NAME => \"$att{NAME}\")'
  1882.   ");
  1883. --- 1422,1429 ----
  1884.   
  1885.       push(@m,"
  1886.   $att{BASEEXT}.exp: Makefile.PL
  1887. ! ",'    $(PERL) $(I_PERL_LIBS) -e \'use ExtUtils::MakeMaker qw(&mksymlists); \\
  1888. !     &mksymlists(DL_FUNCS => ',
  1889.       %$funcs ? neatvalue($funcs) : '""',', DL_VARS => ',
  1890.       @$vars  ? neatvalue($vars)  : '""', ", NAME => \"$att{NAME}\")'
  1891.   ");
  1892. ***************
  1893. *** 1406,1412 ****
  1894.   $(BOOTSTRAP): '."$att{MAKEFILE} $att{BOOTDEP}".'
  1895.       @ echo "Running mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  1896.       @ $(PERL) $(I_PERL_LIBS) \
  1897. !         -e \'use ExtUtils::MakeMaker; &mkbootstrap("$(BSLOADLIBS)");\' \
  1898.           INST_LIB=$(INST_LIB) INST_ARCHLIB=$(INST_ARCHLIB) PERL_SRC=$(PERL_SRC) NAME=$(NAME)
  1899.       @ $(TOUCH) $(BOOTSTRAP)
  1900.   
  1901. --- 1453,1459 ----
  1902.   $(BOOTSTRAP): '."$att{MAKEFILE} $att{BOOTDEP}".'
  1903.       @ echo "Running mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  1904.       @ $(PERL) $(I_PERL_LIBS) \
  1905. !         -e \'use ExtUtils::MakeMaker qw(&mkbootstrap); &mkbootstrap("$(BSLOADLIBS)");\' \
  1906.           INST_LIB=$(INST_LIB) INST_ARCHLIB=$(INST_ARCHLIB) PERL_SRC=$(PERL_SRC) NAME=$(NAME)
  1907.       @ $(TOUCH) $(BOOTSTRAP)
  1908.   
  1909. ***************
  1910. *** 1431,1438 ****
  1911.   ARMAYBE = '.$armaybe.'
  1912.   OTHERLDFLAGS = '.$otherldflags.'
  1913.   
  1914. ! $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP)
  1915. !     @ $(MKPATH) $(INST_ARCHAUTODIR)
  1916.   ');
  1917.       if ($armaybe ne ':'){
  1918.       $ldfrom = "tmp.a";
  1919. --- 1478,1484 ----
  1920.   ARMAYBE = '.$armaybe.'
  1921.   OTHERLDFLAGS = '.$otherldflags.'
  1922.   
  1923. ! $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
  1924.   ');
  1925.       if ($armaybe ne ':'){
  1926.       $ldfrom = "tmp.a";
  1927. ***************
  1928. *** 1442,1447 ****
  1929. --- 1488,1495 ----
  1930.       $ldfrom = "-all $ldfrom -none" if ($osname eq 'dec_osf');
  1931.       push(@m,'    $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
  1932.               ' $(OTHERLDFLAGS) $(MYEXTLIB) $(LDLOADLIBS)'."\n");
  1933. + 
  1934. +     push @m, MM->dir_target('$(INST_ARCHAUTODIR)');
  1935.       join('',@m);
  1936.   }
  1937.   
  1938. ***************
  1939. *** 1460,1467 ****
  1940.   sub static_lib{
  1941.       my(@m);
  1942.       push(@m, <<'END');
  1943. ! $(INST_STATIC): $(OBJECT) $(MYEXTLIB)
  1944. !     @ $(MKPATH) $(INST_ARCHAUTODIR)
  1945.   END
  1946.       # If this extension has it's own library (eg SDBM_File)
  1947.       # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
  1948. --- 1508,1514 ----
  1949.   sub static_lib{
  1950.       my(@m);
  1951.       push(@m, <<'END');
  1952. ! $(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
  1953.   END
  1954.       # If this extension has it's own library (eg SDBM_File)
  1955.       # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
  1956. ***************
  1957. *** 1477,1482 ****
  1958. --- 1524,1530 ----
  1959.       push(@m, <<'END') if $att{PERL_SRC};
  1960.       @ echo "$(EXTRALIBS)" >> $(PERL_SRC)/ext.libs
  1961.   END
  1962. +     push @m, MM->dir_target('$(INST_ARCHAUTODIR)');
  1963.       join('', "\n",@m);
  1964.   }
  1965.   
  1966. ***************
  1967. *** 1506,1521 ****
  1968.       my($instdir) = $inst =~ m|(.*)/|;
  1969.       my(@m);
  1970.       push(@m,"
  1971. ! $inst: $dist Makefile
  1972.   ".'    @ '.$att{RM_F}.' $@
  1973. -     @ $(MKPATH) '.$instdir.'
  1974.       '."$att{CP} $dist".' $@
  1975.   ');
  1976.       push(@m, "\t\@\$(AUTOSPLITFILE) \$@ $splitlib/auto\n")
  1977.       if ($splitlib and $inst =~ m/\.pm$/);
  1978.       join('', @m);
  1979.   }
  1980.   
  1981.   sub installbin {
  1982.       return "" unless $att{EXE_FILES} && ref $att{EXE_FILES} eq "ARRAY";
  1983.       my(@m, $from, $to, %fromto, @to);
  1984. --- 1554,1584 ----
  1985.       my($instdir) = $inst =~ m|(.*)/|;
  1986.       my(@m);
  1987.       push(@m,"
  1988. ! $inst: $dist Makefile $instdir/.exists
  1989.   ".'    @ '.$att{RM_F}.' $@
  1990.       '."$att{CP} $dist".' $@
  1991.   ');
  1992.       push(@m, "\t\@\$(AUTOSPLITFILE) \$@ $splitlib/auto\n")
  1993.       if ($splitlib and $inst =~ m/\.pm$/);
  1994. + 
  1995. +     push @m, MM->dir_target($instdir);
  1996.       join('', @m);
  1997.   }
  1998.   
  1999. + sub processPL {
  2000. +     return "" unless $att{PL_FILES};
  2001. +     my(@m, $plfile);
  2002. +     foreach $plfile (sort keys %{$att{PL_FILES}}) {
  2003. +     push @m, "
  2004. + all :: $att{PL_FILES}->{$plfile}
  2005. + 
  2006. + $att{PL_FILES}->{$plfile} :: $plfile
  2007. +     \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) $plfile
  2008. + ";
  2009. +     }
  2010. +     join "", @m;
  2011. + }
  2012. + 
  2013.   sub installbin {
  2014.       return "" unless $att{EXE_FILES} && ref $att{EXE_FILES} eq "ARRAY";
  2015.       my(@m, $from, $to, %fromto, @to);
  2016. ***************
  2017. *** 1589,1608 ****
  2018.       # MY::subdir_x() method to override this one.
  2019.       qq{
  2020.   config :: $subdir/$att{MAKEFILE}
  2021. !     cd $subdir ; \$(MAKE) config INST_LIB=\$(INST_LIB) INST_ARCHLIB=\$(INST_ARCHLIB)  \\
  2022. !         INST_EXE=\$(INST_EXE) LINKTYPE=\$(LINKTYPE) LIBPERL_A=\$(LIBPERL_A) \$(SUBDIR_MAKEFILE_PL_ARGS)
  2023.   
  2024.   $subdir/$att{MAKEFILE}: $subdir/Makefile.PL \$(CONFIGDEP)
  2025.   }.'    @echo "Rebuilding $@ ..."
  2026.       $(PERL) $(I_PERL_LIBS) \\
  2027.           -e "use ExtUtils::MakeMaker; MM->runsubdirpl(qw('.$subdir.'))" \\
  2028. !         INST_LIB=$(INST_LIB) INST_ARCHLIB=$(INST_ARCHLIB) \\
  2029. !         INST_EXE=$(INST_EXE) LINKTYPE=\$(LINKTYPE) LIBPERL_A=$(LIBPERL_A) $(SUBDIR_MAKEFILE_PL_ARGS)
  2030.       @echo "Rebuild of $@ complete."
  2031.   '.qq{
  2032.   
  2033.   subdirs ::
  2034. !     cd $subdir ; \$(MAKE) all LINKTYPE=\$(LINKTYPE)
  2035.   
  2036.   };
  2037.   }
  2038. --- 1652,1669 ----
  2039.       # MY::subdir_x() method to override this one.
  2040.       qq{
  2041.   config :: $subdir/$att{MAKEFILE}
  2042. !     cd $subdir && \$(MAKE) config \$(PASTHRU1) \$(SUBDIR_MAKEFILE_PL_ARGS)
  2043.   
  2044.   $subdir/$att{MAKEFILE}: $subdir/Makefile.PL \$(CONFIGDEP)
  2045.   }.'    @echo "Rebuilding $@ ..."
  2046.       $(PERL) $(I_PERL_LIBS) \\
  2047.           -e "use ExtUtils::MakeMaker; MM->runsubdirpl(qw('.$subdir.'))" \\
  2048. !         $(PASTHRU1) $(SUBDIR_MAKEFILE_PL_ARGS)
  2049.       @echo "Rebuild of $@ complete."
  2050.   '.qq{
  2051.   
  2052.   subdirs ::
  2053. !     cd $subdir && \$(MAKE) all \$(PASTHRU1)
  2054.   
  2055.   };
  2056.   }
  2057. ***************
  2058. *** 1640,1646 ****
  2059.   realclean purge ::  clean
  2060.   ');
  2061.       # realclean subdirectories first (already cleaned)
  2062. !     $sub = "\t-cd %s && test -f %s && \$(MAKE) %s realclean\n";
  2063.       foreach(@{$att{DIR}}){
  2064.       push(@m, sprintf($sub,$_,"$att{MAKEFILE}.old","-f $att{MAKEFILE}.old"));
  2065.       push(@m, sprintf($sub,$_,"$att{MAKEFILE}",''));
  2066. --- 1701,1707 ----
  2067.   realclean purge ::  clean
  2068.   ');
  2069.       # realclean subdirectories first (already cleaned)
  2070. !     my $sub = "\t-cd %s && test -f %s && \$(MAKE) %s realclean\n";
  2071.       foreach(@{$att{DIR}}){
  2072.       push(@m, sprintf($sub,$_,"$att{MAKEFILE}.old","-f $att{MAKEFILE}.old"));
  2073.       push(@m, sprintf($sub,$_,"$att{MAKEFILE}",''));
  2074. ***************
  2075. *** 1670,1677 ****
  2076.   distclean:     clean
  2077.       $preop
  2078.       $att{RM_F} $mkfiles
  2079. !     cd ..; tar $tarflags $tarname.tar \$(BASEEXT)
  2080. !     cd ..; $compress $tarname.tar
  2081.       $postop
  2082.   ";
  2083.   }
  2084. --- 1731,1738 ----
  2085.   distclean:     clean
  2086.       $preop
  2087.       $att{RM_F} $mkfiles
  2088. !     cd .. && tar $tarflags $tarname.tar \$(BASEEXT)
  2089. !     cd .. && $compress $tarname.tar
  2090.       $postop
  2091.   ";
  2092.   }
  2093. ***************
  2094. *** 1694,1700 ****
  2095.       push(@m, <<'END') if -f "test.pl";
  2096.       $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  2097.   END
  2098. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test LINKTYPE=\$(LINKTYPE)\n",
  2099.            @{$att{DIR}}));
  2100.       push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n") unless @m > 1;
  2101.       join("", @m);
  2102. --- 1755,1761 ----
  2103.       push(@m, <<'END') if -f "test.pl";
  2104.       $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  2105.   END
  2106. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
  2107.            @{$att{DIR}}));
  2108.       push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n") unless @m > 1;
  2109.       join("", @m);
  2110. ***************
  2111. *** 1707,1714 ****
  2112.       push @m, q{
  2113.   doc_install ::
  2114.       @ $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB)  \\
  2115. !         -e 'use ExtUtils::MakeMaker; MM->writedoc("Module", "$(NAME)", \\
  2116. !         "LINKTYPE=$(LINKTYPE)", "VERSION=$(VERSION)", "EXE_FILES=$(EXE_FILES)")'
  2117.   };
  2118.   
  2119.       push(@m, "
  2120. --- 1768,1775 ----
  2121.       push @m, q{
  2122.   doc_install ::
  2123.       @ $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB)  \\
  2124. !         -e "use ExtUtils::MakeMaker; MM->writedoc('Module', '$(NAME)', \\
  2125. !         'LINKTYPE=$(LINKTYPE)', 'VERSION=$(VERSION)', 'EXE_FILES=$(EXE_FILES)')"
  2126.   };
  2127.   
  2128.       push(@m, "
  2129. ***************
  2130. *** 1761,1767 ****
  2131.   
  2132.   $(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
  2133.       @echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
  2134. !     cd $(PERL_SRC); $(MAKE) lib/Config.pm
  2135.   ') if $att{PERL_SRC};
  2136.   
  2137.       push(@m, join(" ", values %{$att{XS}})." : \$(XSUBPPDEPS)\n")
  2138. --- 1822,1828 ----
  2139.   
  2140.   $(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
  2141.       @echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
  2142. !     cd $(PERL_SRC) && $(MAKE) lib/Config.pm
  2143.   ') if $att{PERL_SRC};
  2144.   
  2145.       push(@m, join(" ", values %{$att{XS}})." : \$(XSUBPPDEPS)\n")
  2146. ***************
  2147. *** 1784,1799 ****
  2148.       @echo "Cleaning current config before rebuilding Makefile..."
  2149.       -@mv '."$att{MAKEFILE} $att{MAKEFILE}.old".'
  2150.       -$(MAKE) -f '.$att{MAKEFILE}.'.old clean >/dev/null 2>&1 || true
  2151. !     $(PERL) $(I_PERL_LIBS) Makefile.PL
  2152.       @echo "Now you must rerun make."; false
  2153.   ';
  2154.   }
  2155.   
  2156. - 
  2157.   sub postamble{
  2158.       "";
  2159.   }
  2160.   
  2161.   # --- Make-A-Perl section ---
  2162.   
  2163.   sub staticmake {
  2164. --- 1845,1883 ----
  2165.       @echo "Cleaning current config before rebuilding Makefile..."
  2166.       -@mv '."$att{MAKEFILE} $att{MAKEFILE}.old".'
  2167.       -$(MAKE) -f '.$att{MAKEFILE}.'.old clean >/dev/null 2>&1 || true
  2168. !     $(PERL) $(I_PERL_LIBS) Makefile.PL '."@ARGV".'
  2169.       @echo "Now you must rerun make."; false
  2170.   ';
  2171.   }
  2172.   
  2173.   sub postamble{
  2174.       "";
  2175.   }
  2176.   
  2177. + # --- Make-Directories section (internal method) ---
  2178. + # dir_target(@array) returns a Makefile entry for the file .exists in each
  2179. + # named directory. Returns nothing, if the entry has already been processed.
  2180. + # We're helpless though, if the same directory comes as $(FOO) _and_ as "bar".
  2181. + # Both of them get an entry, that's why we use "::". I chose '$(PERL)' as the 
  2182. + # prerequisite, because there has to be one, something that doesn't change 
  2183. + # too often :)
  2184. + %Dir_Target = (); # package global
  2185. + 
  2186. + sub dir_target {
  2187. +     my($self,@dirs)=@_;
  2188. +     my(@m,$dir);
  2189. +     foreach $dir (@dirs) {
  2190. +     next if $Dir_Target{$dir};
  2191. +     push @m, "
  2192. + $dir/.exists :: \$(PERL)
  2193. +     \@ \$(MKPATH) $dir
  2194. +     \@ \$(TOUCH) $dir/.exists
  2195. + ";
  2196. +     $Dir_Target{$dir}++;
  2197. +     }
  2198. +     join "", @m;
  2199. + }
  2200. + 
  2201.   # --- Make-A-Perl section ---
  2202.   
  2203.   sub staticmake {
  2204. ***************
  2205. *** 1838,1843 ****
  2206. --- 1922,1929 ----
  2207.       File::Find::find(sub {
  2208.       return unless m/\.a$/;
  2209.       return if m/^libperl/;
  2210. +     # don't include the installed version of this extension
  2211. +     return if $File::Find::name =~ m:auto/$att{FULLEXT}/$att{BASEEXT}.a$:;
  2212.       $static{fastcwd() . "/" . $_}++;
  2213.       }, grep( -d $_, @{$searchdirs || []}) );
  2214.   
  2215. ***************
  2216. *** 1868,1886 ****
  2217.   MAP_EXTRA     = @{$extra}
  2218.   MAP_PRELIBS   = $Config{'libs'} $Config{'cryptlib'}
  2219.   ";
  2220. !     if ($libperl) {
  2221. !     unless (-f $libperl || -f ($libperl = "$Config{'installarchlib'}/CORE/$libperl")){
  2222. !         print STDOUT "Warning: $libperl not found";
  2223. !         undef $libperl;
  2224. !     }
  2225. !     }
  2226. !     unless ($libperl) {
  2227. !     if (defined $att{PERL_SRC}) {
  2228. !         $libperl = "$att{PERL_SRC}/libperl.a";
  2229. !     } elsif ( -f ( $libperl = "$Config{'installarchlib'}/CORE/libperl.a" )) {
  2230. !     } else {
  2231. !         print STDOUT "Warning: $libperl not found";
  2232. !     }
  2233.       }
  2234.   
  2235.       push @m, "
  2236. --- 1954,1967 ----
  2237.   MAP_EXTRA     = @{$extra}
  2238.   MAP_PRELIBS   = $Config{'libs'} $Config{'cryptlib'}
  2239.   ";
  2240. ! 
  2241. !     unless ($libperl && -f $libperl) {
  2242. !     my $dir = (defined $att{PERL_SRC}) ? $att{PERL_SRC}
  2243. !                        : "$Config{'installarchlib'}/CORE";
  2244. !     $libperl = "libperl.a" unless $libperl;
  2245. !     $libperl = "$dir/$libperl";
  2246. !     print STDOUT "Warning: $libperl not found"
  2247. !         unless (-f $libperl || defined($att{PERL_SRC}));
  2248.       }
  2249.   
  2250.       push @m, "
  2251. ***************
  2252. *** 1910,1918 ****
  2253.   # We write MAP_EXTRA outside the perl program to have it eval'd by the shell
  2254.       push @m, q{
  2255.   doc_inst_perl:
  2256. !     @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary", \\
  2257. !         "$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)", \\
  2258. !         "MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' -- $(MAP_EXTRA)
  2259.   };
  2260.   
  2261.       push @m, qq{
  2262. --- 1991,1999 ----
  2263.   # We write MAP_EXTRA outside the perl program to have it eval'd by the shell
  2264.       push @m, q{
  2265.   doc_inst_perl:
  2266. !     @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary",' \\
  2267. !         -e '"$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)",' \\
  2268. !         -e '"MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' -- $(MAP_EXTRA)
  2269.   };
  2270.   
  2271.       push @m, qq{
  2272. ***************
  2273. *** 2140,2145 ****
  2274. --- 2221,2227 ----
  2275.   
  2276.   sub mksymlists {
  2277.       my($self) = shift;
  2278. +     my($pkg);
  2279.   
  2280.       # only AIX requires a symbol list at this point
  2281.       # (so does VMS, but that's handled by the MM_VMS package)
  2282. ***************
  2283. *** 2157,2162 ****
  2284. --- 2239,2245 ----
  2285.       print EXP join("\n",@{$att{DL_VARS}}) if $att{DL_VARS};
  2286.       foreach $pkg (keys %{$att{DL_FUNCS}}) {
  2287.           (my($prefix) = $pkg) =~ s/\W/_/g;
  2288. +     my $func;
  2289.           foreach $func (@{$att{DL_FUNCS}->{$pkg}}) {
  2290.               $func = "XS_${prefix}_$func" unless $func =~ /^boot_/;
  2291.               print EXP "$func\n";
  2292. ***************
  2293. *** 2199,2204 ****
  2294. --- 2282,2288 ----
  2295.       close POD;
  2296.   }
  2297.   
  2298. + 
  2299.   =head1 AUTHORS
  2300.   
  2301.   Andy Dougherty F<E<lt>doughera@lafcol.lafayette.eduE<gt>>, Andreas
  2302. ***************
  2303. *** 2229,2241 ****
  2304.   v4.04 Februeary 5th 1995 By Andreas Koenig
  2305.   v4.05 February 8th 1995 By Andreas Koenig
  2306.   v4.06 February 10th 1995 By Andreas Koenig
  2307. - 
  2308. - Cleaning up the new interface. Suggestion to freeze now until 5.001.
  2309. - 
  2310.   v4.061 February 12th 1995 By Andreas Koenig
  2311. - 
  2312. - Fixes of some my() declarations and of @extra computing in makeaperl().
  2313. - 
  2314.   v4.08 - 4.085  February 14th-21st 1995 by Andreas Koenig
  2315.   
  2316.   Introduces EXE_FILES and INST_EXE for installing executable scripts 
  2317. --- 2313,2319 ----
  2318. ***************
  2319. *** 2272,2277 ****
  2320. --- 2350,2397 ----
  2321.   v4.086 March 9 1995 by Andy Dougherty
  2322.   
  2323.   Fixed some AIX buglets.  Fixed DLD support for Linux with gcc 2.6.2.
  2324. + 
  2325. + v4.09 March 31 1995 by Andreas Koenig
  2326. + 
  2327. + Patches from Tim (/usr/local/lib/perl5/hpux/CORE/libperl.a not found
  2328. + message eliminated, and a small makeaperl patch).
  2329. + 
  2330. + blib now is a relative directory (./blib).
  2331. + 
  2332. + Documentation bug fixed.
  2333. + 
  2334. + Chdir in the Makefile always followed by "&&", not by ";".
  2335. + 
  2336. + The output of cflags is no longer directed to /dev/null, but the shell
  2337. + version of cflags is now only called once.
  2338. + 
  2339. + The result of MakeMaker's cflags takes precedence over
  2340. + shell-cflags.
  2341. + 
  2342. + Introduced a $(PASTHRU) variable, that doesn't have much effect yet,
  2343. + but now it's easier to add variables that have to be passed to
  2344. + recursive makes.
  2345. + 
  2346. + 'make config' will now always reapply the original arguments to the
  2347. + 'perl Makefile.PL'.
  2348. + 
  2349. + MKPATH will be called only once for any directory (should speed up Tk
  2350. + building and installation considerably).
  2351. + 
  2352. + "Subroutine mkbootstrap redefined" message eliminated. It was
  2353. + necessary to move &mkbootstrap and &mksymlists from @EXPORT to
  2354. + @EXPORT_OK.
  2355. + 
  2356. + C<*.PL> files will be processed by C<$(PERL)>.
  2357. + 
  2358. + Turned some globals into my() variables, where it was obvious to be an
  2359. + oversight.
  2360. + 
  2361. + Changed some continuation lines so that they work on Solaris and Unicos.
  2362. + 
  2363. + v4.091 April 3 1995 by Andy Dougherty
  2364. + 
  2365. + Another attempt to fix writedoc() from Dean Roehrich.
  2366.   
  2367.   =head1 NOTES
  2368.   
  2369. Index: myconfig
  2370. *** perl5.001b/myconfig    Tue Oct 18 12:21:05 1994
  2371. --- perl5.001c/myconfig    Tue Apr  4 12:13:21 1995
  2372. ***************
  2373. *** 22,28 ****
  2374.       uname='$myuname'
  2375.       hint=$hint
  2376.     Compiler:
  2377. !     cc='$cc', optimize='$optimize'
  2378.       cppflags='$cppflags'
  2379.       ccflags ='$ccflags'
  2380.       ldflags ='$ldflags'
  2381. --- 22,28 ----
  2382.       uname='$myuname'
  2383.       hint=$hint
  2384.     Compiler:
  2385. !     cc='$cc', optimize='$optimize', ld='$ld'
  2386.       cppflags='$cppflags'
  2387.       ccflags ='$ccflags'
  2388.       ldflags ='$ldflags'
  2389. Index: perl.c
  2390. *** perl5.001b/perl.c    Sun Mar 12 03:14:11 1995
  2391. --- perl5.001c/perl.c    Fri Apr  7 07:55:27 1995
  2392. ***************
  2393. *** 833,842 ****
  2394.   
  2395.   #if defined(DOSISH)
  2396.   #    define PERLLIB_SEP ';'
  2397. - #elif defined(VMS)
  2398. - #    define PERLLIB_SEP '|'
  2399.   #else
  2400.   #    define PERLLIB_SEP ':'
  2401.   #endif
  2402.   
  2403.   static void
  2404. --- 833,844 ----
  2405.   
  2406.   #if defined(DOSISH)
  2407.   #    define PERLLIB_SEP ';'
  2408.   #else
  2409. + #  if defined(VMS)
  2410. + #    define PERLLIB_SEP '|'
  2411. + #  else
  2412.   #    define PERLLIB_SEP ':'
  2413. + #  endif
  2414.   #endif
  2415.   
  2416.   static void
  2417. Index: perl.h
  2418. *** perl5.001b/perl.h    Sun Mar 12 03:14:13 1995
  2419. --- perl5.001c/perl.h    Wed Apr  5 16:43:59 1995
  2420. ***************
  2421. *** 639,647 ****
  2422.   #define U_L(what) ((U32)(what))
  2423.   #else
  2424.   U32 cast_ulong _((double));
  2425. ! #define U_S(what) ((U16)cast_ulong(what))
  2426. ! #define U_I(what) ((unsigned int)cast_ulong(what))
  2427. ! #define U_L(what) (cast_ulong(what))
  2428.   #endif
  2429.   
  2430.   #ifdef CASTI32
  2431. --- 639,647 ----
  2432.   #define U_L(what) ((U32)(what))
  2433.   #else
  2434.   U32 cast_ulong _((double));
  2435. ! #define U_S(what) ((U16)cast_ulong((double)(what)))
  2436. ! #define U_I(what) ((unsigned int)cast_ulong((double)(what)))
  2437. ! #define U_L(what) (cast_ulong((double)(what)))
  2438.   #endif
  2439.   
  2440.   #ifdef CASTI32
  2441. ***************
  2442. *** 649,657 ****
  2443.   #define I_V(what) ((IV)(what))
  2444.   #else
  2445.   I32 cast_i32 _((double));
  2446. ! #define I_32(what) (cast_i32(what))
  2447.   IV cast_iv _((double));
  2448. ! #define I_V(what) (cast_iv(what))
  2449.   #endif
  2450.   
  2451.   struct Outrec {
  2452. --- 649,657 ----
  2453.   #define I_V(what) ((IV)(what))
  2454.   #else
  2455.   I32 cast_i32 _((double));
  2456. ! #define I_32(what) (cast_i32((double)(what)))
  2457.   IV cast_iv _((double));
  2458. ! #define I_V(what) (cast_iv((double)(what)))
  2459.   #endif
  2460.   
  2461.   struct Outrec {
  2462. ***************
  2463. *** 758,764 ****
  2464.       extern "C" {
  2465.   #   endif
  2466.           double exp _((double));
  2467. -         double fmod _((double,double));
  2468.           double log _((double));
  2469.           double sqrt _((double));
  2470.           double modf _((double,double*));
  2471. --- 758,763 ----
  2472. ***************
  2473. *** 768,782 ****
  2474.           double pow _((double,double));
  2475.   #   ifdef __cplusplus
  2476.       };
  2477. - #   endif
  2478. - #endif
  2479. - 
  2480. - #ifndef HAS_FMOD
  2481. - #   ifdef HAS_DREM
  2482. - #    define fmod(x,y) drem((x),(y))
  2483. - #   else
  2484. - #    define USE_MY_FMOD
  2485. - #    define fmod(x,y) my_fmod(x,y)
  2486.   #   endif
  2487.   #endif
  2488.   
  2489. --- 767,772 ----
  2490. Index: proto.h
  2491. *** perl5.001b/proto.h    Mon Feb 13 21:49:25 1995
  2492. --- perl5.001c/proto.h    Wed Apr  5 14:50:41 1995
  2493. ***************
  2494. *** 211,219 ****
  2495.   char*    my_bzero _((char* loc, I32 len));
  2496.   #endif
  2497.   void    my_exit _((U32 status)) __attribute__((noreturn));
  2498. - #ifdef    USE_MY_FMOD
  2499. - double    my_fmod _((double x, double y));
  2500. - #endif
  2501.   I32    my_lstat _((void));
  2502.   #ifndef HAS_MEMCMP
  2503.   I32    my_memcmp _((unsigned char* s1, unsigned char* s2, I32 len));
  2504. --- 211,216 ----
  2505. Index: sv.h
  2506. *** perl5.001b/sv.h    Wed Feb 15 19:06:11 1995
  2507. --- perl5.001c/sv.h    Tue Apr  4 12:14:06 1995
  2508. ***************
  2509. *** 45,51 ****
  2510.   };
  2511.   
  2512.   struct cv {
  2513. !     XPVGV*    sv_any;        /* pointer to something */
  2514.       U32        sv_refcnt;    /* how many references to us */
  2515.       U32        sv_flags;    /* what we are */
  2516.   };
  2517. --- 45,51 ----
  2518.   };
  2519.   
  2520.   struct cv {
  2521. !     XPVCV*    sv_any;        /* pointer to something */
  2522.       U32        sv_refcnt;    /* how many references to us */
  2523.       U32        sv_flags;    /* what we are */
  2524.   };
  2525. Index: util.c
  2526. *** perl5.001b/util.c    Sun Mar 12 02:36:14 1995
  2527. --- perl5.001c/util.c    Wed Apr  5 15:52:50 1995
  2528. ***************
  2529. *** 1579,1590 ****
  2530.   cast_i32(f)
  2531.   double f;
  2532.   {
  2533. ! #   define BIGDOUBLE 2147483648.0        /* Assume 32 bit int's ! */
  2534.   #   define BIGNEGDOUBLE (-2147483648.0)
  2535.       if (f >= BIGDOUBLE)
  2536. !     return (I32)fmod(f, BIGDOUBLE);
  2537.       if (f <= BIGNEGDOUBLE)
  2538. !     return (I32)fmod(f, BIGNEGDOUBLE);
  2539.       return (I32) f;
  2540.   }
  2541.   # undef BIGDOUBLE
  2542. --- 1579,1590 ----
  2543.   cast_i32(f)
  2544.   double f;
  2545.   {
  2546. ! #   define BIGDOUBLE 2147483647.0        /* Assume 32 bit int's ! */
  2547.   #   define BIGNEGDOUBLE (-2147483648.0)
  2548.       if (f >= BIGDOUBLE)
  2549. !     return (I32) BIGDOUBLE;
  2550.       if (f <= BIGNEGDOUBLE)
  2551. !     return (I32) BIGNEGDOUBLE;
  2552.       return (I32) f;
  2553.   }
  2554.   # undef BIGDOUBLE
  2555. ***************
  2556. *** 1595,1606 ****
  2557.   double f;
  2558.   {
  2559.       /* XXX  This should be fixed.  It assumes 32 bit IV's. */
  2560. ! #   define BIGDOUBLE 2147483648.0        /* Assume 32 bit IV's ! */
  2561.   #   define BIGNEGDOUBLE (-2147483648.0)
  2562.       if (f >= BIGDOUBLE)
  2563. !     return (IV)fmod(f, BIGDOUBLE);
  2564.       if (f <= BIGNEGDOUBLE)
  2565. !     return (IV)fmod(f, BIGNEGDOUBLE);
  2566.       return (IV) f;
  2567.   }
  2568.   # undef BIGDOUBLE
  2569. --- 1595,1606 ----
  2570.   double f;
  2571.   {
  2572.       /* XXX  This should be fixed.  It assumes 32 bit IV's. */
  2573. ! #   define BIGDOUBLE 2147483647.0        /* Assume 32 bit IV's ! */
  2574.   #   define BIGNEGDOUBLE (-2147483648.0)
  2575.       if (f >= BIGDOUBLE)
  2576. !     return (IV) BIGDOUBLE;
  2577.       if (f <= BIGNEGDOUBLE)
  2578. !     return (IV) BIGNEGDOUBLE;
  2579.       return (IV) f;
  2580.   }
  2581.   # undef BIGDOUBLE
  2582. ***************
  2583. *** 1687,1714 ****
  2584.       *retlen = s - start;
  2585.       return retval;
  2586.   }
  2587. - 
  2588. - /* Amazingly enough, some systems (e.g. Dynix 3) don't have fmod.
  2589. -    This is a slow, stupid, but working emulation.  (AD)
  2590. - */
  2591. - #ifdef USE_MY_FMOD
  2592. - double
  2593. - my_fmod(x, y)
  2594. - double x, y;
  2595. - {
  2596. -     double i = 0.0;   /* Can't use int because it can overflow */
  2597. -     if ((x == 0) || (y == 0))
  2598. -        return 0;
  2599. -     /* The sign of fmod is the same as the sign of x.  */
  2600. -     if ( (x < 0 && y > 0) || (x > 0 && y < 0) )
  2601. -     y = -y;
  2602. -     if (x > 0) {
  2603. -     while (x - i*y > y)
  2604. -         i++;
  2605. -     } else {
  2606. -     while (x - i*y < y)
  2607. -         i++;
  2608. -     }
  2609. -     return x - i * y;
  2610. - }
  2611. - #endif
  2612. --- 1687,1689 ----
  2613. Index: vms/config.vms
  2614. *** perl5.001b/vms/config.vms    Sun Mar 12 03:14:20 1995
  2615. --- perl5.001c/vms/config.vms    Thu Apr  6 11:08:53 1995
  2616. ***************
  2617. *** 1311,1329 ****
  2618.   #undef SETUID_SCRIPTS_ARE_SECURE_NOW    /**/
  2619.   #undef DOSUID        /**/
  2620.   
  2621. - /* HAS_DREM:
  2622. -  *    This symbol, if defined, indicates that the drem routine is
  2623. -  *    available.  This is a Pyramid routine that is the same as
  2624. -  *    fmod.
  2625. -  */
  2626. - #undef HAS_DREM        /**/
  2627. - 
  2628. - /* HAS_FMOD:
  2629. -  *    This symbol, if defined, indicates that the fmod routine is
  2630. -  *    available.
  2631. -  */
  2632. - #define HAS_FMOD        /**/
  2633. - 
  2634.   /* Gconvert:
  2635.    *    This preprocessor macro is defined to convert a floating point
  2636.    *    number to a string without a trailing decimal point.  This
  2637. --- 1311,1316 ----
  2638. Index: x2p/Makefile.SH
  2639. *** perl5.001b/x2p/Makefile.SH    Fri Apr  7 07:58:29 1995
  2640. --- perl5.001c/x2p/Makefile.SH    Wed Mar 15 14:28:39 1995
  2641. ***************
  2642. *** 76,82 ****
  2643.   # used only if you force byacc to run by saying
  2644.   # make  run_byacc
  2645.   
  2646. ! run_byacc:
  2647.       @ echo Expect many shift/reduce and reduce/reduce conflicts
  2648.       $(BYACC) a2p.y
  2649.       mv y.tab.c a2p.c
  2650. --- 76,82 ----
  2651.   # used only if you force byacc to run by saying
  2652.   # make  run_byacc
  2653.   
  2654. ! run_byacc:    FORCE
  2655.       @ echo Expect many shift/reduce and reduce/reduce conflicts
  2656.       $(BYACC) a2p.y
  2657.       mv y.tab.c a2p.c
  2658. ***************
  2659. *** 84,90 ****
  2660.   # We don't want to regenerate a2p.c, but it might appear out-of-date
  2661.   # after a patch is applied or a new distribution is made.
  2662.   a2p.c: a2p.y
  2663. !     - touch a2p.c
  2664.   
  2665.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  2666.       $(CCCMD) $(LARGE) a2p.c
  2667. --- 84,90 ----
  2668.   # We don't want to regenerate a2p.c, but it might appear out-of-date
  2669.   # after a patch is applied or a new distribution is made.
  2670.   a2p.c: a2p.y
  2671. !     -@touch a2p.c
  2672.   
  2673.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  2674.       $(CCCMD) $(LARGE) a2p.c
  2675.  
  2676.  
  2677. End of patch.
  2678.