home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / perl5 / perl5_003.pat-gz / perl5_003.pat
Text File  |  1996-06-24  |  341KB  |  11,149 lines
  1. #!/bin/sh
  2. #
  3. #    This is patch 5.003 for Perl.
  4. #
  5. #    Apply over Perl 5.002_01 using patch -p1 -N.
  6. #    (If you're using a version of Perl prior to 5.002_01, it's
  7. #    probably easier for you to start with a fresh copy of Perl
  8. #    5.003, which can be obtained from any CPAN site.  A list of
  9. #    CPAN sites is available from http://perl.com/CPAN.)
  10. #
  11. #    This patch makes the following changes to Perl 5.002_01:
  12. #      1. Fixes a security bug in the handling of setuid
  13. #         programs on some systems.
  14. #      2. Updates MakeMaker to version 5.34.
  15. #      3. Fixes a bug which caused real numbers between
  16. #         0 and -1 to be incorrectly optimized to ints
  17. #         in comparisons.
  18. #      4. Updates Makefile.PLs for standard extensions to
  19. #         conform to the current version of MakeMaker.
  20. #      5. Updates hints files for BSD/OS, HP-UX, Linux,
  21. #         MachTen, and Solaris.
  22. #      6. Updates VMS-specific to handling of file
  23. #         specification strings.
  24. #      7. Fixes a bug in installperl which left installed
  25. #         C header files with the wrong permissions.
  26. #    Information on changes to each file is at the head of the diff
  27. #    for that file.  You can extract them using grep '^#:'.
  28.  
  29. exit 0  # in case this file is fed to /bin/sh
  30.  
  31.  
  32. #: INSTALL:
  33. #:   Include $shrpdir in the list of installation directories.
  34. #:   Update comments on using GNU as/ld under SunOS and Solaris
  35. diff -crN perl5.002_01/INSTALL perl5.003/INSTALL
  36. *** perl5.002_01/INSTALL    Mon Mar 25 01:04:10 1996
  37. --- perl5.003/INSTALL    Mon Jun 24 16:07:53 1996
  38. ***************
  39. *** 312,317 ****
  40. --- 312,318 ----
  41.       installscript=`echo $installscript | sed "s!$prefix!$installprefix!"`
  42.       installsitelib=`echo $installsitelib | sed "s!$prefix!$installprefix!"`
  43.       installsitearch=`echo $installsitearch | sed "s!$prefix!$installprefix!"`
  44. +     shrpdir=`echo $shrpdir | sed "s!$prefix!$installprefix!"`
  45.   
  46.   Then, you can Configure and install in the usual way:
  47.   
  48. ***************
  49. *** 536,544 ****
  50.   and i_varags='undef' in config.sh.  The problem is usually solved
  51.   by running fixincludes correctly.
  52.   
  53. ! If you wish to use dynamic loading on SunOS or Solaris, and you
  54. ! have GNU as and GNU ld installed, you may need to add B<-B/bin/> to
  55. ! your $ccflags and $ldflags so that the system's versions of as
  56.   and ld are used.
  57.   
  58.   If you run into dynamic loading problems, check your setting of
  59. --- 537,546 ----
  60.   and i_varags='undef' in config.sh.  The problem is usually solved
  61.   by running fixincludes correctly.
  62.   
  63. ! If you have problems with dynamic loading using gcc on SunOS or
  64. ! Solaris, and you are using GNU as and GNU ld, you may need to add
  65. ! B<-B/bin/> (for SunOS) or B<-B/usr/ccs/bin> (for Solaris) to your
  66. ! $ccflags, $ldflags, and $lddlflags so that the system's versions of as
  67.   and ld are used.
  68.   
  69.   If you run into dynamic loading problems, check your setting of
  70.  
  71.  
  72. #: ext/DynaLoader/Makefile.PL:
  73. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  74. diff -crN perl5.002_01/ext/DynaLoader/Makefile.PL perl5.003/ext/DynaLoader/Makefile.PL
  75. *** perl5.002_01/ext/DynaLoader/Makefile.PL    Wed Jan 31 13:26:40 1996
  76. --- perl5.003/ext/DynaLoader/Makefile.PL    Sun Jun 23 22:07:51 1996
  77. ***************
  78. *** 1,6 ****
  79. --- 1,7 ----
  80.   use ExtUtils::MakeMaker;
  81.   
  82.   WriteMakefile(
  83. +     NAME    => 'DynaLoader',
  84.       LINKTYPE    => 'static',
  85.       DEFINE    => '-DLIBC="$(LIBC)"',
  86.       MAN3PODS     => ' ',     # Pods will be built by installman.
  87.  
  88.  
  89. #: ext/Fcntl/Makefile.PL:
  90. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  91. diff -crN perl5.002_01/ext/Fcntl/Makefile.PL perl5.003/ext/Fcntl/Makefile.PL
  92. *** perl5.002_01/ext/Fcntl/Makefile.PL    Wed Jan 31 13:27:05 1996
  93. --- perl5.003/ext/Fcntl/Makefile.PL    Sun Jun 23 22:08:33 1996
  94. ***************
  95. *** 1,5 ****
  96. --- 1,6 ----
  97.   use ExtUtils::MakeMaker;
  98.   WriteMakefile(
  99. +     NAME     => 'Fcntl',
  100.       MAN3PODS     => ' ',     # Pods will be built by installman.
  101.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  102.       VERSION_FROM => 'Fcntl.pm',
  103.  
  104.  
  105. #: ext/FileHandle/Makefile.PL:
  106. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  107. diff -crN perl5.002_01/ext/FileHandle/Makefile.PL perl5.003/ext/FileHandle/Makefile.PL
  108. *** perl5.002_01/ext/FileHandle/Makefile.PL    Mon Feb 12 14:50:53 1996
  109. --- perl5.003/ext/FileHandle/Makefile.PL    Sun Jun 23 22:08:59 1996
  110. ***************
  111. *** 1,5 ****
  112. --- 1,6 ----
  113.   use ExtUtils::MakeMaker;
  114.   WriteMakefile(
  115. +     NAME    => 'FileHandle',
  116.       MAN3PODS   => ' ',            # Pods will be built by installman.
  117.       XSPROTOARG => '-noprototypes',     # XXX remove later?
  118.       VERSION_FROM => 'FileHandle.pm',
  119. diff -crN perl5.002_01/ext/GDBM_File/Makefile.PL perl5.003/ext/GDBM_File/Makefile.PL
  120.  
  121.  
  122. #: ext/GDBM_File/Makefile.PL:
  123. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  124. *** perl5.002_01/ext/GDBM_File/Makefile.PL    Wed Jan 31 13:27:27 1996
  125. --- perl5.003/ext/GDBM_File/Makefile.PL    Sun Jun 23 22:09:34 1996
  126. ***************
  127. *** 1,5 ****
  128. --- 1,6 ----
  129.   use ExtUtils::MakeMaker;
  130.   WriteMakefile(
  131. +     NAME => 'GDBM_File',
  132.       LIBS => ["-L/usr/local/lib -lgdbm", "-ldbm"],
  133.       MAN3PODS     => ' ',     # Pods will be built by installman.
  134.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  135.  
  136.  
  137. #: ext/NDBM_File/Makefile.PL:
  138. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  139. diff -crN perl5.002_01/ext/NDBM_File/Makefile.PL perl5.003/ext/NDBM_File/Makefile.PL
  140. *** perl5.002_01/ext/NDBM_File/Makefile.PL    Wed Jan 31 13:27:46 1996
  141. --- perl5.003/ext/NDBM_File/Makefile.PL    Sun Jun 23 22:10:04 1996
  142. ***************
  143. *** 1,5 ****
  144. --- 1,6 ----
  145.   use ExtUtils::MakeMaker;
  146.   WriteMakefile(
  147. +     NAME    => 'NDBM_File',
  148.       LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
  149.       MAN3PODS     => ' ',     # Pods will be built by installman.
  150.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  151.  
  152.  
  153. #: ext/NDBM_File/NDBM_File.pm:
  154. #:   C<use strict> with Perl 5.002 or later to avoid confusing warnings
  155. #:   if installed in a library also used by Perl 5.001m.  (It still won't
  156. #:   work with 5,001m, but the error message now states this more clearly.)
  157. diff -crN perl5.002_01/ext/NDBM_File/NDBM_File.pm perl5.003/ext/NDBM_File/NDBM_File.pm
  158. *** perl5.002_01/ext/NDBM_File/NDBM_File.pm    Wed Feb 14 21:14:26 1996
  159. --- perl5.003/ext/NDBM_File/NDBM_File.pm    Mon Jun 24 16:07:53 1996
  160. ***************
  161. *** 1,6 ****
  162.   package NDBM_File;
  163.   
  164. ! use strict;
  165.   use vars qw($VERSION @ISA); 
  166.   
  167.   require Tie::Hash;
  168. --- 1,10 ----
  169.   package NDBM_File;
  170.   
  171. ! BEGIN {
  172. !     if ($] >= 5.002) {
  173. !     use strict;
  174. !     }
  175. ! }
  176.   use vars qw($VERSION @ISA); 
  177.   
  178.   require Tie::Hash;
  179.  
  180.  
  181. #: ext/ODBM_File/Makefile.PL:
  182. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  183. diff -crN perl5.002_01/ext/ODBM_File/Makefile.PL perl5.003/ext/ODBM_File/Makefile.PL
  184. *** perl5.002_01/ext/ODBM_File/Makefile.PL    Wed Jan 31 13:28:05 1996
  185. --- perl5.003/ext/ODBM_File/Makefile.PL    Sun Jun 23 22:10:27 1996
  186. ***************
  187. *** 1,5 ****
  188. --- 1,6 ----
  189.   use ExtUtils::MakeMaker;
  190.   WriteMakefile(
  191. +     NAME    => 'ODBM_File',
  192.       LIBS => ["-ldbm -lucb"],
  193.       MAN3PODS     => ' ',     # Pods will be built by installman.
  194.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  195.  
  196.  
  197. #: ext/POSIX/Makefile.PL:
  198. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  199. diff -crN perl5.002_01/ext/POSIX/Makefile.PL perl5.003/ext/POSIX/Makefile.PL
  200. *** perl5.002_01/ext/POSIX/Makefile.PL    Wed Jan 31 13:28:25 1996
  201. --- perl5.003/ext/POSIX/Makefile.PL    Sun Jun 23 23:47:59 1996
  202. ***************
  203. *** 1,6 ****
  204.   use ExtUtils::MakeMaker;
  205.   WriteMakefile(
  206. !     LIBS => ["-lm -lposix -lcposix"],
  207.       MAN3PODS     => ' ',     # Pods will be built by installman.
  208.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  209.       VERSION_FROM => 'POSIX.pm', 
  210. --- 1,7 ----
  211.   use ExtUtils::MakeMaker;
  212.   WriteMakefile(
  213. !     NAME    => 'POSIX',
  214. !     LIBS    => ["-lm -lposix -lcposix"],
  215.       MAN3PODS     => ' ',     # Pods will be built by installman.
  216.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  217.       VERSION_FROM => 'POSIX.pm', 
  218.  
  219.  
  220. #: ext/SDBM_File/Makefile.PL:
  221. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  222. diff -crN perl5.002_01/ext/SDBM_File/Makefile.PL perl5.003/ext/SDBM_File/Makefile.PL
  223. *** perl5.002_01/ext/SDBM_File/Makefile.PL    Wed Jan 31 13:28:45 1996
  224. --- perl5.003/ext/SDBM_File/Makefile.PL    Sun Jun 23 22:11:07 1996
  225. ***************
  226. *** 6,11 ****
  227. --- 6,12 ----
  228.   # which perform the corresponding actions in the subdirectory.
  229.   
  230.   WriteMakefile(
  231. +     NAME    => 'SDBM_File',
  232.       MYEXTLIB => 'sdbm/libsdbm$(LIB_EXT)',
  233.       MAN3PODS     => ' ',     # Pods will be built by installman.
  234.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  235.  
  236.  
  237. #: ext/SDBM_File/sdbm/Makefile.PL:
  238. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  239. diff -crN perl5.002_01/ext/SDBM_File/sdbm/Makefile.PL perl5.003/ext/SDBM_File/sdbm/Makefile.PL
  240. *** perl5.002_01/ext/SDBM_File/sdbm/Makefile.PL    Sat Jan 20 00:56:27 1996
  241. --- perl5.003/ext/SDBM_File/sdbm/Makefile.PL    Sun Jun 23 22:11:45 1996
  242. ***************
  243. *** 1,5 ****
  244. --- 1,6 ----
  245.   use ExtUtils::MakeMaker;
  246.   WriteMakefile(
  247. +     'NAME'    => 'SDBM_File',
  248.       'LINKTYPE'  => 'static',
  249.       'DEFINE'    => '-DSDBM -DDUFF',
  250.       'SKIP'    => [qw(static static_lib dynamic dynamic_lib)],
  251.  
  252.  
  253. #: ext/Safe/Makefile.PL:
  254. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  255. diff -crN perl5.002_01/ext/Safe/Makefile.PL perl5.003/ext/Safe/Makefile.PL
  256. *** perl5.002_01/ext/Safe/Makefile.PL    Wed Jan 31 13:29:04 1996
  257. --- perl5.003/ext/Safe/Makefile.PL    Sun Jun 23 22:12:21 1996
  258. ***************
  259. *** 1,5 ****
  260. --- 1,6 ----
  261.   use ExtUtils::MakeMaker;
  262.   WriteMakefile(
  263. +     NAME    => 'Safe',
  264.       MAN3PODS     => ' ',     # Pods will be built by installman.
  265.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  266.       VERSION_FROM => 'Safe.pm',
  267.  
  268.  
  269. #: ext/Socket/Makefile.PL:
  270. #:   Add NAME attribute to suppress MakeMaker "guess" warning
  271. diff -crN perl5.002_01/ext/Socket/Makefile.PL perl5.003/ext/Socket/Makefile.PL
  272. *** perl5.002_01/ext/Socket/Makefile.PL    Wed Jan 31 13:29:20 1996
  273. --- perl5.003/ext/Socket/Makefile.PL    Sun Jun 23 22:12:44 1996
  274. ***************
  275. *** 1,5 ****
  276. --- 1,6 ----
  277.   use ExtUtils::MakeMaker;
  278.   WriteMakefile(
  279. +     NAME    => 'Socket',
  280.       VERSION_FROM => 'Socket.pm',
  281.       MAN3PODS     => ' ',     # Pods will be built by installman.
  282.       XSPROTOARG => '-noprototypes',         # XXX remove later?
  283.  
  284.  
  285. #: hints/bsdos.sh
  286. #:   Distinguish between 2.0.x and 2.1.x, and use dynamic linking
  287. #:   in the latter
  288. diff -crN perl5.002_01/hints/bsdos.sh perl5.003/hints/bsdos.sh
  289. *** perl5.002_01/hints/bsdos.sh    Mon Mar 25 01:04:08 1996
  290. --- perl5.003/hints/bsdos.sh    Mon Jun 24 16:49:28 1996
  291. ***************
  292. *** 49,75 ****
  293.       '')    cc='gcc2' ;;
  294.       esac
  295.       ;;
  296. ! 2.*)
  297. !     case "$osvers" in
  298. !     2.1*)    # dlopen() is supported in 2.1
  299. !         usedl='true'
  300. !         d_dlopen='define'
  301. !         cccdlflags='none'
  302. !         # pre-link against the shared C library
  303. !         lddlflags='-r -lc_s.2.1.0'
  304. ! 
  305. !         # BSD/OS 2.1 doesn't (yet) support `true' dynamic linking
  306. !         # so we `preload' the shared libraries by linking
  307. !         # against them; even though we don't pull in any symbols.
  308. !         libswanted="Xpm Xaw Xmu Xt SM ICE Xext X11 $libswanted"
  309. !         libswanted="rpc curses termcap $libswanted"
  310. ! 
  311. !         # Use the system malloc or else you'll have dualing mallocs!
  312. !         d_mymalloc='undef'
  313. !         usemymalloc='n'
  314. !         ;;
  315. !     esac
  316. ! 
  317.       # default to GCC 2.X w/shared libraries
  318.       case "$cc" in
  319.       '')    cc='shlicc2' ;;
  320. --- 49,55 ----
  321.       '')    cc='gcc2' ;;
  322.       esac
  323.       ;;
  324. ! 2.0*)
  325.       # default to GCC 2.X w/shared libraries
  326.       case "$cc" in
  327.       '')    cc='shlicc2' ;;
  328. ***************
  329. *** 83,88 ****
  330. --- 63,96 ----
  331.       # setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS stuff
  332.       # in 4.4BSD-based systems (including BSD/OS 2.0 and later).
  333.       # See http://www.bsdi.com/bsdi-man?setuid(2)
  334. +     d_setregid='undef'
  335. +     d_setreuid='undef'
  336. +     d_setrgid='undef'
  337. +     d_setruid='undef'
  338. +     ;;
  339. + 2.1*)
  340. +     # Use 2.1's shlicc2 for dynamic linking
  341. +     # Since cc -o is linking, use it for compiling too.
  342. +     # I'm not sure whether Configure is careful about
  343. +     # distinguishing between the two.
  344. + 
  345. +     case "$cc" in
  346. +     '')    cc='shlicc2'
  347. +         cccdlflags=' ' ;; # Avoid the dreaded -fpic
  348. +     esac
  349. + 
  350. +     # Link with shared libraries in 2.1
  351. +     # Turns out that shlicc2 will automatically use the
  352. +     # shared libs, so don't explicitly specify -lc_s.2.1.*
  353. +     case "$ld" in
  354. +     '')    ld='shlicc2'
  355. +         lddlflags='-r' ;; # this one is necessary
  356. +     esac
  357. + 
  358. +     # setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS  stuff
  359. +     # in 4.4BSD-based systems (including BSD/OS 2.0 and later).
  360. +     # See http://www.bsdi.com/bsdi-man?setuid(2)
  361. +     # This stuff may or may not be right, but it works.
  362.       d_setregid='undef'
  363.       d_setreuid='undef'
  364.       d_setrgid='undef'
  365.  
  366.  
  367. #: hints/hpux.sh:
  368. #:   Make deferred loading of shared libraries the default
  369. diff -crN perl5.002_01/hints/hpux.sh perl5.003/hints/hpux.sh
  370. *** perl5.002_01/hints/hpux.sh    Tue Feb 27 18:46:35 1996
  371. --- perl5.003/hints/hpux.sh    Mon Jun 24 16:49:34 1996
  372. ***************
  373. *** 94,104 ****
  374.   set `echo " $libswanted " | sed  -e 's@ ld @ @' -e 's@ dbm @ @' -e 's@ BSD @ @' -e 's@ PW @ @'`
  375.   libswanted="$*"
  376.   
  377. ! # If you copy the perl binaries to other systems and the dynamic loader
  378. ! # complains about missing libraries, you can either copy the shared libraries
  379. ! # or switch the comments to recompile perl to use archive libraries
  380. ! # ccdlflags="-Wl,-E -Wl,-a,archive $ccdlflags"
  381. ! ccdlflags="-Wl,-E $ccdlflags"
  382.   
  383.   usemymalloc='y'
  384.   alignbytes=8
  385. --- 94,107 ----
  386.   set `echo " $libswanted " | sed  -e 's@ ld @ @' -e 's@ dbm @ @' -e 's@ BSD @ @' -e 's@ PW @ @'`
  387.   libswanted="$*"
  388.   
  389. ! # By setting the deferred flag below, this means that if you run perl on a
  390. ! # system that does not have the required shared library that you linked it
  391. ! # with, it will die when you try to access a symbol in the (missing) shared
  392. ! # library.  If you would rather know at perl startup time that you are
  393. ! # missing an important shared library, switch the comments so that immediate,
  394. ! # rather than deferred loading is performed.
  395. ! # ccdlflags="-Wl,-E $ccdlflags"
  396. ! ccdlflags="-Wl,-E -Wl,-B,deferred $ccdlflags"
  397.   
  398.   usemymalloc='y'
  399.   alignbytes=8
  400.  
  401.  
  402. #: hints/linux.sh:
  403. #:   Allow Configure to determine malloctype
  404. #:   Don't mess with $nm_so_opt
  405. #:   Make sure messages get to the right places
  406. #:   Disable NDBM, since some systems have problems with the libraries
  407. #:   Don't use gcvt() to print floats; it's buggy in some versions of libc
  408. diff -crN perl5.002_01/hints/linux.sh perl5.003/hints/linux.sh
  409. *** perl5.002_01/hints/linux.sh    Mon Mar 25 01:04:09 1996
  410. --- perl5.003/hints/linux.sh    Mon Jun 24 16:07:53 1996
  411. ***************
  412. *** 9,15 ****
  413.   # Consolidated by Andy Dougherty <doughera@lafcol.lafayette.edu>
  414.   #
  415.   # Updated Thu Feb  8 11:56:10 EST 1996
  416. ! # Add ability to use command-line overrides for optinal settings.
  417.   
  418.   # perl goes into the /usr tree.  See the Filesystem Standard
  419.   # available via anonymous FTP at tsx-11.mit.edu in
  420. --- 9,19 ----
  421.   # Consolidated by Andy Dougherty <doughera@lafcol.lafayette.edu>
  422.   #
  423.   # Updated Thu Feb  8 11:56:10 EST 1996
  424. ! 
  425. ! # Updated Thu May 30 10:50:22 EDT 1996 by <doughera@lafcol.lafayette.edu>
  426. ! 
  427. ! # Updated Fri Jun 21 11:07:54 EDT 1996
  428. ! # NDBM support for ELF renabled by <kjahds@kjahds.com>
  429.   
  430.   # perl goes into the /usr tree.  See the Filesystem Standard
  431.   # available via anonymous FTP at tsx-11.mit.edu in
  432. ***************
  433. *** 19,25 ****
  434.   '') prefix='/usr' ;;
  435.   esac
  436.   
  437. - # This may not be needed in 5.002 since sigaction is used.
  438.   # gcc-2.6.3 defines _G_HAVE_BOOL to 1, but doesn't actually supply bool.
  439.   ccflags="-Dbool=char -DHAS_BOOL $ccflags"
  440.   
  441. --- 23,28 ----
  442. ***************
  443. *** 32,40 ****
  444.   # function in <sys/stat.h>.
  445.   d_lstat=define
  446.   
  447. - # I think Configure gets this right now, but I'd appreciate reports.
  448. - malloctype='void *'
  449. - 
  450.   # Explanation?
  451.   case "$usemymalloc" in
  452.   '') usemymalloc='n' ;;
  453. --- 35,40 ----
  454. ***************
  455. *** 64,76 ****
  456.   }
  457.   EOM
  458.   if ${cc:-gcc} try.c >/dev/null 2>&1 && ./a.out; then
  459. !     cat <<'EOM'
  460.   
  461.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  462.   EOM
  463. !     nm_so_opt='-dynamic'
  464.   else
  465. !     cat <<'EOM'
  466.   
  467.   You don't have an ELF gcc.  I will use dld if possible.  If you are
  468.   using a version of DLD earlier than 3.2.6, or don't have it at all, you
  469. --- 64,81 ----
  470.   }
  471.   EOM
  472.   if ${cc:-gcc} try.c >/dev/null 2>&1 && ./a.out; then
  473. !     cat <<'EOM' >&4
  474.   
  475.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  476. + If dynamic loading doesn't work, read hints/linux.sh for further information.
  477.   EOM
  478. ! 
  479. ! #For RedHat Linux 3.0.3, you may need to fetch
  480. ! # ftp://ftp.redhat.com/pub/redhat-3.0.3/i386/updates/RPMS/ld.so-1.7.14-3.i386.rpm
  481. ! #
  482. ! 
  483.   else
  484. !     cat <<'EOM' >&4
  485.   
  486.   You don't have an ELF gcc.  I will use dld if possible.  If you are
  487.   using a version of DLD earlier than 3.2.6, or don't have it at all, you
  488. ***************
  489. *** 92,136 ****
  490.       ## uncomment the next two lines:
  491.       #ldflags="-static"
  492.       #so='none'
  493.   fi
  494.   
  495.   rm -f try.c a.out
  496.   
  497.   if /bin/bash -c exit; then
  498.     echo You appear to have a working bash. Good.
  499.   else
  500. !   cat << 'EOM'
  501. ! Warning: it would appear you have a defective bash shell installed. This is
  502. ! likely to give you a failure of op/exec test #5 during the test phase of the
  503. ! build, Upgrading to a recent version (1.14.4 or later) should fix the
  504. ! problem.
  505.   
  506.   EOM
  507.   
  508.   fi
  509.   
  510. ! # In addition, on some systems there is a problem with perl and NDBM, which
  511. ! # causes AnyDBM and NDBM_File to lock up. This is evidenced in the tests as
  512. ! # AnyDBM just freezing.  Currently we disable NDBM for all linux systems.
  513. ! # If someone can suggest a more robust test, that would be appreciated.
  514.   #
  515. ! # More info:
  516. ! # Date: Wed, 7 Feb 1996 03:21:04 +0900
  517. ! # From: Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>
  518. ! #
  519. ! # I tried compiling with DBM support and sure enough things locked up
  520. ! # just as advertised. Checking into it, I found that the lockup was
  521. ! # during the call to dbm_open. Not *in* dbm_open -- but between the call
  522. ! # to and the jump into.
  523.   # 
  524. ! # To make a long story short, making sure that the *.a and *.sa pairs of
  525. ! #   /usr/lib/lib{m,db,gdbm}.{a,sa}
  526. ! # were perfectly in sync took care of it.
  527. ! #
  528. ! # This will generate a harmless message:
  529. ! # Hmm...You had some extra variables I don't know about...I'll try to keep 'em.
  530. ! #    Propagating recommended variable d_dbm_open
  531. ! case "$d_dbm_open" in
  532. ! '') d_dbm_open=undef ;;
  533. ! esac
  534.   
  535. --- 97,163 ----
  536.       ## uncomment the next two lines:
  537.       #ldflags="-static"
  538.       #so='none'
  539. + 
  540. +     # In addition, on some systems there is a problem with perl and NDBM
  541. +     # which causes AnyDBM and NDBM_File to lock up. This is evidenced 
  542. +     # in the tests as AnyDBM just freezing.  Apparently, this only 
  543. +     # happens on a.out systems, so we disable NDBM for all a.out linux
  544. +     # systems.  If someone can suggest a more robust test
  545. +     #  that would be appreciated.
  546. +     #
  547. +     # More info:
  548. +     # Date: Wed, 7 Feb 1996 03:21:04 +0900
  549. +     # From: Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>
  550. +     #
  551. +     # I tried compiling with DBM support and sure enough things locked up
  552. +     # just as advertised. Checking into it, I found that the lockup was
  553. +     # during the call to dbm_open. Not *in* dbm_open -- but between the call
  554. +     # to and the jump into.
  555. +     # 
  556. +     # To make a long story short, making sure that the *.a and *.sa pairs of
  557. +     #   /usr/lib/lib{m,db,gdbm}.{a,sa}
  558. +     # were perfectly in sync took care of it.
  559. +     #
  560. +     # This will generate a harmless Whoa There! message
  561. +     case "$d_dbm_open" in
  562. +     '')    cat <<'EOM' >&4
  563. + 
  564. + Disabling ndbm.  This will generate a Whoa There message in Configure.
  565. + Read hints/linux.sh for further information.
  566. + EOM
  567. +         # You can override this with Configure -Dd_dbm_open
  568. +         d_dbm_open=undef
  569. +         ;;
  570. +     esac
  571.   fi
  572.   
  573.   rm -f try.c a.out
  574.   
  575.   if /bin/bash -c exit; then
  576. +   echo
  577.     echo You appear to have a working bash. Good.
  578.   else
  579. !   cat << 'EOM' >&4
  580.   
  581. + *********************** Warning! *********************
  582. + It would appear you have a defective bash shell installed. This is likely to
  583. + give you a failure of op/exec test #5 during the test phase of the build,
  584. + Upgrading to a recent version (1.14.4 or later) should fix the problem.
  585. + ******************************************************
  586.   EOM
  587.   
  588.   fi
  589.   
  590. ! # Avoid some troublesome gcvt() functions.  With some libc versions, 
  591. ! # perl -e '$x=1e5; print "$x\n";' prints 1e+5.  We'd like it
  592. ! # to print 100000 instead, consistent with the integer value given
  593. ! # on other platforms.  This isn't a bug in gcvt, really; more in our
  594. ! # expectations for it.  We'd like it to behave exactly as
  595. ! # sprintf %.16g, but it isn't documented to do that.
  596.   #
  597. ! # We'll use sprintf() instead, since we can control the output more
  598. ! # precisely.
  599.   # 
  600. ! # The next version of Configure will check for this automatically.
  601. ! d_Gconvert='sprintf((b),"%.*g",(n),(x))'
  602.   
  603.  
  604.  
  605. #: hints/machten.sh:
  606. #:   Don't use buggy sigsetjmp
  607. #:   Don't use nlinks returned by stat to count subdirectories
  608. diff -crN perl5.002_01/hints/machten.sh perl5.003/hints/machten.sh
  609. *** perl5.002_01/hints/machten.sh    Mon Feb 12 14:53:13 1996
  610. --- perl5.003/hints/machten.sh    Mon Jun 24 16:07:54 1996
  611. ***************
  612. *** 12,26 ****
  613.   #     Mark Pease <peasem@primenet.com>
  614.   #    Martijn Koster <m.koster@webcrawler.com>
  615.   #    Richard Yeh <rcyeh@cco.caltech.edu>
  616. ! 
  617.   #
  618.   # Comments, questions, and improvements welcome!
  619.   #
  620.   # MachTen 4.X does support dynamic loading, but perl doesn't
  621.   # know how to use it yet.
  622.   #
  623. ! #  Last modified by Andy Dougherty   <doughera@lafcol.lafayette.edu>
  624. ! #  Thu Feb  8 15:07:52 EST 1996
  625.   
  626.   # Configure doesn't know how to parse the nm output.
  627.   usenm=undef
  628. --- 12,28 ----
  629.   #     Mark Pease <peasem@primenet.com>
  630.   #    Martijn Koster <m.koster@webcrawler.com>
  631.   #    Richard Yeh <rcyeh@cco.caltech.edu>
  632. ! #
  633. ! # File::Find's use of link count disabled by Dominic Dunlop 950528
  634. ! # Perl's use of sigsetjmp etc. disabled by Dominic Dunlop 950521
  635.   #
  636.   # Comments, questions, and improvements welcome!
  637.   #
  638.   # MachTen 4.X does support dynamic loading, but perl doesn't
  639.   # know how to use it yet.
  640.   #
  641. ! #  Updated by Dominic Dunlop <domo@tcp.ip.lu>
  642. ! #  Tue May 28 11:20:08 WET DST 1996
  643.   
  644.   # Configure doesn't know how to parse the nm output.
  645.   usenm=undef
  646. ***************
  647. *** 29,31 ****
  648. --- 31,62 ----
  649.   # I don't know if this is true for all MachTen systems, or how to
  650.   # determine this automatically.
  651.   alignbytes=8
  652. + 
  653. + # There appears to be a problem with perl's use of sigsetjmp and
  654. + # friends.  Use setjmp and friends instead.
  655. + d_sigsetjmp='undef' 
  656. + 
  657. + # MachTen always reports ony two links to directories, even if they
  658. + # contain subdirectories.  Consequently, we use this variable to stop
  659. + # File::Find using the link count to determine whether there are
  660. + # subdirectories to be searched.  This will generate a harmless message:
  661. + # Hmm...You had some extra variables I don't know about...I'll try to keep 'em.
  662. + #    Propagating recommended variable dont_use_nlink
  663. + dont_use_nlink=define
  664. + 
  665. + cat <<'EOM' >&4
  666. + 
  667. + Tests
  668. +     io/fs test 4  and
  669. +     op/stat test 3
  670. + may fail since MachTen does not return a useful nlinks field to stat
  671. + on directories.
  672. + 
  673. + At the end of Configure, you will see a harmless message
  674. + 
  675. + Hmm...You had some extra variables I don't know about...I'll try to keep 'em.
  676. +     Propagating recommended variable dont_use_nlink
  677. + 
  678. + Read the File::Find documentation for more information.
  679. + 
  680. + EOM
  681.  
  682.  
  683. #: hints/solaris_2.sh:
  684. #:   Remove outdated fixincludes test
  685. #:   Update message about workarounds for GNU as/ld
  686. diff -crN perl5.002_01/hints/solaris_2.sh perl5.003/hints/solaris_2.sh
  687. *** perl5.002_01/hints/solaris_2.sh    Mon Feb 12 14:53:38 1996
  688. --- perl5.003/hints/solaris_2.sh    Mon Jun 24 16:07:54 1996
  689. ***************
  690. *** 3,9 ****
  691.   # Andy Dougherty  <doughera@lafcol.lafayette.edu>
  692.   # Based on input from lots of folks, especially
  693.   # Dean Roehrich <roehrich@ironwood-fddi.cray.com>
  694. !  
  695.   # See man vfork.
  696.   usevfork=false
  697.   
  698. --- 3,9 ----
  699.   # Andy Dougherty  <doughera@lafcol.lafayette.edu>
  700.   # Based on input from lots of folks, especially
  701.   # Dean Roehrich <roehrich@ironwood-fddi.cray.com>
  702. ! 
  703.   # See man vfork.
  704.   usevfork=false
  705.   
  706. ***************
  707. *** 142,160 ****
  708.           awk '{print $NF}'  | sed 's/specs$/include/'`
  709.   
  710.       # Determine if the fixed-includes look like they'll work.
  711. !     sed 1q $tmp/stdarg.h 2>&1 | grep 'stdarg.h for GNU' 2>&1 >/dev/null
  712. !     case $? in
  713. !     0) ;;
  714. !     *)
  715. !         cat <<END
  716. ! 
  717. ! NOTE: The fixincludes or just-fixinc script for gcc was not run
  718. ! properly.  Your gcc may not be able to compile Perl.  Inform your system
  719. ! administrator that ${cc:-cc} is not properly installed.
  720. ! 
  721. ! END
  722. !         ;;
  723. !     esac
  724.   
  725.       # See if as(1) is GNU as(1).  GNU as(1) won't work for this job.
  726.       case $verbose in
  727. --- 142,148 ----
  728.           awk '{print $NF}'  | sed 's/specs$/include/'`
  729.   
  730.       # Determine if the fixed-includes look like they'll work.
  731. !     # Doesn't work anymore for gcc-2.7.2.
  732.   
  733.       # See if as(1) is GNU as(1).  GNU as(1) won't work for this job.
  734.       case $verbose in
  735. ***************
  736. *** 164,170 ****
  737.   
  738.   NOTE: You are using GNU as(1).  GNU as(1) will not build Perl.
  739.   You must arrange to use /usr/ccs/bin/as, perhaps by setting
  740. ! GCC_EXEC_PREFIX.
  741.   
  742.   END
  743.       ;;
  744. --- 152,158 ----
  745.   
  746.   NOTE: You are using GNU as(1).  GNU as(1) will not build Perl.
  747.   You must arrange to use /usr/ccs/bin/as, perhaps by setting
  748. ! GCC_EXEC_PREFIX or by including -B/usr/ccs/bin in your cc command.
  749.   
  750.   END
  751.       ;;
  752. ***************
  753. *** 178,184 ****
  754.   
  755.   NOTE: You are using GNU ld(1).  GNU ld(1) will not build Perl.
  756.   You must arrange to use /usr/ccs/bin/ld, perhaps by setting
  757. ! GCC_EXEC_PREFIX.
  758.   
  759.   END
  760.       ;;
  761. --- 166,172 ----
  762.   
  763.   NOTE: You are using GNU ld(1).  GNU ld(1) will not build Perl.
  764.   You must arrange to use /usr/ccs/bin/ld, perhaps by setting
  765. ! GCC_EXEC_PREFIX or by including -B/usr/ccs/bin in your cc command.
  766.   
  767.   END
  768.       ;;
  769.  
  770.  
  771. #: installperl
  772. #:   Insure that installed C header files are world-readable
  773. diff -crN perl5.002_01/installperl perl5.003/installperl
  774. *** perl5.002_01/installperl    Mon Mar 25 01:04:10 1996
  775. --- perl5.003/installperl    Mon Jun 24 16:08:25 1996
  776. ***************
  777. *** 177,182 ****
  778. --- 177,183 ----
  779.   mkpath("$installarchlib/CORE", 1, 0777);
  780.   foreach $file (<*.h libperl*.*>) {
  781.       cp_if_diff($file,"$installarchlib/CORE/$file");
  782. +     &chmod(0444,"$installarchlib/CORE/$file");
  783.   }
  784.   # AIX needs perl.exp installed as well.
  785.   cp_if_diff("perl.exp" ,"$installarchlib/CORE/perl.exp") if ($^O eq 'aix');
  786.  
  787.  
  788. #: lib/ExtUtils/Install.pm
  789. #:   Update to MakeMaker 5.34
  790. diff -crN perl5.002_01/lib/ExtUtils/Install.pm perl5.003/lib/ExtUtils/Install.pm
  791. *** perl5.002_01/lib/ExtUtils/Install.pm    Mon Mar 25 01:04:13 1996
  792. --- perl5.003/lib/ExtUtils/Install.pm    Sun Jun 23 20:52:28 1996
  793. ***************
  794. *** 1,27 ****
  795.   package ExtUtils::Install;
  796.   
  797.   use Exporter;
  798. - use SelfLoader;
  799.   use Carp ();
  800. ! 
  801.   @ISA = ('Exporter');
  802.   @EXPORT = ('install','uninstall','pm_to_blib');
  803.   $Is_VMS = $^O eq 'VMS';
  804.   
  805.   #use vars qw( @EXPORT @ISA $Is_VMS );
  806.   #use strict;
  807.   
  808. ! 1;
  809. ! 
  810. ! sub ExtUtils::Install::install;
  811. ! sub ExtUtils::Install::uninstall;
  812. ! sub ExtUtils::Install::pm_to_blib;
  813. ! sub ExtUtils::Install::my_cmp;
  814. ! 
  815. ! __DATA__
  816.   
  817.   sub install {
  818. !     my($hash,$verbose,$nonono) = @_;
  819.       $verbose ||= 0;
  820.       $nonono  ||= 0;
  821.   
  822. --- 1,30 ----
  823.   package ExtUtils::Install;
  824.   
  825. + $VERSION = substr q$Revision: 1.12 $, 10;
  826. + # $Id: Install.pm,v 1.12 1996/06/23 20:46:07 k Exp $
  827. + 
  828.   use Exporter;
  829.   use Carp ();
  830. ! use Config ();
  831. ! use vars qw(@ISA @EXPORT $VERSION);
  832.   @ISA = ('Exporter');
  833.   @EXPORT = ('install','uninstall','pm_to_blib');
  834.   $Is_VMS = $^O eq 'VMS';
  835.   
  836. + my $splitchar = $^O eq 'VMS' ? '|' : $^O eq 'os2' ? ';' : ':';
  837. + my @PERL_ENV_LIB = split $splitchar, defined $ENV{'PERL5LIB'} ? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'};
  838. + my $Inc_uninstall_warn_handler;
  839. + 
  840.   #use vars qw( @EXPORT @ISA $Is_VMS );
  841.   #use strict;
  842.   
  843. ! sub forceunlink {
  844. !     chmod 0666, $_[0];
  845. !     unlink $_[0] or Carp::croak("Cannot forceunlink $_[0]: $!")
  846. ! }
  847.   
  848.   sub install {
  849. !     my($hash,$verbose,$nonono,$inc_uninstall) = @_;
  850.       $verbose ||= 0;
  851.       $nonono  ||= 0;
  852.   
  853. ***************
  854. *** 31,37 ****
  855.       use File::Copy qw(copy);
  856.       use File::Find qw(find);
  857.       use File::Path qw(mkpath);
  858. !     # require "auto/ExtUtils/Install/my_cmp.al"; # Hairy, but for the first
  859.       # time use we are in a different directory when autoload happens, so
  860.       # the relativ path to ./blib is ill.
  861.   
  862. --- 34,44 ----
  863.       use File::Copy qw(copy);
  864.       use File::Find qw(find);
  865.       use File::Path qw(mkpath);
  866. !     # The following lines were needed with AutoLoader (left for the record)
  867. !     # my $my_req = $self->catfile(qw(auto ExtUtils Install my_cmp.al));
  868. !     # require $my_req;
  869. !     # $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
  870. !     # require $my_req; # Hairy, but for the first
  871.       # time use we are in a different directory when autoload happens, so
  872.       # the relativ path to ./blib is ill.
  873.   
  874. ***************
  875. *** 47,53 ****
  876.       #Check if there are files, and if yes, look if the corresponding
  877.       #target directory is writable for us
  878.       opendir DIR, $source_dir_or_file or next;
  879. !     while ($_ = readdir DIR) {
  880.           next if $_ eq "." || $_ eq ".." || $_ eq ".exists";
  881.           if (-w $hash{$source_dir_or_file} || mkpath($hash{$source_dir_or_file})) {
  882.           last;
  883. --- 54,60 ----
  884.       #Check if there are files, and if yes, look if the corresponding
  885.       #target directory is writable for us
  886.       opendir DIR, $source_dir_or_file or next;
  887. !     for (readdir DIR) {
  888.           next if $_ eq "." || $_ eq ".." || $_ eq ".exists";
  889.           if (-w $hash{$source_dir_or_file} || mkpath($hash{$source_dir_or_file})) {
  890.           last;
  891. ***************
  892. *** 89,96 ****
  893.           return if $_ eq ".exists";
  894.           my $targetdir = $MY->catdir($hash{$source},$File::Find::dir);
  895.           my $targetfile = $MY->catfile($targetdir,$_);
  896. -         my $diff = 0;
  897.   
  898.           if ( -f $targetfile && -s _ == $size) {
  899.           # We have a good chance, we can skip this one
  900.           $diff = my_cmp($_,$targetfile);
  901. --- 96,103 ----
  902.           return if $_ eq ".exists";
  903.           my $targetdir = $MY->catdir($hash{$source},$File::Find::dir);
  904.           my $targetfile = $MY->catfile($targetdir,$_);
  905.   
  906. +         my $diff = 0;
  907.           if ( -f $targetfile && -s _ == $size) {
  908.           # We have a good chance, we can skip this one
  909.           $diff = my_cmp($_,$targetfile);
  910. ***************
  911. *** 101,121 ****
  912.   
  913.           if ($diff){
  914.           if (-f $targetfile){
  915. !             unlink $targetfile or Carp::croak("Couldn't unlink $targetfile");
  916.           } else {
  917.               mkpath($targetdir,0,0755) unless $nonono;
  918.               print "mkpath($targetdir,0,0755)\n" if $verbose>1;
  919.           }
  920.           copy($_,$targetfile) unless $nonono;
  921. !         print "Installing $targetfile\n" if $verbose;
  922.           utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
  923.           print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
  924.           chmod $mode, $targetfile;
  925.           print "chmod($mode, $targetfile)\n" if $verbose>1;
  926.           } else {
  927. !         print "Skipping $targetfile (unchanged)\n";
  928.           }
  929. - 
  930.           $write{$targetfile}++;
  931.   
  932.       }, ".");
  933. --- 108,135 ----
  934.   
  935.           if ($diff){
  936.           if (-f $targetfile){
  937. !             forceunlink($targetfile) unless $nonono;
  938.           } else {
  939.               mkpath($targetdir,0,0755) unless $nonono;
  940.               print "mkpath($targetdir,0,0755)\n" if $verbose>1;
  941.           }
  942.           copy($_,$targetfile) unless $nonono;
  943. !         print "Installing $targetfile\n";
  944.           utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
  945.           print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
  946. +         $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
  947.           chmod $mode, $targetfile;
  948.           print "chmod($mode, $targetfile)\n" if $verbose>1;
  949.           } else {
  950. !         print "Skipping $targetfile (unchanged)\n" if $verbose;
  951. !         }
  952. !         
  953. !         if (! defined $inc_uninstall) { # it's called 
  954. !         } elsif ($inc_uninstall == 0){
  955. !         inc_uninstall($_,$File::Find::dir,$verbose,1); # nonono set to 1
  956. !         } else {
  957. !         inc_uninstall($_,$File::Find::dir,$verbose,0); # nonono set to 0
  958.           }
  959.           $write{$targetfile}++;
  960.   
  961.       }, ".");
  962. ***************
  963. *** 163,177 ****
  964.   sub uninstall {
  965.       my($fil,$verbose,$nonono) = @_;
  966.       die "no packlist file found: $fil" unless -f $fil;
  967.       local *P;
  968.       open P, $fil or Carp::croak("uninstall: Could not read packlist file $fil: $!");
  969.       while (<P>) {
  970.       chomp;
  971.       print "unlink $_\n" if $verbose;
  972. !     unlink($_) || Carp::carp("Couldn't unlink $_") unless $nonono;
  973.       }
  974.       print "unlink $fil\n" if $verbose;
  975. !     unlink($fil) || Carp::carp("Couldn't unlink $fil") unless $nonono;
  976.   }
  977.   
  978.   sub pm_to_blib {
  979. --- 177,232 ----
  980.   sub uninstall {
  981.       my($fil,$verbose,$nonono) = @_;
  982.       die "no packlist file found: $fil" unless -f $fil;
  983. +     # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
  984. +     # require $my_req; # Hairy, but for the first
  985.       local *P;
  986.       open P, $fil or Carp::croak("uninstall: Could not read packlist file $fil: $!");
  987.       while (<P>) {
  988.       chomp;
  989.       print "unlink $_\n" if $verbose;
  990. !     forceunlink($_) unless $nonono;
  991.       }
  992.       print "unlink $fil\n" if $verbose;
  993. !     forceunlink($fil) unless $nonono;
  994. ! }
  995. ! 
  996. ! sub inc_uninstall {
  997. !     my($file,$libdir,$verbose,$nonono) = @_;
  998. !     my($dir);
  999. !     my $MY = {};
  1000. !     bless $MY, 'MY';
  1001. !     my %seen_dir = ();
  1002. !     foreach $dir (@INC, @PERL_ENV_LIB, @Config::Config{qw/archlibexp privlibexp sitearchexp sitelibexp/}) {
  1003. !     next if $dir eq ".";
  1004. !     next if $seen_dir{$dir}++;
  1005. !     my($targetfile) = $MY->catfile($dir,$libdir,$file);
  1006. !     next unless -f $targetfile;
  1007. ! 
  1008. !     # The reason why we compare file's contents is, that we cannot
  1009. !     # know, which is the file we just installed (AFS). So we leave
  1010. !     # an identical file in place
  1011. !     my $diff = 0;
  1012. !     if ( -f $targetfile && -s _ == -s $file) {
  1013. !         # We have a good chance, we can skip this one
  1014. !         $diff = my_cmp($file,$targetfile);
  1015. !     } else {
  1016. !         print "#$file and $targetfile differ\n" if $verbose>1;
  1017. !         $diff++;
  1018. !     }
  1019. ! 
  1020. !     next unless $diff;
  1021. !     if ($nonono) {
  1022. !         if ($verbose) {
  1023. !         $Inc_uninstall_warn_handler ||= new ExtUtils::Install::Warn;
  1024. !         $libdir =~ s|^\./|| ; # That's just cosmetics, no need to port. It looks prettier.
  1025. !         $Inc_uninstall_warn_handler->add("$libdir/$file",$targetfile);
  1026. !         }
  1027. !         # if not verbose, we just say nothing
  1028. !     } else {
  1029. !         print "Unlinking $targetfile (shadowing?)\n";
  1030. !         forceunlink($targetfile);
  1031. !     }
  1032. !     }
  1033.   }
  1034.   
  1035.   sub pm_to_blib {
  1036. ***************
  1037. *** 181,186 ****
  1038. --- 236,243 ----
  1039.       use File::Copy qw(copy);
  1040.       use File::Path qw(mkpath);
  1041.       use AutoSplit;
  1042. +     # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
  1043. +     # require $my_req; # Hairy, but for the first
  1044.   
  1045.       my $umask = umask 0022 unless $Is_VMS;
  1046.       mkpath($autodir,0,0755);
  1047. ***************
  1048. *** 191,207 ****
  1049.           next;
  1050.       }
  1051.       if (-f $fromto->{$_}){
  1052. !         unlink $fromto->{$_} or Carp::carp("Couldn't unlink $fromto->{$_}");
  1053.       } else {
  1054.           mkpath(dirname($fromto->{$_}),0,0755);
  1055.       }
  1056.       copy($_,$fromto->{$_});
  1057. !     chmod((stat)[2],$fromto->{$_});
  1058.       print "cp $_ $fromto->{$_}\n";
  1059.       next unless /\.pm$/;
  1060.       autosplit($fromto->{$_},$autodir);
  1061.       }
  1062.       umask $umask unless $Is_VMS;
  1063.   }
  1064.   
  1065.   1;
  1066. --- 248,288 ----
  1067.           next;
  1068.       }
  1069.       if (-f $fromto->{$_}){
  1070. !         forceunlink($fromto->{$_});
  1071.       } else {
  1072.           mkpath(dirname($fromto->{$_}),0,0755);
  1073.       }
  1074.       copy($_,$fromto->{$_});
  1075. !     chmod(0444 | ( (stat)[2] & 0111 ? 0111 : 0 ),$fromto->{$_});
  1076.       print "cp $_ $fromto->{$_}\n";
  1077.       next unless /\.pm$/;
  1078.       autosplit($fromto->{$_},$autodir);
  1079.       }
  1080.       umask $umask unless $Is_VMS;
  1081. + }
  1082. + 
  1083. + package ExtUtils::Install::Warn;
  1084. + 
  1085. + sub new { bless {}, shift }
  1086. + 
  1087. + sub add {
  1088. +     my($self,$file,$targetfile) = @_;
  1089. +     push @{$self->{$file}}, $targetfile;
  1090. + }
  1091. + 
  1092. + sub DESTROY {
  1093. +     my $self = shift;
  1094. +     my($file,$i,$plural);
  1095. +     foreach $file (sort keys %$self) {
  1096. +     $plural = @{$self->{$file}} > 1 ? "s" : "";
  1097. +     print "## Differing version$plural of $file found. You might like to\n";
  1098. +     for (0..$#{$self->{$file}}) {
  1099. +         print "rm ", $self->{$file}[$_], "\n";
  1100. +         $i++;
  1101. +     }
  1102. +     }
  1103. +     $plural = $i>1 ? "all those files" : "this file";
  1104. +     print "## Running 'make install UNINST=1' will unlink $plural for you.\n";
  1105.   }
  1106.   
  1107.   1;
  1108.  
  1109.  
  1110. #: lib/ExtUtils/Liblist.pm
  1111. #:   Update to MakeMaker 5.34
  1112. diff -crN perl5.002_01/lib/ExtUtils/Liblist.pm perl5.003/lib/ExtUtils/Liblist.pm
  1113. *** perl5.002_01/lib/ExtUtils/Liblist.pm    Mon Mar 25 01:04:15 1996
  1114. --- perl5.003/lib/ExtUtils/Liblist.pm    Sun Jun 23 20:52:37 1996
  1115. ***************
  1116. *** 2,7 ****
  1117. --- 2,9 ----
  1118.   
  1119.   # Broken out of MakeMaker from version 4.11
  1120.   
  1121. + $ExtUtils::Liblist::VERSION = substr q$Revision: 1.19 $, 10;
  1122. + 
  1123.   use Config;
  1124.   use Cwd 'cwd';
  1125.   use File::Basename;
  1126. ***************
  1127. *** 10,16 ****
  1128.   
  1129.   sub ext {
  1130.       my($self,$potential_libs, $Verbose) = @_;
  1131. !     if ($^O eq 'os2' and $Config{libs}) { 
  1132.       # Dynamic libraries are not transitive, so we may need including
  1133.       # the libraries linked against perl.dll again.
  1134.   
  1135. --- 12,18 ----
  1136.   
  1137.   sub ext {
  1138.       my($self,$potential_libs, $Verbose) = @_;
  1139. !     if ($^O =~ 'os2' and $Config{libs}) { 
  1140.       # Dynamic libraries are not transitive, so we may need including
  1141.       # the libraries linked against perl.dll again.
  1142.   
  1143. ***************
  1144. *** 45,53 ****
  1145.               if $Verbose;
  1146.           next;
  1147.           }
  1148. !         if ($thislib !~ m|^/|) {
  1149.             print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
  1150. !           $thislib = "$pwd/$thislib";
  1151.           }
  1152.           push(@searchpath, $thislib);
  1153.           push(@extralibs,  "$ptype$thislib");
  1154. --- 47,55 ----
  1155.               if $Verbose;
  1156.           next;
  1157.           }
  1158. !         unless ($self->file_name_is_absolute($thislib)) {
  1159.             print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
  1160. !           $thislib = $self->catdir($pwd,$thislib);
  1161.           }
  1162.           push(@searchpath, $thislib);
  1163.           push(@extralibs,  "$ptype$thislib");
  1164.  
  1165.  
  1166. #: lib/ExtUtils/MM_Unix.pm
  1167. #:   Update to MakeMaker 5.34
  1168. diff -crN perl5.002_01/lib/ExtUtils/MM_Unix.pm perl5.003/lib/ExtUtils/MM_Unix.pm
  1169. *** perl5.002_01/lib/ExtUtils/MM_Unix.pm    Mon Mar 25 01:04:28 1996
  1170. --- perl5.003/lib/ExtUtils/MM_Unix.pm    Mon Jun 24 16:14:28 1996
  1171. ***************
  1172. *** 1,32 ****
  1173.   package ExtUtils::MM_Unix;
  1174.   
  1175. ! # $Id: MM_Unix.pm,v 1.14 1996/02/29 07:59:10 k Exp $
  1176. ! 
  1177. !                             # Loading Time cumulated
  1178. ! require Exporter;                                               # 0.28          0.28
  1179. ! use Config;                        # 0.37          0.38
  1180. ! use File::Basename qw(basename dirname fileparse);  # 0.47          0.48
  1181. ! use DirHandle;                        # 0.37          0.58
  1182. ! # use FileHandle ();                    # 1.28   !!!!   1.46
  1183. ! 
  1184. ! # And another benchmark. I have deleted MakeMaker completely from the perl installation
  1185. ! # and deleted blib and pm_to_blib, the timestamp file.
  1186. ! 
  1187. ! # MM_Unix with Selfloader:
  1188. ! # perl Makefile.PL  4.34s user 0.57s system 84% cpu 5.844 total
  1189. ! # make  14.77s user 3.16s system 78% cpu 22.698 total
  1190. ! 
  1191. ! # MM_Unix with my own autoloader
  1192. ! # perl Makefile.PL  3.82s user 0.55s system 73% cpu 5.920 total
  1193. ! # make  14.70s user 3.27s system 82% cpu 21.714 total
  1194. ! 
  1195.   
  1196.   
  1197.   Exporter::import('ExtUtils::MakeMaker',
  1198.       qw( $Verbose &neatvalue));
  1199.   
  1200. ! $Is_OS2 = $^O eq 'os2';
  1201. ! $Is_VMS = $^O eq 'VMS';
  1202.   
  1203.   =head1 NAME
  1204.   
  1205. --- 1,23 ----
  1206.   package ExtUtils::MM_Unix;
  1207.   
  1208. ! $VERSION = substr q$Revision: 1.101 $, 10;
  1209. ! # $Id: MM_Unix.pm,v 1.101 1996/06/23 20:51:18 k Exp k $
  1210.   
  1211. + require Exporter;
  1212. + use Config;
  1213. + use File::Basename qw(basename dirname fileparse);
  1214. + use DirHandle;
  1215.   
  1216.   Exporter::import('ExtUtils::MakeMaker',
  1217.       qw( $Verbose &neatvalue));
  1218.   
  1219. ! $Is_OS2 = $^O =~ m|^os/?2$|i;
  1220. ! $Is_Mac = $^O eq "MacOS";
  1221. ! 
  1222. ! if ($Is_VMS = $^O eq 'VMS') {
  1223. !     require VMS::Filespec;
  1224. !     import VMS::Filespec qw( &vmsify );
  1225. ! }
  1226.   
  1227.   =head1 NAME
  1228.   
  1229. ***************
  1230. *** 64,70 ****
  1231.   development. Please refer to the code for not suitably documented
  1232.   sections and complain loudly to the makemaker mailing list.
  1233.   
  1234. ! Not all of the methos below are overridable in a
  1235.   Makefile.PL. Overridable methods are marked as (o). All methods are
  1236.   overridable by a platform specific MM_*.pm file (See
  1237.   L<ExtUtils::MM_VMS>) and L<ExtUtils::MM_OS2>).
  1238. --- 55,61 ----
  1239.   development. Please refer to the code for not suitably documented
  1240.   sections and complain loudly to the makemaker mailing list.
  1241.   
  1242. ! Not all of the methods below are overridable in a
  1243.   Makefile.PL. Overridable methods are marked as (o). All methods are
  1244.   overridable by a platform specific MM_*.pm file (See
  1245.   L<ExtUtils::MM_VMS>) and L<ExtUtils::MM_OS2>).
  1246. ***************
  1247. *** 73,1936 ****
  1248.   
  1249.   =over 2
  1250.   
  1251.   =item catdir
  1252.   
  1253.   Concatenate two or more directory names to form a complete path ending
  1254. ! with a directory
  1255.   
  1256.   =cut
  1257.   
  1258.   # ';
  1259.   
  1260. ! sub catdir  {
  1261.       shift;
  1262. !     my $result = join('/',@_);
  1263. !     $result =~ s:/(\./)+:/:g;
  1264. !     $result =~ s:/+:/:g;
  1265. !     $result =~ s:/$::;
  1266.       $result;
  1267.   }
  1268.   
  1269.   =item catfile
  1270.   
  1271. ! Concatenate two or more directory names and a filename to form a
  1272.   complete path ending with a filename
  1273.   
  1274.   =cut
  1275.   
  1276.   sub catfile {
  1277. !     shift;
  1278. !     my $result = join('/',@_);
  1279. !     $result =~ s:/(\./)+:/:g;
  1280. !     $result =~ s:/+:/:g;
  1281. !     $result;
  1282.   }
  1283.   
  1284. ! sub ExtUtils::MM_Unix::guess_name ;
  1285. ! sub ExtUtils::MM_Unix::init_main ;
  1286. ! sub ExtUtils::MM_Unix::init_dirscan ;
  1287. ! sub ExtUtils::MM_Unix::init_others ;
  1288. ! sub ExtUtils::MM_Unix::find_perl ;
  1289. ! sub ExtUtils::MM_Unix::post_initialize ;
  1290.   sub ExtUtils::MM_Unix::const_config ;
  1291. - sub ExtUtils::MM_Unix::constants ;
  1292.   sub ExtUtils::MM_Unix::const_loadlibs ;
  1293. ! sub ExtUtils::MM_Unix::const_cccmd ;
  1294. ! sub ExtUtils::MM_Unix::tool_autosplit ;
  1295. ! sub ExtUtils::MM_Unix::tool_xsubpp ;
  1296. ! sub ExtUtils::MM_Unix::xsubpp_version ;
  1297. ! sub ExtUtils::MM_Unix::tools_other ;
  1298. ! sub ExtUtils::MM_Unix::dist ;
  1299. ! sub ExtUtils::MM_Unix::macro ;
  1300.   sub ExtUtils::MM_Unix::depend ;
  1301. ! sub ExtUtils::MM_Unix::post_constants ;
  1302. ! sub ExtUtils::MM_Unix::pasthru ;
  1303. ! sub ExtUtils::MM_Unix::c_o ;
  1304. ! sub ExtUtils::MM_Unix::xs_c ;
  1305. ! sub ExtUtils::MM_Unix::xs_o ;
  1306. ! sub ExtUtils::MM_Unix::top_targets ;
  1307. ! sub ExtUtils::MM_Unix::linkext ;
  1308.   sub ExtUtils::MM_Unix::dlsyms ;
  1309.   sub ExtUtils::MM_Unix::dynamic ;
  1310.   sub ExtUtils::MM_Unix::dynamic_bs ;
  1311.   sub ExtUtils::MM_Unix::dynamic_lib ;
  1312. ! sub ExtUtils::MM_Unix::static ;
  1313. ! sub ExtUtils::MM_Unix::static_lib ;
  1314. ! #sub ExtUtils::MM_Unix::installpm ;
  1315. ! #sub ExtUtils::MM_Unix::installpm_x ;
  1316. ! sub ExtUtils::MM_Unix::pm_to_blib ;
  1317.   sub ExtUtils::MM_Unix::manifypods ;
  1318.   sub ExtUtils::MM_Unix::processPL ;
  1319. - sub ExtUtils::MM_Unix::installbin ;
  1320. - sub ExtUtils::MM_Unix::subdirs ;
  1321. - sub ExtUtils::MM_Unix::subdir_x ;
  1322. - sub ExtUtils::MM_Unix::clean ;
  1323.   sub ExtUtils::MM_Unix::realclean ;
  1324. ! sub ExtUtils::MM_Unix::dist_basics ;
  1325. ! sub ExtUtils::MM_Unix::dist_core ;
  1326. ! sub ExtUtils::MM_Unix::dist_dir ;
  1327. ! sub ExtUtils::MM_Unix::dist_test ;
  1328. ! sub ExtUtils::MM_Unix::dist_ci ;
  1329. ! sub ExtUtils::MM_Unix::install ;
  1330. ! sub ExtUtils::MM_Unix::force ;
  1331. ! sub ExtUtils::MM_Unix::perldepend ;
  1332. ! sub ExtUtils::MM_Unix::makefile ;
  1333.   sub ExtUtils::MM_Unix::staticmake ;
  1334.   sub ExtUtils::MM_Unix::test ;
  1335.   sub ExtUtils::MM_Unix::test_via_harness ;
  1336.   sub ExtUtils::MM_Unix::test_via_script ;
  1337. ! sub ExtUtils::MM_Unix::postamble ;
  1338. ! sub ExtUtils::MM_Unix::makeaperl ;
  1339. ! sub ExtUtils::MM_Unix::extliblist ;
  1340. ! sub ExtUtils::MM_Unix::dir_target ;
  1341. ! sub ExtUtils::MM_Unix::needs_linking ;
  1342. ! sub ExtUtils::MM_Unix::has_link_code ;
  1343.   sub ExtUtils::MM_Unix::writedoc ;
  1344. ! sub ExtUtils::MM_Unix::perl_script ;
  1345. ! sub ExtUtils::MM_Unix::maybe_command ;
  1346. ! sub ExtUtils::MM_Unix::maybe_command_in_dirs ;
  1347. ! sub ExtUtils::MM_Unix::prefixify ;
  1348. ! sub ExtUtils::MM_Unix::file_name_is_absolute ;
  1349. ! sub ExtUtils::MM_Unix::replace_manpage_separator ;
  1350. ! sub ExtUtils::MM_Unix::path ;
  1351. ! sub ExtUtils::MM_Unix::lsdir ;
  1352. ! sub ExtUtils::MM_Unix::exescan ;
  1353. ! sub ExtUtils::MM_Unix::libscan ;
  1354. ! sub ExtUtils::MM_Unix::nicetext ;
  1355.   
  1356.   package ExtUtils::MM_Unix;
  1357.   
  1358. ! use SelfLoader;
  1359. ! #sub AUTOLOAD {
  1360. ! #    my $code;
  1361. ! #    if (defined fileno(DATA)) {
  1362. ! #    while (<DATA>) {
  1363. ! #        last if /^__END__/;
  1364. ! #        $code .= $_;
  1365. ! #    }
  1366. ! #    close DATA;
  1367. ! #    eval $code;
  1368. ! #    if ($@) {
  1369. ! #        $@ =~ s/ at .*\n//;
  1370. ! #        Carp::croak $@;
  1371. ! #    }
  1372. ! #    } else {
  1373. ! #    warn "AUTOLOAD called unexpectedly for $AUTOLOAD"; 
  1374. ! #    }
  1375. ! #    defined(&$AUTOLOAD) or die "Myloader inconsistency error";
  1376. ! #    goto &$AUTOLOAD;
  1377. ! #}
  1378. ! 
  1379. ! 
  1380.   
  1381.   1;
  1382. ! __DATA__
  1383.   
  1384.   =head2 SelfLoaded methods
  1385.   
  1386. ! =item nicetext
  1387. ! 
  1388. ! misnamed method (will have to be changed). The MM_Unix method just
  1389. ! returns the argument without further processing.
  1390.   
  1391. ! On VMS used to insure that colons marking targets are preceded by
  1392. ! space - most Unix Makes don't need this, but it's necessary under VMS
  1393. ! to distinguish the target delimiter from a colon appearing as part of
  1394. ! a filespec.
  1395.   
  1396.   =cut
  1397.   
  1398. ! sub nicetext {
  1399. !     my($self,$text) = @_;
  1400. !     unless (ref $self){
  1401. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  1402. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  1403. !     }
  1404. !     $text;
  1405. ! }
  1406.   
  1407. ! =item libscan (o)
  1408.   
  1409. ! Takes a path to a file that is found by init_dirscan and returns false
  1410. ! if we don't want to include this file in the library. Mainly used to
  1411. ! exclude RCS, CVS, and SCCS directories from installation.
  1412.   
  1413. ! =cut
  1414.   
  1415. ! # ';
  1416.   
  1417. ! sub libscan {
  1418. !     my($self,$path) = @_;
  1419. !     return '' if $path =~ m:/(RCS|CVS|SCCS)/: ;
  1420. !     $path;
  1421.   }
  1422.   
  1423. ! =item exescan
  1424.   
  1425. ! Deprecated method. Use libscan instead.
  1426.   
  1427.   =cut
  1428.   
  1429. ! sub exescan {
  1430. !     my($self,$path) = @_;
  1431. !     $path;
  1432. ! }
  1433. ! 
  1434. ! =item lsdir
  1435. ! 
  1436. ! Takes as arguments a directory name and a regular expression. Returns
  1437. ! all entries in the directory that match the regular expression.
  1438.   
  1439. ! =cut
  1440.   
  1441. ! sub lsdir {
  1442. !     my($self) = shift;
  1443. !     my($dir, $regex) = @_;
  1444. !     my(@ls);
  1445. !     my $dh = new DirHandle;
  1446. !     $dh->open($dir || ".") or return ();
  1447. !     @ls = $dh->read;
  1448. !     $dh->close;
  1449. !     @ls = grep(/$regex/, @ls) if $regex;
  1450. !     @ls;
  1451. ! }
  1452.   
  1453. ! =item path
  1454.   
  1455. ! Takes no argument, returns the environment variable PATH as an array.
  1456.   
  1457. ! =cut
  1458.   
  1459. ! sub path {
  1460. !     my($self) = @_;
  1461. !     my $path_sep = $Is_OS2 ? ";" : ":";
  1462. !     my $path = $ENV{PATH};
  1463. !     $path =~ s:\\:/:g if $Is_OS2;
  1464. !     my @path = split $path_sep, $path;
  1465. ! }
  1466.   
  1467. ! =item replace_manpage_separator
  1468.   
  1469. - Takes the name of a package, which may be a nested package, in the
  1470. - form Foo/Bar and replaces the slash with C<::>. Returns the replacement.
  1471.   
  1472. ! =cut
  1473. ! 
  1474. ! sub replace_manpage_separator {
  1475. !     my($self,$man) = @_;
  1476. !     $man =~ s,/+,::,g;
  1477. !     $man;
  1478. ! }
  1479.   
  1480. ! =item file_name_is_absolute
  1481.   
  1482. ! Takes as argument a path and returns true, it it is an absolute path.
  1483.   
  1484. ! =cut
  1485.   
  1486. - sub file_name_is_absolute {
  1487. -     my($self,$file) = @_;
  1488. -     $file =~ m:^/: ;
  1489.   }
  1490.   
  1491. ! =item prefixify
  1492. ! 
  1493. ! Check a path variable in $self from %Config, if it contains a prefix,
  1494. ! and replace it with another one.
  1495.   
  1496. ! Takes as arguments an attribute name, a search prefix and a
  1497. ! replacement prefix. Changes the attribute in the object.
  1498.   
  1499.   =cut
  1500.   
  1501. ! sub prefixify {
  1502. !     my($self,$var,$sprefix,$rprefix) = @_;
  1503. !     $self->{uc $var} ||= $Config{lc $var};
  1504. !     $self->{uc $var} = VMS::Filespec::unixpath($self->{uc $var}) if $Is_VMS;
  1505. !     $self->{uc $var} =~ s/\Q$sprefix\E/$rprefix/;
  1506. ! }
  1507. ! 
  1508. ! =item maybe_command_in_dirs
  1509. ! 
  1510. ! method under development. Not yet used. Ask Ilya :-)
  1511.   
  1512. ! =cut
  1513.   
  1514. ! sub maybe_command_in_dirs {    # $ver is optional argument if looking for perl
  1515. ! # Ilya's suggestion. Not yet used, want to understand it first, but at least the code is here
  1516. !     my($self, $names, $dirs, $trace, $ver) = @_;
  1517. !     my($name, $dir);
  1518. !     foreach $dir (@$dirs){
  1519. !     next unless defined $dir; # $self->{PERL_SRC} may be undefined
  1520. !     foreach $name (@$names){
  1521. !         my($abs,$tryabs);
  1522. !         if ($self->file_name_is_absolute($name)) {
  1523. !         $abs = $name;
  1524. !         } elsif ($name =~ m|/|) {
  1525. !         $abs = $self->catfile(".", $name); # not absolute
  1526. !         } else {
  1527. !         $abs = $self->catfile($dir, $name);
  1528. !         }
  1529. !         print "Checking $abs for $name\n" if ($trace >= 2);
  1530. !         next unless $tryabs = $self->maybe_command($abs);
  1531. !         print "Substituting $tryabs instead of $abs\n"
  1532. !         if ($trace >= 2 and $tryabs ne $abs);
  1533. !         $abs = $tryabs;
  1534. !         if (defined $ver) {
  1535. !         print "Executing $abs\n" if ($trace >= 2);
  1536. !         if (`$abs -e 'require $ver; print "VER_OK\n" ' 2>&1` =~ /VER_OK/) {
  1537. !             print "Using PERL=$abs\n" if $trace;
  1538. !             return $abs;
  1539. !         }
  1540. !         } else { # Do not look for perl
  1541. !         return $abs;
  1542. !         }
  1543. !     }
  1544.       }
  1545.   }
  1546.   
  1547. ! =item maybe_command
  1548.   
  1549. ! Returns true, if the argument is likely to be a command.
  1550.   
  1551.   =cut
  1552.   
  1553. ! sub maybe_command {
  1554. !     my($self,$file) = @_;
  1555. !     return $file if -x $file && ! -d $file;
  1556. !     return;
  1557.   }
  1558.   
  1559. ! =item perl_script
  1560.   
  1561. ! Returns true, if the argument is likely to be a perl script. On
  1562. ! MM_Unix this is true for any ordinary, readable file.
  1563.   
  1564.   =cut
  1565.   
  1566. ! sub perl_script {
  1567. !     my($self,$file) = @_;
  1568. !     return 1 if -r $file && ! -d $file;
  1569. !     return;
  1570.   }
  1571.   
  1572. ! =item guess_name
  1573.   
  1574. ! Guess the name of this package by examining the working directory's
  1575. ! name. MakeMaker calls this only if the developer has not supplied a
  1576. ! NAME attribute.
  1577.   
  1578.   =cut
  1579.   
  1580. ! # ';
  1581. ! 
  1582. ! sub guess_name {
  1583. !     my($self) = @_;
  1584. !     use Cwd 'cwd';
  1585. !     my $name = cwd();
  1586. !     $name =~ s:.*/:: unless ($name =~ s:^.*/ext/::);
  1587. !     $name =~ s#/#::#g;
  1588. !     $name =~  s#[\-_][\d.\-]+$##;  # this is new with MM 5.00
  1589. !     $name;
  1590.   }
  1591.   
  1592. ! =item init_main
  1593.   
  1594. ! Initializes NAME, FULLEXT, BASEEXT, ROOTEXT, DLBASE, PERL_SRC,
  1595. ! PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*,
  1596. ! PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, MAP_TARGET,
  1597. ! LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM.
  1598.   
  1599.   =cut
  1600.   
  1601. ! sub init_main {
  1602.       my($self) = @_;
  1603. !     unless (ref $self){
  1604. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  1605. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  1606. !     }
  1607. ! 
  1608. !     # --- Initialize Module Name and Paths
  1609. ! 
  1610. !     # NAME    = The perl module name for this extension (eg DBD::Oracle).
  1611. !     # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  1612. !     # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  1613. !     # ROOTEXT = Directory part of FULLEXT with leading /.
  1614. !     ($self->{FULLEXT} =
  1615. !      $self->{NAME}) =~ s!::!/!g ;                     #eg. BSD/Foo/Socket
  1616.   
  1617. !     # Copied from DynaLoader:
  1618.   
  1619. !     my(@modparts) = split(/::/,$self->{NAME});
  1620. !     my($modfname) = $modparts[-1];
  1621.   
  1622. !     # Some systems have restrictions on files names for DLL's etc.
  1623. !     # mod2fname returns appropriate file base name (typically truncated)
  1624. !     # It may also edit @modparts if required.
  1625. !     if (defined &DynaLoader::mod2fname) {
  1626. !         $modfname = &DynaLoader::mod2fname(\@modparts);
  1627. !     } elsif ($Is_OS2) {                # Need manual correction if run with miniperl:-(
  1628. !         $modfname = substr($modfname, 0, 7) . '_';
  1629.       }
  1630.   
  1631.   
  1632. !     ($self->{BASEEXT} =
  1633. !      $self->{NAME}) =~ s!.*::!! ;                     #eg. Socket
  1634. ! 
  1635. !     if (defined &DynaLoader::mod2fname or $Is_OS2) {
  1636. !     # As of 5.001m, dl_os2 appends '_'
  1637. !     $self->{DLBASE} = $modfname;                    #eg. Socket_
  1638. !     } else {
  1639. !     $self->{DLBASE} = '$(BASEEXT)';
  1640. !     }
  1641. ! 
  1642. !     ($self->{ROOTEXT} =
  1643. !      $self->{FULLEXT}) =~ s#/?\Q$self->{BASEEXT}\E$## ;      #eg. /BSD/Foo
  1644.   
  1645. !     $self->{ROOTEXT} = ($Is_VMS ? '' : '/') . $self->{ROOTEXT} if $self->{ROOTEXT};
  1646.   
  1647.   
  1648. !     # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  1649.   
  1650. !     # *Real* information: where did we get these two from? ...
  1651. !     my $inc_config_dir = dirname($INC{'Config.pm'});
  1652. !     my $inc_carp_dir   = dirname($INC{'Carp.pm'});
  1653. ! 
  1654. !     unless ($self->{PERL_SRC}){
  1655. !     my($dir);
  1656. !     foreach $dir (qw(.. ../.. ../../..)){
  1657. !         if ( -f "$dir/config.sh"
  1658. !         && -f "$dir/perl.h"
  1659. !         && -f "$dir/lib/Exporter.pm") {
  1660. !         $self->{PERL_SRC}=$dir ;
  1661. !         last;
  1662. !         }
  1663. !     }
  1664.       }
  1665. -     if ($self->{PERL_SRC}){
  1666. -     $self->{PERL_LIB}     ||= $self->catdir("$self->{PERL_SRC}","lib");
  1667. -     $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
  1668. -     $self->{PERL_INC}     = $self->{PERL_SRC};
  1669. -     # catch a situation that has occurred a few times in the past:
  1670. -     warn <<EOM unless (-s $self->catfile($self->{PERL_SRC},'cflags') or $Is_VMS && -s $self->catfile($self->{PERL_SRC},'perlshr_attr.opt'));
  1671. - You cannot build extensions below the perl source tree after executing
  1672. - a 'make clean' in the perl source tree.
  1673. - 
  1674. - To rebuild extensions distributed with the perl source you should
  1675. - simply Configure (to include those extensions) and then build perl as
  1676. - normal. After installing perl the source tree can be deleted. It is
  1677. - not needed for building extensions by running 'perl Makefile.PL'
  1678. - usually without extra arguments.
  1679.   
  1680. ! It is recommended that you unpack and build additional extensions away
  1681. ! from the perl source tree.
  1682. ! EOM
  1683. !     } else {
  1684. !     # we should also consider $ENV{PERL5LIB} here
  1685. !     $self->{PERL_LIB}     ||= $Config::Config{privlibexp};
  1686. !     $self->{PERL_ARCHLIB} ||= $Config::Config{archlibexp};
  1687. !     $self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
  1688. !     my $perl_h;
  1689. !     die <<EOM unless (-f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")));
  1690. ! Error: Unable to locate installed Perl libraries or Perl source code.
  1691.   
  1692. ! It is recommended that you install perl in a standard location before
  1693. ! building extensions. You can say:
  1694.   
  1695. !     $^X Makefile.PL PERL_SRC=/path/to/perl/source/directory
  1696.   
  1697. ! if you have not yet installed perl but still want to build this
  1698. ! extension now.
  1699. ! (You get this message, because MakeMaker could not find "$perl_h")
  1700. ! EOM
  1701.   
  1702. ! #     print STDOUT "Using header files found in $self->{PERL_INC}\n"
  1703. ! #         if $Verbose && $self->needs_linking();
  1704.   
  1705. !     }
  1706.   
  1707. !     # We get SITELIBEXP and SITEARCHEXP directly via
  1708. !     # Get_from_Config. When we are running standard modules, these
  1709. !     # won't matter, we will set INSTALLDIRS to "perl". Otherwise we
  1710. !     # set it to "site". I prefer that INSTALLDIRS be set from outside
  1711. !     # MakeMaker.
  1712. !     $self->{INSTALLDIRS} ||= "site";
  1713.   
  1714. !     # INST_LIB typically pre-set if building an extension after
  1715. !     # perl has been built and installed. Setting INST_LIB allows
  1716. !     # you to build directly into, say $Config::Config{privlibexp}.
  1717. !     unless ($self->{INST_LIB}){
  1718.   
  1719.   
  1720. !     ##### XXXXX We have to change this nonsense
  1721.   
  1722. !     if (defined $self->{PERL_SRC} and $self->{INSTALLDIRS} eq "perl") {
  1723. !         $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
  1724. !     } else {
  1725. !         $self->{INST_LIB} = $self->catdir(".","blib","lib");
  1726. !     }
  1727.       }
  1728. !     $self->{INST_ARCHLIB} ||= $self->catdir(".","blib","arch");
  1729. !     $self->{INST_EXE} ||= $self->catdir('.','blib','bin');
  1730.   
  1731. !     # The user who requests an installation directory explicitly
  1732. !     # should not have to tell us a architecture installation directory
  1733. !     # as well We look if a directory exists that is named after the
  1734. !     # architecture. If not we take it as a sign that it should be the
  1735. !     # same as the requested installation directory. Otherwise we take
  1736. !     # the found one.
  1737. !     # We do the same thing twice: for privlib/archlib and for sitelib/sitearch
  1738. !     my($libpair);
  1739. !     for $libpair ({l=>"privlib", a=>"archlib"}, {l=>"sitelib", a=>"sitearch"}) {
  1740. !     my $lib = "install$libpair->{l}";
  1741. !     my $Lib = uc $lib;
  1742. !     my $Arch = uc "install$libpair->{a}";
  1743. !     if( $self->{$Lib} && ! $self->{$Arch} ){
  1744. !         my($ilib) = $Config{$lib};
  1745. !         $ilib = VMS::Filespec::unixify($ilib) if $Is_VMS;
  1746.   
  1747. !         $self->prefixify($Arch,$ilib,$self->{$Lib});
  1748.   
  1749. !         unless (-d $self->{$Arch}) {
  1750. !         print STDOUT "Directory $self->{$Arch} not found, thusly\n" if $Verbose;
  1751. !         $self->{$Arch} = $self->{$Lib};
  1752. !         }
  1753. !         print STDOUT "Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
  1754. !     }
  1755. !     }
  1756.   
  1757. !     # we have to look at the relation between $Config{prefix} and the
  1758. !     # requested values. We're going to set the $Config{prefix} part of
  1759. !     # all the installation path variables to literally $(PREFIX), so
  1760. !     # the user can still say make PREFIX=foo
  1761. !     my($prefix) = $Config{'prefix'};
  1762. !     $prefix = VMS::Filespec::unixify($prefix) if $Is_VMS;
  1763. !     unless ($self->{PREFIX}){
  1764. !     $self->{PREFIX} = $prefix;
  1765. !     }
  1766. !     my($install_variable);
  1767. !     for $install_variable (qw/INSTALLPRIVLIB INSTALLARCHLIB INSTALLBIN INSTALLMAN1DIR
  1768. !                INSTALLMAN3DIR INSTALLSITELIB INSTALLSITEARCH/) {
  1769. !     $self->prefixify($install_variable,$prefix,q[$(PREFIX)]);
  1770. !     }
  1771.   
  1772.   
  1773. !     # Now we head at the manpages. Maybe they DO NOT want manpages
  1774. !     # installed
  1775. !     $self->{INSTALLMAN1DIR} = $Config::Config{installman1dir}
  1776. !     unless defined $self->{INSTALLMAN1DIR};
  1777. !     unless (defined $self->{INST_MAN1DIR}){
  1778. !     if ($self->{INSTALLMAN1DIR} =~ /^(none|\s*)$/){
  1779. !         $self->{INST_MAN1DIR} = $self->{INSTALLMAN1DIR};
  1780. !     } else {
  1781. !         $self->{INST_MAN1DIR} = $self->catdir('.','blib','man1');
  1782. !     }
  1783. !     }
  1784. !     $self->{MAN1EXT} ||= $Config::Config{man1ext};
  1785.   
  1786. !     $self->{INSTALLMAN3DIR} = $Config::Config{installman3dir}
  1787. !     unless defined $self->{INSTALLMAN3DIR};
  1788. !     unless (defined $self->{INST_MAN3DIR}){
  1789. !     if ($self->{INSTALLMAN3DIR} =~ /^(none|\s*)$/){
  1790. !         $self->{INST_MAN3DIR} = $self->{INSTALLMAN3DIR};
  1791. !     } else {
  1792. !         $self->{INST_MAN3DIR} = $self->catdir('.','blib','man3');
  1793. !     }
  1794.       }
  1795. !     $self->{MAN3EXT} ||= $Config::Config{man3ext};
  1796.   
  1797.   
  1798. !     # Get some stuff out of %Config if we haven't yet done so
  1799. !     print STDOUT "CONFIG must be an array ref\n"
  1800. !     if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY');
  1801. !     $self->{CONFIG} = [] unless (ref $self->{CONFIG});
  1802. !     push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);
  1803. !     push(@{$self->{CONFIG}}, 'shellflags') if $Config::Config{shellflags};
  1804. !     my(%once_only,$m);
  1805. !     foreach $m (@{$self->{CONFIG}}){
  1806. !     next if $once_only{$m};
  1807. !     print STDOUT "CONFIG key '$m' does not exist in Config.pm\n"
  1808. !         unless exists $Config::Config{$m};
  1809. !     $self->{uc $m} ||= $Config::Config{$m};
  1810. !     $once_only{$m} = 1;
  1811. !     }
  1812.   
  1813. ! # This is too dangerous:
  1814. ! #    if ($^O eq "next") {
  1815. ! #    $self->{AR} = "libtool";
  1816. ! #    $self->{AR_STATIC_ARGS} = "-o";
  1817. ! #    }
  1818. ! # But I leave it as a placeholder
  1819.   
  1820. !     $self->{AR_STATIC_ARGS} ||= "cr";
  1821.   
  1822. !     # These should never be needed
  1823. !     $self->{LD} ||= 'ld';
  1824. !     $self->{OBJ_EXT} ||= '.o';
  1825. !     $self->{LIB_EXT} ||= '.a';
  1826.   
  1827. !     $self->{MAP_TARGET} ||= "perl";
  1828.   
  1829. !     $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}";
  1830.   
  1831. !     # make a simple check if we find Exporter
  1832. !     warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
  1833. !         (Exporter.pm not found)"
  1834. !     unless -f $self->catfile("$self->{PERL_LIB}","Exporter.pm") ||
  1835. !         $self->{NAME} eq "ExtUtils::MakeMaker";
  1836. ! 
  1837. !     # Determine VERSION and VERSION_FROM
  1838. !     ($self->{DISTNAME}=$self->{NAME}) =~ s#(::)#-#g unless $self->{DISTNAME};
  1839. !     if ($self->{VERSION_FROM}){
  1840. ! #    use FileHandle ();
  1841. ! #    my $fh = new FileHandle;
  1842. !     local *FH;
  1843. ! #    $fh->open($self->{VERSION_FROM}) or die "Could not open '$self->{VERSION_FROM}' (attribute VERSION_FROM): $!";
  1844. !     open(FH,$self->{VERSION_FROM}) or
  1845. !         die "Could not open '$self->{VERSION_FROM}' (attribute VERSION_FROM): $!";
  1846. ! #    while (<$fh>) {
  1847. !     while (<FH>) {
  1848. !         chop;
  1849. !         next unless /\$([\w:]*\bVERSION)\b.*=/;
  1850. !         local $ExtUtils::MakeMaker::module_version_variable = $1;
  1851. !         my($eval) = "$_;";
  1852. !         eval $eval;
  1853. !         die "Could not eval '$eval': $@" if $@;
  1854. !         if ($self->{VERSION} = $ {$ExtUtils::MakeMaker::module_version_variable}){
  1855. !         print "$self->{NAME} VERSION is $self->{VERSION} (from $self->{VERSION_FROM})\n" if $Verbose;
  1856. !         } else {
  1857. !         # XXX this should probably croak
  1858. !         print "WARNING: Setting VERSION via file '$self->{VERSION_FROM}' failed\n";
  1859. !         }
  1860. !         last;
  1861. !     }
  1862. ! #    close $fh;
  1863. !     close FH;
  1864. !     }
  1865. ! 
  1866. !     # if your FOO.pm says
  1867. !     #    $VERSION = substr(q$Revision: 1.14 $, 10);
  1868. !     # then MM says something like
  1869. !     #    -DXS_VERSION=\"n.nn \"
  1870. !     if ($self->{VERSION}) {
  1871. !     $self->{VERSION} =~ s/^\s+//;
  1872. !     $self->{VERSION} =~ s/\s+$//;
  1873. !     }
  1874. ! 
  1875. !     $self->{VERSION} = "0.10" unless $self->{VERSION};
  1876. !     ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
  1877.   
  1878.   
  1879. !     # Graham Barr and Paul Marquess had some ideas how to ensure
  1880. !     # version compatibility between the *.pm file and the
  1881. !     # corresponding *.xs file. The bottomline was, that we need an
  1882. !     # XS_VERSION macro that defaults to VERSION:
  1883. !     $self->{XS_VERSION} ||= $self->{VERSION};
  1884.   
  1885. !     # --- Initialize Perl Binary Locations
  1886.   
  1887. !     # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  1888. !     # will be working versions of perl 5. miniperl has priority over perl
  1889. !     # for PERL to ensure that $(PERL) is usable while building ./ext/*
  1890. !     my ($component,@defpath);
  1891. !     foreach $component ($self->{PERL_SRC}, $self->path(), $Config::Config{binexp}) {
  1892. !     push @defpath, $component if defined $component;
  1893. !     }
  1894. !     $self->{PERL} =
  1895. !         $self->find_perl(5.0, [ $^X, 'miniperl','perl','perl5',"perl$]" ],
  1896. !         \@defpath, $Verbose ) unless ($self->{PERL});
  1897. !     # don't check if perl is executable, maybe they have decided to
  1898. !     # supply switches with perl
  1899.   
  1900. !     # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  1901. !     ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/perl/i
  1902. !     unless ($self->{FULLPERL});
  1903.   }
  1904.   
  1905. ! =item init_dirscan
  1906.   
  1907. ! Initializes DIR, XS, PM, C, O_FILES, H, PL_FILES, MAN*PODS, EXE_FILES.
  1908.   
  1909.   =cut
  1910.   
  1911. ! sub init_dirscan {    # --- File and Directory Lists (.xs .pm .pod etc)
  1912. !     my($self) = @_;
  1913. !     unless (ref $self){
  1914. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  1915. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  1916. !     }
  1917. !     my($name, %dir, %xs, %c, %h, %ignore, %pl_files, %manifypods);
  1918. !     local(%pm); #the sub in find() has to see this hash
  1919. !     $ignore{'test.pl'} = 1;
  1920. !     $ignore{'makefile.pl'} = 1 if $Is_VMS;
  1921. !     foreach $name ($self->lsdir(".")){
  1922. !     next if ($name =~ /^\./ or $ignore{$name});
  1923. !     next unless $self->libscan($name);
  1924. !     if (-d $name){
  1925. !         $dir{$name} = $name if (-f "$name/Makefile.PL");
  1926. !     } elsif ($name =~ /\.xs$/){
  1927. !         my($c); ($c = $name) =~ s/\.xs$/.c/;
  1928. !         $xs{$name} = $c;
  1929. !         $c{$c} = 1;
  1930. !     } elsif ($name =~ /\.c(pp|xx|c)?$/i){  # .c .C .cpp .cxx .cc
  1931. !         $c{$name} = 1
  1932. !         unless $name =~ m/perlmain\.c/; # See MAP_TARGET
  1933. !     } elsif ($name =~ /\.h$/i){
  1934. !         $h{$name} = 1;
  1935. !     } elsif ($name =~ /\.(p[ml]|pod)$/){
  1936. !         $pm{$name} = $self->catfile('$(INST_LIBDIR)',$name);
  1937. !     } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
  1938. !         ($pl_files{$name} = $name) =~ s/\.PL$// ;
  1939. !     } elsif ($Is_VMS && $name =~ /\.pl$/ && $name ne 'makefile.pl' &&
  1940. !              $name ne 'test.pl') {  # case-insensitive filesystem
  1941. !         ($pl_files{$name} = $name) =~ s/\.pl$// ;
  1942. !     }
  1943. !     }
  1944. ! 
  1945. !     # Some larger extensions often wish to install a number of *.pm/pl
  1946. !     # files into the library in various locations.
  1947. ! 
  1948. !     # The attribute PMLIBDIRS holds an array reference which lists
  1949. !     # subdirectories which we should search for library files to
  1950. !     # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ].  We
  1951. !     # recursively search through the named directories (skipping any
  1952. !     # which don't exist or contain Makefile.PL files).
  1953. ! 
  1954. !     # For each *.pm or *.pl file found $self->libscan() is called with
  1955. !     # the default installation path in $_[1]. The return value of
  1956. !     # libscan defines the actual installation location.  The default
  1957. !     # libscan function simply returns the path.  The file is skipped
  1958. !     # if libscan returns false.
  1959. ! 
  1960. !     # The default installation location passed to libscan in $_[1] is:
  1961. !     #
  1962. !     #  ./*.pm        => $(INST_LIBDIR)/*.pm
  1963. !     #  ./xyz/...    => $(INST_LIBDIR)/xyz/...
  1964. !     #  ./lib/...    => $(INST_LIB)/...
  1965. !     #
  1966. !     # In this way the 'lib' directory is seen as the root of the actual
  1967. !     # perl library whereas the others are relative to INST_LIBDIR
  1968. !     # (which includes ROOTEXT). This is a subtle distinction but one
  1969. !     # that's important for nested modules.
  1970. ! 
  1971. !     $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}]
  1972. !     unless $self->{PMLIBDIRS};
  1973. ! 
  1974. !     #only existing directories that aren't in $dir are allowed
  1975. ! 
  1976. !     # Avoid $_ wherever possible:
  1977. !     # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
  1978. !     my (@pmlibdirs) = @{$self->{PMLIBDIRS}};
  1979. !     my ($pmlibdir);
  1980. !     @{$self->{PMLIBDIRS}} = ();
  1981. !     foreach $pmlibdir (@pmlibdirs) {
  1982. !     -d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
  1983. !     }
  1984. ! 
  1985. !     if (@{$self->{PMLIBDIRS}}){
  1986. !     print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
  1987. !         if ($Verbose >= 2);
  1988. !     require File::Find;
  1989. !     File::Find::find(sub {
  1990. !         if (-d $_){
  1991. !         if ($_ eq "CVS" || $_ eq "RCS"){
  1992. !             $File::Find::prune = 1;
  1993. !         }
  1994. !         return;
  1995. !         }
  1996. !         my($path, $prefix) = ($File::Find::name, '$(INST_LIBDIR)');
  1997. !         my($striplibpath,$striplibname);
  1998. !         $prefix =  '$(INST_LIB)' if (($striplibpath = $path) =~ s:^(\W*)lib\W:$1:);
  1999. !         ($striplibname,$striplibpath) = fileparse($striplibpath);
  2000. !         my($inst) = $self->catfile($prefix,$striplibpath,$striplibname);
  2001. !         local($_) = $inst; # for backwards compatibility
  2002. !         $inst = $self->libscan($inst);
  2003. !         print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
  2004. !         return unless $inst;
  2005. !         $pm{$path} = $inst;
  2006. !     }, @{$self->{PMLIBDIRS}});
  2007. !     }
  2008. ! 
  2009. !     $self->{DIR} = [sort keys %dir] unless $self->{DIR};
  2010. !     $self->{XS}  = \%xs             unless $self->{XS};
  2011. !     $self->{PM}  = \%pm             unless $self->{PM};
  2012. !     $self->{C}   = [sort keys %c]   unless $self->{C};
  2013. !     my(@o_files) = @{$self->{C}};
  2014. !     $self->{O_FILES} = [grep s/\.c(pp|xx|c)?$/$self->{OBJ_EXT}/i, @o_files] ;
  2015. !     $self->{H}   = [sort keys %h]   unless $self->{H};
  2016. !     $self->{PL_FILES} = \%pl_files unless $self->{PL_FILES};
  2017.   
  2018. !     # Set up names of manual pages to generate from pods
  2019. !     if ($self->{MAN1PODS}) {
  2020. !     } elsif ( $self->{INST_MAN1DIR} =~ /^(none|\s*)$/ ) {
  2021. !         $self->{MAN1PODS} = {};
  2022. !     } else {
  2023. !     my %manifypods = ();
  2024. !     if ( exists $self->{EXE_FILES} ) {
  2025. !         foreach $name (@{$self->{EXE_FILES}}) {
  2026. ! #        use FileHandle ();
  2027. ! #        my $fh = new FileHandle;
  2028. !         local *FH;
  2029. !         my($ispod)=0;
  2030. !         # one day test, if $/ can be set to '' safely (is the bug fixed that was in 5.001m?)
  2031. ! #        if ($fh->open("<$name")) {
  2032. !         if (open(FH,"<$name")) {
  2033. !             my $testpodline;
  2034. ! #            while ($testpodline = <$fh>) {
  2035. !             while ($testpodline = <FH>) {
  2036. !             if($testpodline =~ /^=head1\s+\w+/) {
  2037. !                 $ispod=1;
  2038. !                 last;
  2039. !             }
  2040. !             }
  2041. ! #            $fh->close;
  2042. !             close FH;
  2043. !         } else {
  2044. !             # If it doesn't exist yet, we assume, it has pods in it
  2045. !             $ispod = 1;
  2046. !         }
  2047. !         if( $ispod ) {
  2048. !             $manifypods{$name} = $self->catfile('$(INST_MAN1DIR)',basename($name).'.$(MAN1EXT)');
  2049. !         }
  2050. !         }
  2051. !     }
  2052. !     $self->{MAN1PODS} = \%manifypods;
  2053. !     }
  2054. !     if ($self->{MAN3PODS}) {
  2055. !     } elsif ( $self->{INST_MAN3DIR} =~ /^(none|\s*)$/ ) {
  2056. !         $self->{MAN3PODS} = {};
  2057. !     } else {
  2058. !     my %manifypods = (); # we collect the keys first, i.e. the files
  2059. !                  # we have to convert to pod
  2060. !     foreach $name (keys %{$self->{PM}}) {
  2061. !         if ($name =~ /\.pod$/ ) {
  2062. !         $manifypods{$name} = $self->{PM}{$name};
  2063. !         } elsif ($name =~ /\.p[ml]$/ ) {
  2064. ! #        use FileHandle ();
  2065. ! #        my $fh = new FileHandle;
  2066. !         local *FH;
  2067. !         my($ispod)=0;
  2068. ! #        $fh->open("<$name");
  2069. !         open(FH,"<$name");
  2070. !         my $testpodline;
  2071. ! #        while ($testpodline = <$fh>) {
  2072. !         while ($testpodline = <FH>) {
  2073. !             if($testpodline =~ /^=head1\s+\w+/) {
  2074. !             $ispod=1;
  2075. !             last;
  2076. !             }
  2077. !             #Speculation on the future (K.A., not A.K. :)
  2078. !             #if(/^=don't\S+install/) { $ispod=0; last}
  2079. !         }
  2080. ! #        $fh->close;
  2081. !         close FH;
  2082.   
  2083. !         if( $ispod ) {
  2084. !             $manifypods{$name} = $self->{PM}{$name};
  2085. !         }
  2086. !         }
  2087. !     }
  2088.   
  2089. !     # Remove "Configure.pm" and similar, if it's not the only pod listed
  2090. !     # To force inclusion, just name it "Configure.pod", or override MAN3PODS
  2091. !     foreach $name (keys %manifypods) {
  2092. !         if ($name =~ /(config|setup).*\.pm/i) {
  2093. !         delete $manifypods{$name};
  2094. !         next;
  2095. !         }
  2096. !         my($manpagename) = $name;
  2097. !         unless ($manpagename =~ s!^(\W*)lib\W!$1!) {
  2098. !         $manpagename = $self->catfile($self->{ROOTEXT},$manpagename);
  2099. !         }
  2100. !         $manpagename =~ s/\.p(od|m|l)$//;
  2101. !         # Strip leading slashes
  2102. !         $manpagename =~ s!^/+!!;
  2103. !         # Turn other slashes into colons
  2104. ! #        $manpagename =~ s,/+,::,g;
  2105. !         $manpagename = $self->replace_manpage_separator($manpagename);
  2106. !         $manifypods{$name} = $self->catfile("\$(INST_MAN3DIR)","$manpagename.\$(MAN3EXT)");
  2107. !     }
  2108. !     $self->{MAN3PODS} = \%manifypods;
  2109. !     }
  2110.   }
  2111.   
  2112. ! =item init_others
  2113.   
  2114. ! Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH,
  2115. ! OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, NOOP, FIRST_MAKEFILE,
  2116. ! MAKEFILE, NOECHO, RM_F, RM_RF, TOUCH, CP, MV, CHMOD, UMASK_NULL
  2117.   
  2118.   =cut
  2119.   
  2120. ! sub init_others {    # --- Initialize Other Attributes
  2121.       my($self) = shift;
  2122. !     unless (ref $self){
  2123. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2124. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2125. !     }
  2126.   
  2127. !     # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
  2128. !     # Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
  2129. !     # undefined. In any case we turn it into an anon array:
  2130.   
  2131. !     # May check $Config{libs} too, thus not empty.
  2132. !     $self->{LIBS}=[''] unless $self->{LIBS};
  2133.   
  2134. !     $self->{LIBS}=[$self->{LIBS}] if ref \$self->{LIBS} eq SCALAR;
  2135. !     $self->{LD_RUN_PATH} = "";
  2136. !     my($libs);
  2137. !     foreach $libs ( @{$self->{LIBS}} ){
  2138. !     $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
  2139. !     my(@libs) = $self->extliblist($libs);
  2140. !     if ($libs[0] or $libs[1] or $libs[2]){
  2141. !         # LD_RUN_PATH now computed by ExtUtils::Liblist
  2142. !         ($self->{EXTRALIBS}, $self->{BSLOADLIBS}, $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
  2143. !         last;
  2144. !     }
  2145. !     }
  2146.   
  2147. !     if ( $self->{OBJECT} ) {
  2148. !     $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
  2149. !     }
  2150. !     else {
  2151. !     # init_dirscan should have found out, if we have C files
  2152. !     $self->{OBJECT} = "";
  2153. !     $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]};
  2154. !     }
  2155. !     $self->{OBJECT} =~ s/\n+/ \\\n\t/g;
  2156. !     $self->{BOOTDEP}  = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : "";
  2157. !     $self->{PERLMAINCC} ||= '$(CC)';
  2158. !     $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM};
  2159.   
  2160. !     # Sanity check: don't define LINKTYPE = dynamic if we're skipping
  2161. !     # the 'dynamic' section of MM.  We don't have this problem with
  2162. !     # 'static', since we either must use it (%Config says we can't
  2163. !     # use dynamic loading) or the caller asked for it explicitly.
  2164. !     if (!$self->{LINKTYPE}) {
  2165. !        $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'}
  2166. !                         ? 'static'
  2167. !                         : ($Config::Config{usedl} ? 'dynamic' : 'static');
  2168. !     };
  2169.   
  2170. !     # These get overridden for VMS and maybe some other systems
  2171. !     $self->{NOOP}  ||= "sh -c true";
  2172. !     $self->{FIRST_MAKEFILE} ||= "Makefile";
  2173. !     $self->{MAKEFILE} ||= $self->{FIRST_MAKEFILE};
  2174. !     $self->{MAKE_APERL_FILE} ||= "Makefile.aperl";
  2175. !     $self->{NOECHO} = '@' unless defined $self->{NOECHO};
  2176. !     $self->{RM_F}  ||= "rm -f";
  2177. !     $self->{RM_RF} ||= "rm -rf";
  2178. !     $self->{TOUCH} ||= "touch";
  2179. !     $self->{CP} ||= "cp";
  2180. !     $self->{MV} ||= "mv";
  2181. !     $self->{CHMOD} ||= "chmod";
  2182. !     $self->{UMASK_NULL} ||= "umask 0";
  2183. ! }
  2184.   
  2185. ! =item extliblist
  2186.   
  2187. ! Called by init_others, and calls ext ExtUtils::Liblist. See
  2188. ! L<ExtUtils::Liblist> for details.
  2189.   
  2190. ! =cut
  2191.   
  2192. ! sub extliblist {
  2193. !     my($self,$libs) = @_;
  2194. !     unless (ref $self){
  2195. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2196. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2197. !     }
  2198. !     require ExtUtils::Liblist;
  2199. !     $self->ext($libs, $Verbose);
  2200.   }
  2201.   
  2202. ! =item find_perl
  2203.   
  2204. ! Finds the executables PERL and FULLPERL
  2205.   
  2206.   =cut
  2207.   
  2208. ! sub find_perl {
  2209. !     my($self, $ver, $names, $dirs, $trace) = @_;
  2210. !     unless (ref $self){
  2211. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2212. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2213. !     }
  2214. !     my($name, $dir);
  2215. !     if ($trace >= 2){
  2216. !     print "Looking for perl $ver by these names:
  2217. ! @$names
  2218. ! in these dirs:
  2219. ! @$dirs
  2220. ! ";
  2221. !     }
  2222. !     foreach $dir (@$dirs){
  2223. !     next unless defined $dir; # $self->{PERL_SRC} may be undefined
  2224. !     foreach $name (@$names){
  2225. !         my $abs;
  2226. !         if ($self->file_name_is_absolute($name)) {
  2227. !         $abs = $name;
  2228. !         } elsif (($name =~ m|/|) && ($name !~ m|^\.{1,2}/|)) {
  2229. !         # name is a path that does not begin with dot or dotdot
  2230. !         $abs = $self->catfile(".", $name);
  2231. !         } else {
  2232. !         $abs = $self->catfile($dir, $name);
  2233. !         }
  2234. !         print "Checking $abs\n" if ($trace >= 2);
  2235. !         next unless $self->maybe_command($abs);
  2236. !         print "Executing $abs\n" if ($trace >= 2);
  2237. !         if (`$abs -e 'require $ver; print "VER_OK\n" ' 2>&1` =~ /VER_OK/) {
  2238. !             print "Using PERL=$abs\n" if $trace;
  2239. !             return $abs;
  2240. !         }
  2241. !     }
  2242. !     }
  2243. !     print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
  2244. !     0; # false and not empty
  2245.   }
  2246.   
  2247. ! =head2 Methods to actually produce chunks of text for the Makefile
  2248. ! 
  2249. ! The methods here are called in the order specified by
  2250. ! @ExtUtils::MakeMaker::MM_Sections. This manpage reflects the order as
  2251. ! well as possible. Some methods call each other, so in doubt refer to
  2252. ! the code.
  2253. ! 
  2254. ! =item post_initialize (o)
  2255.   
  2256. ! Returns an ampty string per default. Used in Makefile.PLs to add some
  2257. ! chunk of text to the Makefile after the object is initialized.
  2258.   
  2259.   =cut
  2260.   
  2261. ! sub post_initialize {
  2262.       my($self) = shift;
  2263. !     unless (ref $self){
  2264. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2265. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2266. !     }
  2267. !     "";
  2268.   }
  2269.   
  2270. ! =item const_config (o)
  2271.   
  2272. ! Defines a couple of constants in the Makefile that are inported from
  2273. ! %Config.
  2274.   
  2275.   =cut
  2276.   
  2277. ! sub const_config {
  2278. ! # --- Constants Sections ---
  2279.   
  2280. !     my($self) = shift;
  2281. !     unless (ref $self){
  2282. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2283. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2284. !     }
  2285. !     my(@m,$m);
  2286. !     push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
  2287. !     push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
  2288. !     my(%once_only);
  2289. !     foreach $m (@{$self->{CONFIG}}){
  2290. !     # SITE*EXP macros are defined in &constants; avoid duplicates here
  2291. !     next if $once_only{$m} or $m eq 'sitelibexp' or $m eq 'sitearchexp';
  2292. !     push @m, "\U$m\E = ".$self->{uc $m}."\n";
  2293. !     $once_only{$m} = 1;
  2294. !     }
  2295. !     join('', @m);
  2296. ! }
  2297.   
  2298. ! =item constants (o)
  2299.   
  2300. ! Initializes lots of constants and .SUFFIXES and .PHONY
  2301.   
  2302. ! =cut
  2303.   
  2304. ! sub constants {
  2305. !     my($self) = @_;
  2306. !     unless (ref $self){
  2307. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2308. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2309. !     }
  2310. !     my(@m,$tmp);
  2311.   
  2312. !     for $tmp (qw/
  2313. !           AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION VERSION_SYM XS_VERSION
  2314. !           INST_LIB INST_ARCHLIB INST_EXE PREFIX INSTALLDIRS INSTALLPRIVLIB
  2315. !           INSTALLARCHLIB INSTALLSITELIB INSTALLSITEARCH INSTALLBIN PERL_LIB
  2316. !           PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
  2317. !           FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC PERL_INC PERL FULLPERL
  2318. !           / ) {
  2319. !     next unless defined $self->{$tmp};
  2320. !     push @m, "$tmp = $self->{$tmp}\n";
  2321. !     }
  2322.   
  2323. !     push @m, qq{
  2324. ! VERSION_MACRO = VERSION
  2325. ! DEFINE_VERSION = -D\$(VERSION_MACRO)=\\\"\$(VERSION)\\\"
  2326. ! XS_VERSION_MACRO = XS_VERSION
  2327. ! XS_DEFINE_VERSION = -D\$(XS_VERSION_MACRO)=\\\"\$(XS_VERSION)\\\"
  2328. ! };
  2329.   
  2330. !     push @m, qq{
  2331. ! MAKEMAKER = \$(PERL_LIB)/ExtUtils/MakeMaker.pm
  2332. ! MM_VERSION = $ExtUtils::MakeMaker::VERSION
  2333. ! };
  2334.   
  2335. !     push @m, q{
  2336. ! # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  2337. ! # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  2338. ! # ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)
  2339. ! # DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
  2340. ! };
  2341.   
  2342. !     for $tmp (qw/
  2343. !           FULLEXT BASEEXT ROOTEXT DLBASE VERSION_FROM INC DEFINE OBJECT
  2344. !           LDFROM LINKTYPE
  2345. !           /    ) {
  2346. !     next unless defined $self->{$tmp};
  2347. !     push @m, "$tmp = $self->{$tmp}\n";
  2348. !     }
  2349.   
  2350. !     push @m, "
  2351. ! # Handy lists of source code files:
  2352. ! XS_FILES= ".join(" \\\n\t", sort keys %{$self->{XS}})."
  2353. ! C_FILES = ".join(" \\\n\t", @{$self->{C}})."
  2354. ! O_FILES = ".join(" \\\n\t", @{$self->{O_FILES}})."
  2355. ! H_FILES = ".join(" \\\n\t", @{$self->{H}})."
  2356. ! MAN1PODS = ".join(" \\\n\t", sort keys %{$self->{MAN1PODS}})."
  2357. ! MAN3PODS = ".join(" \\\n\t", sort keys %{$self->{MAN3PODS}})."
  2358. ! ";
  2359.   
  2360. !     for $tmp (qw/
  2361. !           INST_MAN1DIR INSTALLMAN1DIR MAN1EXT INST_MAN3DIR INSTALLMAN3DIR MAN3EXT
  2362. !           /) {
  2363. !     next unless defined $self->{$tmp};
  2364. !     push @m, "$tmp = $self->{$tmp}\n";
  2365. !     }
  2366.   
  2367. !     push @m, "
  2368. ! # work around a famous dec-osf make(1) feature(?):
  2369. ! makemakerdflt: all
  2370.   
  2371. ! .SUFFIXES: .xs .c .C .cpp .cxx .cc \$(OBJ_EXT)
  2372.   
  2373. ! # Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
  2374. ! # some make implementations will delete the Makefile when we rebuild it. Because
  2375. ! # we call false(1) when we rebuild it. So make(1) is not completely wrong when it
  2376. ! # does so. Our milage may vary.
  2377. ! # .PRECIOUS: Makefile    # seems to be not necessary anymore
  2378.   
  2379. ! .PHONY: all config static dynamic test linkext manifest
  2380.   
  2381. ! # Where is the Config information that we are using/depend on
  2382. ! CONFIGDEP = \$(PERL_ARCHLIB)/Config.pm \$(PERL_INC)/config.h
  2383. ! ";
  2384.   
  2385. !     push @m, '
  2386. ! # Where to put things:
  2387. ! INST_LIBDIR     = $(INST_LIB)$(ROOTEXT)
  2388. ! INST_ARCHLIBDIR = $(INST_ARCHLIB)$(ROOTEXT)
  2389.   
  2390. ! INST_AUTODIR      = $(INST_LIB)/auto/$(FULLEXT)
  2391. ! INST_ARCHAUTODIR  = $(INST_ARCHLIB)/auto/$(FULLEXT)
  2392. ! ';
  2393.   
  2394. !     if ($self->has_link_code()) {
  2395. !     push @m, '
  2396. ! INST_STATIC  = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
  2397. ! INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
  2398. ! INST_BOOT    = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
  2399. ! ';
  2400. !     } else {
  2401. !     push @m, '
  2402. ! INST_STATIC  =
  2403. ! INST_DYNAMIC =
  2404. ! INST_BOOT    =
  2405.   ';
  2406. !     }
  2407.   
  2408. !     if ($Is_OS2) {
  2409. !     $tmp = "$self->{BASEEXT}.def";
  2410. !     } else {
  2411. !     $tmp = "";
  2412. !     }
  2413. !     push @m, "
  2414. ! EXPORT_LIST = $tmp
  2415. ! ";
  2416.   
  2417. !     if ($Is_OS2) {
  2418. !     $tmp = "\$(PERL_INC)/libperl.lib";
  2419. !     } else {
  2420. !     $tmp = "";
  2421. !     }
  2422. !     push @m, "
  2423. ! PERL_ARCHIVE = $tmp
  2424. ! ";
  2425.   
  2426. ! #    push @m, q{
  2427. ! #INST_PM = }.join(" \\\n\t", sort values %{$self->{PM}}).q{
  2428. ! #
  2429. ! #PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
  2430. ! #};
  2431.   
  2432. !     push @m, q{
  2433. ! TO_INST_PM = }.join(" \\\n\t", sort keys %{$self->{PM}}).q{
  2434.   
  2435. ! PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
  2436. ! };
  2437.   
  2438.       join('',@m);
  2439.   }
  2440.   
  2441. ! =item const_loadlibs
  2442.   
  2443. ! Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
  2444. ! L<ExtUtils::Liblist> for details.
  2445.   
  2446.   =cut
  2447.   
  2448. ! sub const_loadlibs {
  2449. !     my($self) = shift;
  2450. !     unless (ref $self){
  2451. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2452. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2453. !     }
  2454. !     return "" unless $self->needs_linking;
  2455. !     my @m;
  2456. !     push @m, qq{
  2457. ! # $self->{NAME} might depend on some other libraries:
  2458. ! # See ExtUtils::Liblist for details
  2459. ! #
  2460. ! };
  2461. !     my($tmp);
  2462. !     for $tmp (qw/
  2463. !      EXTRALIBS LDLOADLIBS BSLOADLIBS LD_RUN_PATH
  2464. !      /) {
  2465. !     next unless defined $self->{$tmp};
  2466. !     push @m, "$tmp = $self->{$tmp}\n";
  2467. !     }
  2468. !     return join "", @m;
  2469.   }
  2470.   
  2471. ! =item cflags
  2472.   
  2473. ! Does very much the same as the cflags script in the perl
  2474. ! distribution. It doesn't return the whole compiler command line, but
  2475. ! initializes all of its parts. The const_cccmd method then actually
  2476. ! returns the definition of the CCCMD macro which uses these parts.
  2477.   
  2478.   =cut
  2479.   
  2480. ! #'
  2481. ! 
  2482. ! sub cflags {
  2483. !     my($self,$libperl)=@_;
  2484. !     return $self->{CFLAGS} if $self->{CFLAGS};
  2485. !     return '' unless $self->needs_linking();
  2486.   
  2487. !     my($prog, $uc, $perltype, %cflags);
  2488. !     $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
  2489. !     $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
  2490.   
  2491. !     @cflags{qw(cc ccflags optimize large split shellflags)}
  2492. !     = @Config{qw(cc ccflags optimize large split shellflags)};
  2493. !     my($optdebug) = "";
  2494.   
  2495. !     $cflags{shellflags} ||= '';
  2496.   
  2497. !     my(%map) =  (
  2498. !         D =>   '-DDEBUGGING',
  2499. !         E =>   '-DEMBED',
  2500. !         DE =>  '-DDEBUGGING -DEMBED',
  2501. !         M =>   '-DEMBED -DMULTIPLICITY',
  2502. !         DM =>  '-DDEBUGGING -DEMBED -DMULTIPLICITY',
  2503. !         );
  2504.   
  2505. !     if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
  2506. !     $uc = uc($1);
  2507. !     } else {
  2508. !     $uc = ""; # avoid warning
  2509. !     }
  2510. !     $perltype = $map{$uc} ? $map{$uc} : "";
  2511.   
  2512. !     if ($uc =~ /^D/) {
  2513. !     $optdebug = "-g";
  2514. !     }
  2515.   
  2516.   
  2517. !     my($name);
  2518. !     ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
  2519. !     if ($prog = $Config::Config{$name}) {
  2520. !     # Expand hints for this extension via the shell
  2521. !     print STDOUT "Processing $name hint:\n" if $Verbose;
  2522. !     my(@o)=`cc=\"$cflags{cc}\"
  2523. !       ccflags=\"$cflags{ccflags}\"
  2524. !       optimize=\"$cflags{optimize}\"
  2525. !       perltype=\"$cflags{perltype}\"
  2526. !       optdebug=\"$cflags{optdebug}\"
  2527. !       large=\"$cflags{large}\"
  2528. !       split=\"$cflags{'split'}\"
  2529. !       eval '$cflags{prog}'
  2530. !       echo cc=\$cflags{cc}
  2531. !       echo ccflags=\$cflags{ccflags}
  2532. !       echo optimize=\$cflags{optimize}
  2533. !       echo perltype=\$cflags{perltype}
  2534. !       echo optdebug=\$cflags{optdebug}
  2535. !       echo large=\$cflags{large}
  2536. !       echo split=\$cflags{'split'}
  2537. !       `;
  2538. !     my($line);
  2539. !     foreach $line (@o){
  2540. !         chomp $line;
  2541. !         if ($line =~ /(.*?)=\s*(.*)\s*$/){
  2542. !         $cflags{$1} = $2;
  2543. !         print STDOUT "    $1 = $2\n" if $Verbose;
  2544. !         } else {
  2545. !         print STDOUT "Unrecognised result from hint: '$line'\n";
  2546.           }
  2547.       }
  2548.       }
  2549.   
  2550. !     if ($optdebug) {
  2551. !     $cflags{optimize} = $optdebug;
  2552. !     }
  2553.   
  2554. !     for (qw(ccflags optimize perltype large split)) {
  2555. !     $cflags{$_} =~ s/^\s+//;
  2556. !     $cflags{$_} =~ s/\s+/ /g;
  2557. !     $cflags{$_} =~ s/\s+$//;
  2558. !     $self->{uc $_} ||= $cflags{$_}
  2559. !     }
  2560.   
  2561. !     return $self->{CFLAGS} = qq{
  2562. ! CCFLAGS = $self->{CCFLAGS}
  2563. ! OPTIMIZE = $self->{OPTIMIZE}
  2564. ! PERLTYPE = $self->{PERLTYPE}
  2565. ! LARGE = $self->{LARGE}
  2566. ! SPLIT = $self->{SPLIT}
  2567. ! };
  2568.   
  2569.   }
  2570.   
  2571.   
  2572.   
  2573. ! =item const_cccmd
  2574.   
  2575. ! Returns the full compiler call for C programs and stores the
  2576. ! definition in CONST_CCCMD.
  2577.   
  2578.   =cut
  2579.   
  2580. ! sub const_cccmd {
  2581. !     my($self,$libperl)=@_;
  2582. !     unless (ref $self){
  2583. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2584. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2585.       }
  2586. !     return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
  2587. !     return '' unless $self->needs_linking();
  2588. !     return $self->{CONST_CCCMD} =
  2589. !     q{CCCMD = $(CC) -c $(INC) $(CCFLAGS) $(OPTIMIZE) \\
  2590. !     $(PERLTYPE) $(LARGE) $(SPLIT) $(DEFINE_VERSION) \\
  2591. !     $(XS_DEFINE_VERSION)};
  2592.   }
  2593.   
  2594. ! =item pm_to_blib
  2595.   
  2596. ! Defines target that copies all files in the hash PM to their
  2597. ! destination and autosplits them. See L<ExtUtils::Install/pm_to_blib>
  2598.   
  2599. ! =cut
  2600.   
  2601. ! sub pm_to_blib {
  2602. !     my $self = shift;
  2603. !     my($autodir) = $self->catdir('$(INST_LIB)','auto');
  2604. !     return q{
  2605. ! pm_to_blib: $(TO_INST_PM)
  2606. !     }.$self->{NOECHO}.q{$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
  2607. !     "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
  2608. !     -e 'pm_to_blib({@ARGV},"}.$autodir.q{")' $(PM_TO_BLIB)
  2609. !     }.$self->{NOECHO}.q{$(TOUCH) $@
  2610. ! };
  2611. ! }
  2612.   
  2613. ! =item tool_autosplit (o)
  2614.   
  2615. ! Defines a simple perl call that runs autosplit. May be deprecated by
  2616. ! pm_to_blib soon.
  2617.   
  2618. ! =cut
  2619.   
  2620. ! sub tool_autosplit {
  2621. ! # --- Tool Sections ---
  2622.   
  2623. !     my($self, %attribs) = @_;
  2624. !     unless (ref $self){
  2625. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2626. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2627.       }
  2628. -     my($asl) = "";
  2629. -     $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
  2630. -     q{
  2631. - # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
  2632. - AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
  2633. - };
  2634. - }
  2635. - 
  2636. - =item tool_xsubpp (o)
  2637.   
  2638. ! Determines typemaps, xsubpp version, prototype behaviour.
  2639.   
  2640. ! =cut
  2641.   
  2642. ! sub tool_xsubpp {
  2643. !     my($self) = shift;
  2644. !     unless (ref $self){
  2645. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2646. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2647. !     }
  2648. !     my($xsdir)  = $self->catdir($self->{PERL_LIB},"ExtUtils");
  2649. !     my(@tmdeps) = $self->catdir('$(XSUBPPDIR)','typemap');
  2650. !     if( $self->{TYPEMAPS} ){
  2651. !     my $typemap;
  2652. !     foreach $typemap (@{$self->{TYPEMAPS}}){
  2653. !         if( ! -f  $typemap ){
  2654. !             warn "Typemap $typemap not found.\n";
  2655.           }
  2656. !         else{
  2657. !             push(@tmdeps,  $typemap);
  2658.           }
  2659.       }
  2660.       }
  2661. !     push(@tmdeps, "typemap") if -f "typemap";
  2662. !     my(@tmargs) = map("-typemap $_", @tmdeps);
  2663. !     if( exists $self->{XSOPT} ){
  2664. !      unshift( @tmargs, $self->{XSOPT} );
  2665. !     }
  2666. ! 
  2667. ! 
  2668. !     my $xsubpp_version = $self->xsubpp_version("$xsdir/xsubpp");
  2669. ! 
  2670. !     # What are the correct thresholds for version 1 && 2 Paul?
  2671. !     if ( $xsubpp_version > 1.923 ){
  2672. !     $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG};
  2673.       } else {
  2674. !     if (defined $self->{XSPROTOARG} && $self->{XSPROTOARG} =~ /\-prototypes/) {
  2675. !         print STDOUT qq{Warning: This extension wants to pass the switch "-prototypes" to xsubpp.
  2676. !     Your version of xsubpp is $xsubpp_version and cannot handle this.
  2677. !     Please upgrade to a more recent version of xsubpp.
  2678. ! };
  2679. !     } else {
  2680. !         $self->{XSPROTOARG} = "";
  2681.       }
  2682. -     }
  2683. - 
  2684. -     return qq{
  2685. - XSUBPPDIR = $xsdir
  2686. - XSUBPP = \$(XSUBPPDIR)/xsubpp
  2687. - XSPROTOARG = $self->{XSPROTOARG}
  2688. - XSUBPPDEPS = @tmdeps
  2689. - XSUBPPARGS = @tmargs
  2690. - };
  2691. - };
  2692. - 
  2693. - sub xsubpp_version
  2694. - {
  2695. -     my($self,$xsubpp) = @_;
  2696. -     return $Xsubpp_Version if defined $Xsubpp_Version; # global variable
  2697.   
  2698. !     my ($version) ;
  2699.   
  2700. !     # try to figure out the version number of the xsubpp on the system
  2701.   
  2702. !     # first try the -v flag, introduced in 1.921 & 2.000a2
  2703.   
  2704. !     my $command = "$self->{PERL} -I$self->{PERL_LIB} $xsubpp -v 2>&1";
  2705. !     print "Running $command\n" if $Verbose >= 2;
  2706. !     $version = `$command` ;
  2707. !     warn "Running '$command' exits with status " . ($?>>8) if $?;
  2708. !     chop $version ;
  2709.   
  2710. !     return $Xsubpp_Version = $1 if $version =~ /^xsubpp version (.*)/ ;
  2711.   
  2712. !     # nope, then try something else
  2713.   
  2714. !     my $counter = '000';
  2715. !     my ($file) = 'temp' ;
  2716. !     $counter++ while -e "$file$counter"; # don't overwrite anything
  2717. !     $file .= $counter;
  2718.   
  2719. -     open(F, ">$file") or die "Cannot open file '$file': $!\n" ;
  2720. -     print F <<EOM ;
  2721. - MODULE = fred PACKAGE = fred
  2722.   
  2723. ! int
  2724. ! fred(a)
  2725. !         int     a;
  2726. ! EOM
  2727.   
  2728. !     close F ;
  2729.   
  2730. !     $command = "$self->{PERL} $xsubpp $file 2>&1";
  2731. !     print "Running $command\n" if $Verbose >= 2;
  2732. !     my $text = `$command` ;
  2733. !     warn "Running '$command' exits with status " . ($?>>8) if $?;
  2734. !     unlink $file ;
  2735.   
  2736. -     # gets 1.2 -> 1.92 and 2.000a1
  2737. -     return $Xsubpp_Version = $1 if $text =~ /automatically by xsubpp version ([\S]+)\s*/  ;
  2738.   
  2739. !     # it is either 1.0 or 1.1
  2740. !     return $Xsubpp_Version = 1.1 if $text =~ /^Warning: ignored semicolon/ ;
  2741.   
  2742. !     # none of the above, so 1.0
  2743. !     return $Xsubpp_Version = "1.0" ;
  2744. ! }
  2745.   
  2746. - =item tools_other (o)
  2747.   
  2748. ! Defines SHELL, LD, TOUCH, CP, MV, RM_F, RM_RF, CHMOD, UMASK_NULL in
  2749. ! the Makefile. Also defines the perl programs MKPATH,
  2750. ! WARN_IF_OLD_PACKLIST, MOD_INSTALL. DOC_INSTALL, and UNINSTALL.
  2751.   
  2752. - =cut
  2753.   
  2754. ! sub tools_other {
  2755. !     my($self) = shift;
  2756. !     unless (ref $self){
  2757. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2758. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2759. !     }
  2760. !     my @m;
  2761. !     push @m, qq{
  2762. ! SHELL = /bin/sh
  2763. ! LD = $self->{LD}
  2764. ! TOUCH = $self->{TOUCH}
  2765. ! CP = $self->{CP}
  2766. ! MV = $self->{MV}
  2767. ! RM_F  = $self->{RM_F}
  2768. ! RM_RF = $self->{RM_RF}
  2769. ! CHMOD = $self->{CHMOD}
  2770. ! UMASK_NULL = $self->{UMASK_NULL}
  2771. ! };
  2772.   
  2773. !     push @m, q{
  2774. ! # The following is a portable way to say mkdir -p
  2775. ! # To see which directories are created, change the if 0 to if 1
  2776. ! MKPATH = $(PERL) -wle '$$"="/"; foreach $$p (@ARGV){' \\
  2777. ! -e 'next if -d $$p; my(@p); foreach(split(/\//,$$p)){' \\
  2778. ! -e 'push(@p,$$_); next if -d "@p/"; print "mkdir @p" if 0;' \\
  2779. ! -e 'mkdir("@p",0777)||die $$! } } exit 0;'
  2780.   
  2781. ! # This helps us to minimize the effect of the .exists files A yet
  2782. ! # better solution would be to have a stable file in the perl
  2783. ! # distribution with a timestamp of zero. But this solution doesn't
  2784. ! # need any changes to the core distribution and works with older perls
  2785. ! EQUALIZE_TIMESTAMP = $(PERL) -we 'open F, ">$$ARGV[1]"; close F;' \\
  2786. ! -e 'utime ((stat("$$ARGV[0]"))[8,9], $$ARGV[1])'
  2787. ! };
  2788.   
  2789. !     return join "", @m if $self->{PARENT};
  2790.   
  2791. !     push @m, q{
  2792. ! # Here we warn users that an old packlist file was found somewhere,
  2793. ! # and that they should call some uninstall routine
  2794. ! WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \\
  2795. ! -e 'print "WARNING: I have found an old package in\n";' \\
  2796. ! -e 'print "\t$$ARGV[0].\n";' \\
  2797. ! -e 'print "Please make sure the two installations are not conflicting\n";'
  2798.   
  2799. ! MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \
  2800. ! -e 'install({@ARGV},1);'
  2801.   
  2802. ! DOC_INSTALL = $(PERL) -e '$$\="\n\n";print "=head3 ", scalar(localtime), ": C<", shift, ">";' \
  2803. ! -e 'print "=over 4";' \
  2804. ! -e 'while ($$key = shift and $$val = shift){print "=item *";print "C<$$key: $$val>";}' \
  2805. ! -e 'print "=back";'
  2806.   
  2807. ! UNINSTALL =   $(PERL) -MExtUtils::Install \
  2808. ! -e 'uninstall($$ARGV[0],1);'
  2809.   
  2810. ! };
  2811.   
  2812. !     return join "", @m;
  2813. ! }
  2814.   
  2815. ! =item dist (o)
  2816.   
  2817. ! Defines a lot of macros for distribution support.
  2818.   
  2819. ! =cut
  2820.   
  2821. - sub dist {
  2822. -     my($self, %attribs) = @_;
  2823. -     unless (ref $self){
  2824. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2825. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  2826. -     }
  2827.   
  2828. !     my(@m);
  2829. !     # VERSION should be sanitised before use as a file name
  2830. !     my($name)     = $attribs{NAME}     || '$(DISTVNAME)';
  2831. !     my($tar)      = $attribs{TAR}      || 'tar';        # eg /usr/bin/gnutar
  2832. !     my($tarflags) = $attribs{TARFLAGS} || 'cvf';
  2833. !     my($zip)      = $attribs{ZIP}      || 'zip';        # eg pkzip Yuck!
  2834. !     my($zipflags) = $attribs{ZIPFLAGS} || '-r';
  2835. !     my($compress) = $attribs{COMPRESS} || 'compress';   # eg gzip
  2836. !     my($suffix)   = $attribs{SUFFIX}   || '.Z';          # eg .gz
  2837. !     my($shar)     = $attribs{SHAR}     || 'shar';       # eg "shar --gzip"
  2838. !     my($preop)    = $attribs{PREOP}    || "$self->{NOECHO}\$(NOOP)"; # eg update MANIFEST
  2839. !     my($postop)   = $attribs{POSTOP}   || "$self->{NOECHO}\$(NOOP)"; # eg remove the distdir
  2840. !     my($ci)       = $attribs{CI}       || 'ci -u';
  2841. !     my($rcs_label)= $attribs{RCS_LABEL}|| 'rcs -Nv$(VERSION_SYM): -q';
  2842. !     my($dist_cp)  = $attribs{DIST_CP}  || 'best';
  2843. !     my($dist_default) = $attribs{DIST_DEFAULT} || 'tardist';
  2844.   
  2845. !     push @m, "
  2846. ! DISTVNAME = \$(DISTNAME)-\$(VERSION_SYM)
  2847. ! TAR  = $tar
  2848. ! TARFLAGS = $tarflags
  2849. ! ZIP  = $zip
  2850. ! ZIPFLAGS = $zipflags
  2851. ! COMPRESS = $compress
  2852. ! SUFFIX = $suffix
  2853. ! SHAR = $shar
  2854. ! PREOP = $preop
  2855. ! POSTOP = $postop
  2856. ! CI = $ci
  2857. ! RCS_LABEL = $rcs_label
  2858. ! DIST_CP = $dist_cp
  2859. ! DIST_DEFAULT = $dist_default
  2860. ! ";
  2861. !     join "", @m;
  2862. ! }
  2863.   
  2864. ! =item macro (o)
  2865.   
  2866. ! Simple subroutine to insert the macros defined by the macro attribute
  2867. ! into the Makefile.
  2868.   
  2869. ! =cut
  2870.   
  2871. ! sub macro {
  2872. !     my($self,%attribs) = @_;
  2873. !     unless (ref $self){
  2874. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2875. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2876.       }
  2877. !     my(@m,$key,$val);
  2878. !     while (($key,$val) = each %attribs){
  2879. !     last unless defined $key;
  2880. !     push @m, "$key = $val\n";
  2881.       }
  2882. !     join "", @m;
  2883. ! }
  2884.   
  2885. ! =item depend (o)
  2886.   
  2887. ! Same as macro for the depend attribute.
  2888.   
  2889. - =cut
  2890.   
  2891. ! sub depend {
  2892. !     my($self,%attribs) = @_;
  2893. !     unless (ref $self){
  2894. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2895. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2896.       }
  2897. !     my(@m,$key,$val);
  2898. !     while (($key,$val) = each %attribs){
  2899. !     last unless defined $key;
  2900. !     push @m, "$key : $val\n\t$self->{NOECHO}\$(NOOP)\n\n";
  2901.       }
  2902. !     join "", @m;
  2903. ! }
  2904.   
  2905. - =item post_constants (o)
  2906.   
  2907. ! Returns an empty string per default. Dedicated to overrides from
  2908. ! within Makefile.PL after all constants have been defined.
  2909.   
  2910. ! =cut
  2911.   
  2912. ! sub post_constants{
  2913. !     my($self) = shift;
  2914. !     unless (ref $self){
  2915. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2916. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2917. !     }
  2918. !     "";
  2919. ! }
  2920.   
  2921. ! =item pasthru (o)
  2922.   
  2923. ! Defines the string that is passed to recursive make calls in
  2924. ! subdirectories.
  2925.   
  2926. ! =cut
  2927.   
  2928. ! sub pasthru {
  2929. !     my($self) = shift;
  2930. !     unless (ref $self){
  2931. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2932. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  2933.       }
  2934. -     my(@m,$key);
  2935.   
  2936. !     my(@pasthru);
  2937.   
  2938. - # We don't have to pass thru the install thingies anymore: make
  2939. - # install is run in base directory only:
  2940.   
  2941. ! #    foreach $key (qw(INSTALLPRIVLIB INSTALLARCHLIB INSTALLBIN
  2942. ! #             INSTALLMAN1DIR INSTALLMAN3DIR LIBPERL_A
  2943. ! #             LINKTYPE PREFIX INSTALLSITELIB
  2944. ! #             INSTALLSITEARCH INSTALLDIRS)){
  2945.   
  2946. !     foreach $key (qw(LIBPERL_A LINKTYPE PREFIX OPTIMIZE)){
  2947. !     push @pasthru, "$key=\"\$($key)\"";
  2948.       }
  2949.   
  2950. !     push @m, "\nPASTHRU = ", join ("\\\n\t", @pasthru), "\n";
  2951. !     join "", @m;
  2952.   }
  2953.   
  2954. ! =item c_o (o)
  2955.   
  2956. ! Defines the suffix rules to compile different flavors of C files to
  2957. ! object files.
  2958.   
  2959.   =cut
  2960.   
  2961. ! sub c_o {
  2962. ! # --- Translation Sections ---
  2963. ! 
  2964.       my($self) = shift;
  2965. -     unless (ref $self){
  2966. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  2967. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  2968. -     }
  2969. -     return '' unless $self->needs_linking();
  2970. -     my(@m);
  2971. -     push @m, '
  2972. - .c$(OBJ_EXT):
  2973. -     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  2974.   
  2975. ! .C$(OBJ_EXT):
  2976. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.C
  2977.   
  2978. ! .cpp$(OBJ_EXT):
  2979. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cpp
  2980.   
  2981. ! .cxx$(OBJ_EXT):
  2982. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cxx
  2983.   
  2984. ! .cc$(OBJ_EXT):
  2985. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cc
  2986. ! ';
  2987. !     join "", @m;
  2988.   }
  2989.   
  2990. ! =item xs_c (o)
  2991.   
  2992. ! Defines the suffix rules to compile XS files to C.
  2993.   
  2994.   =cut
  2995.   
  2996. ! sub xs_c {
  2997. !     my($self) = shift;
  2998. !     unless (ref $self){
  2999. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  3000. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  3001. !     }
  3002. !     return '' unless $self->needs_linking();
  3003. !     '
  3004. ! .xs.c:
  3005. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >$*.tc && mv $*.tc $@
  3006. ! ';
  3007. ! }
  3008.   
  3009. ! =item xs_o (o)
  3010.   
  3011. ! Defines suffix rules to go from XS to object files directly. This is
  3012. ! only intended for broken make implementations.
  3013.   
  3014. ! =cut
  3015.   
  3016. ! sub xs_o {    # many makes are too dumb to use xs_c then c_o
  3017. !     my($self) = shift;
  3018. !     unless (ref $self){
  3019. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  3020. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  3021. !     }
  3022. !     return '' unless $self->needs_linking();
  3023. !     '
  3024. ! .xs$(OBJ_EXT):
  3025. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && mv xstmp.c $*.c
  3026. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  3027. ! ';
  3028. ! }
  3029.   
  3030. ! =item top_targets (o)
  3031.   
  3032. ! Defines the targets all, subdirs, config, and O_FILES
  3033.   
  3034. ! =cut
  3035.   
  3036. ! sub top_targets {
  3037. ! # --- Target Sections ---
  3038.   
  3039. !     my($self) = shift;
  3040. !     unless (ref $self){
  3041. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  3042. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  3043. !     }
  3044. !     my(@m);
  3045. !     push @m, '
  3046. ! #all ::    config $(INST_PM) subdirs linkext manifypods
  3047.   
  3048. - all :: pure_all manifypods
  3049. -     '.$self->{NOECHO}.'$(NOOP)
  3050.   
  3051. ! pure_all :: config pm_to_blib subdirs linkext
  3052. !     '.$self->{NOECHO}.'$(NOOP)
  3053.   
  3054. ! subdirs :: $(MYEXTLIB)
  3055. !     '.$self->{NOECHO}.'$(NOOP)
  3056.   
  3057. ! config :: '.$self->{MAKEFILE}.' $(INST_LIBDIR)/.exists
  3058. !     '.$self->{NOECHO}.'$(NOOP)
  3059.   
  3060. ! config :: $(INST_ARCHAUTODIR)/.exists
  3061. !     '.$self->{NOECHO}.'$(NOOP)
  3062.   
  3063. ! config :: $(INST_AUTODIR)/.exists
  3064. !     '.$self->{NOECHO}.'$(NOOP)
  3065. ! ';
  3066.   
  3067. !     push @m, qq{
  3068. ! config :: Version_check
  3069. !     $self->{NOECHO}\$(NOOP)
  3070.   
  3071. ! } unless $self->{PARENT} or ($self->{PERL_SRC} && $self->{INSTALLDIRS} eq "perl") or $self->{NO_VC};
  3072.   
  3073. !     push @m, $self->dir_target(qw[$(INST_AUTODIR) $(INST_LIBDIR) $(INST_ARCHAUTODIR)]);
  3074.   
  3075. !     if (%{$self->{MAN1PODS}}) {
  3076. !     push @m, qq[
  3077. ! config :: \$(INST_MAN1DIR)/.exists
  3078. !     $self->{NOECHO}\$(NOOP)
  3079.   
  3080. ! ];
  3081. !     push @m, $self->dir_target(qw[$(INST_MAN1DIR)]);
  3082.       }
  3083. !     if (%{$self->{MAN3PODS}}) {
  3084. !     push @m, qq[
  3085. ! config :: \$(INST_MAN3DIR)/.exists
  3086. !     $self->{NOECHO}\$(NOOP)
  3087.   
  3088. ! ];
  3089. !     push @m, $self->dir_target(qw[$(INST_MAN3DIR)]);
  3090.       }
  3091.   
  3092. !     push @m, '
  3093. ! $(O_FILES): $(H_FILES)
  3094. ! ' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
  3095.   
  3096. !     push @m, q{
  3097. ! help:
  3098. !     perldoc ExtUtils::MakeMaker
  3099. ! };
  3100.   
  3101. !     push @m, q{
  3102. ! Version_check:
  3103. !     }.$self->{NOECHO}.q{$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
  3104. !         -MExtUtils::MakeMaker=Version_check \
  3105. !         -e 'Version_check("$(MM_VERSION)")'
  3106. ! };
  3107.   
  3108. !     join('',@m);
  3109.   }
  3110.   
  3111.   =item linkext (o)
  3112. --- 64,1855 ----
  3113.   
  3114.   =over 2
  3115.   
  3116. + =item canonpath
  3117. + 
  3118. + No physical check on the filesystem, but a logical cleanup of a
  3119. + path. On UNIX eliminated successive slashes and successive "/.".
  3120. + 
  3121. + =cut
  3122. + 
  3123. + sub canonpath {
  3124. +     my($self,$path) = @_;
  3125. +     $path =~ s|/+|/|g ;                            # xx////xx  -> xx/xx
  3126. +     $path =~ s|(/\.)+/|/|g ;                       # xx/././xx -> xx/xx
  3127. +     $path =~ s|^(\./)+|| unless $path eq "./";     # ./xx      -> xx
  3128. +     $path =~ s|/$|| unless $path eq "/";           # xx/       -> xx
  3129. +     $path;
  3130. + }
  3131. + 
  3132.   =item catdir
  3133.   
  3134.   Concatenate two or more directory names to form a complete path ending
  3135. ! with a directory. But remove the trailing slash from the resulting
  3136. ! string, because it doesn't look good, isn't necessary and confuses
  3137. ! OS2. Of course, if this is the root directory, don't cut off the
  3138. ! trailing slash :-)
  3139.   
  3140.   =cut
  3141.   
  3142.   # ';
  3143.   
  3144. ! sub catdir {
  3145.       shift;
  3146. !     my @args = @_;
  3147. !     for (@args) {
  3148. !     # append a slash to each argument unless it has one there
  3149. !     $_ .= "/" unless substr($_,length($_)-1,1) eq "/";
  3150. !     }
  3151. !     my $result = join('', @args);
  3152. !     # remove a trailing slash unless we are root
  3153. !     substr($result,length($result)-1,1) = ""
  3154. !     if length($result) > 1 && substr($result,length($result)-1,1) eq "/";
  3155.       $result;
  3156.   }
  3157.   
  3158.   =item catfile
  3159.   
  3160. ! Concatenate one or more directory names and a filename to form a
  3161.   complete path ending with a filename
  3162.   
  3163.   =cut
  3164.   
  3165.   sub catfile {
  3166. !     my $self = shift @_;
  3167. !     my $file = pop @_;
  3168. !     return $file unless @_;
  3169. !     my $dir = $self->catdir(@_);
  3170. !     for ($dir) {
  3171. !     $_ .= "/" unless substr($_,length($_)-1,1) eq "/";
  3172. !     }
  3173. !     return $dir.$file;
  3174.   }
  3175.   
  3176. ! =item curdir
  3177. ! 
  3178. ! Returns a string representing of the current directory.  "." on UNIX.
  3179. ! 
  3180. ! =cut
  3181. ! 
  3182. ! sub curdir {
  3183. !     return "." ;
  3184. ! }
  3185. ! 
  3186. ! =item rootdir
  3187. ! 
  3188. ! Returns a string representing of the root directory.  "/" on UNIX.
  3189. ! 
  3190. ! =cut
  3191. ! 
  3192. ! sub rootdir {
  3193. !     return "/";
  3194. ! }
  3195. ! 
  3196. ! =item updir
  3197. ! 
  3198. ! Returns a string representing of the parent directory.  ".." on UNIX.
  3199. ! 
  3200. ! =cut
  3201. ! 
  3202. ! sub updir {
  3203. !     return "..";
  3204. ! }
  3205. ! 
  3206. ! sub ExtUtils::MM_Unix::c_o ;
  3207. ! sub ExtUtils::MM_Unix::clean ;
  3208. ! sub ExtUtils::MM_Unix::const_cccmd ;
  3209.   sub ExtUtils::MM_Unix::const_config ;
  3210.   sub ExtUtils::MM_Unix::const_loadlibs ;
  3211. ! sub ExtUtils::MM_Unix::constants ;
  3212.   sub ExtUtils::MM_Unix::depend ;
  3213. ! sub ExtUtils::MM_Unix::dir_target ;
  3214. ! sub ExtUtils::MM_Unix::dist ;
  3215. ! sub ExtUtils::MM_Unix::dist_basics ;
  3216. ! sub ExtUtils::MM_Unix::dist_ci ;
  3217. ! sub ExtUtils::MM_Unix::dist_core ;
  3218. ! sub ExtUtils::MM_Unix::dist_dir ;
  3219. ! sub ExtUtils::MM_Unix::dist_test ;
  3220.   sub ExtUtils::MM_Unix::dlsyms ;
  3221.   sub ExtUtils::MM_Unix::dynamic ;
  3222.   sub ExtUtils::MM_Unix::dynamic_bs ;
  3223.   sub ExtUtils::MM_Unix::dynamic_lib ;
  3224. ! sub ExtUtils::MM_Unix::exescan ;
  3225. ! sub ExtUtils::MM_Unix::extliblist ;
  3226. ! sub ExtUtils::MM_Unix::file_name_is_absolute ;
  3227. ! sub ExtUtils::MM_Unix::find_perl ;
  3228. ! sub ExtUtils::MM_Unix::force ;
  3229. ! sub ExtUtils::MM_Unix::guess_name ;
  3230. ! sub ExtUtils::MM_Unix::has_link_code ;
  3231. ! sub ExtUtils::MM_Unix::init_dirscan ;
  3232. ! sub ExtUtils::MM_Unix::init_main ;
  3233. ! sub ExtUtils::MM_Unix::init_others ;
  3234. ! sub ExtUtils::MM_Unix::install ;
  3235. ! sub ExtUtils::MM_Unix::installbin ;
  3236. ! sub ExtUtils::MM_Unix::libscan ;
  3237. ! sub ExtUtils::MM_Unix::linkext ;
  3238. ! sub ExtUtils::MM_Unix::lsdir ;
  3239. ! sub ExtUtils::MM_Unix::macro ;
  3240. ! sub ExtUtils::MM_Unix::makeaperl ;
  3241. ! sub ExtUtils::MM_Unix::makefile ;
  3242.   sub ExtUtils::MM_Unix::manifypods ;
  3243. + sub ExtUtils::MM_Unix::maybe_command ;
  3244. + sub ExtUtils::MM_Unix::maybe_command_in_dirs ;
  3245. + sub ExtUtils::MM_Unix::needs_linking ;
  3246. + sub ExtUtils::MM_Unix::nicetext ;
  3247. + sub ExtUtils::MM_Unix::parse_version ;
  3248. + sub ExtUtils::MM_Unix::pasthru ;
  3249. + sub ExtUtils::MM_Unix::path ;
  3250. + sub ExtUtils::MM_Unix::perl_script ;
  3251. + sub ExtUtils::MM_Unix::perldepend ;
  3252. + sub ExtUtils::MM_Unix::pm_to_blib ;
  3253. + sub ExtUtils::MM_Unix::post_constants ;
  3254. + sub ExtUtils::MM_Unix::post_initialize ;
  3255. + sub ExtUtils::MM_Unix::postamble ;
  3256. + sub ExtUtils::MM_Unix::prefixify ;
  3257.   sub ExtUtils::MM_Unix::processPL ;
  3258.   sub ExtUtils::MM_Unix::realclean ;
  3259. ! sub ExtUtils::MM_Unix::replace_manpage_separator ;
  3260. ! sub ExtUtils::MM_Unix::static ;
  3261. ! sub ExtUtils::MM_Unix::static_lib ;
  3262.   sub ExtUtils::MM_Unix::staticmake ;
  3263. + sub ExtUtils::MM_Unix::subdir_x ;
  3264. + sub ExtUtils::MM_Unix::subdirs ;
  3265.   sub ExtUtils::MM_Unix::test ;
  3266.   sub ExtUtils::MM_Unix::test_via_harness ;
  3267.   sub ExtUtils::MM_Unix::test_via_script ;
  3268. ! sub ExtUtils::MM_Unix::tool_autosplit ;
  3269. ! sub ExtUtils::MM_Unix::tool_xsubpp ;
  3270. ! sub ExtUtils::MM_Unix::tools_other ;
  3271. ! sub ExtUtils::MM_Unix::top_targets ;
  3272.   sub ExtUtils::MM_Unix::writedoc ;
  3273. ! sub ExtUtils::MM_Unix::xs_c ;
  3274. ! sub ExtUtils::MM_Unix::xs_o ;
  3275. ! sub ExtUtils::MM_Unix::xsubpp_version ;
  3276.   
  3277.   package ExtUtils::MM_Unix;
  3278.   
  3279. ! #use SelfLoader;
  3280.   
  3281.   1;
  3282. ! #__DATA__
  3283.   
  3284.   =head2 SelfLoaded methods
  3285.   
  3286. ! =item c_o (o)
  3287.   
  3288. ! Defines the suffix rules to compile different flavors of C files to
  3289. ! object files.
  3290.   
  3291.   =cut
  3292.   
  3293. ! sub c_o {
  3294. ! # --- Translation Sections ---
  3295.   
  3296. !     my($self) = shift;
  3297. !     return '' unless $self->needs_linking();
  3298. !     my(@m);
  3299. !     push @m, '
  3300. ! .c$(OBJ_EXT):
  3301. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  3302.   
  3303. ! .C$(OBJ_EXT):
  3304. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.C
  3305.   
  3306. ! .cpp$(OBJ_EXT):
  3307. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cpp
  3308.   
  3309. ! .cxx$(OBJ_EXT):
  3310. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cxx
  3311.   
  3312. ! .cc$(OBJ_EXT):
  3313. !     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.cc
  3314. ! ';
  3315. !     join "", @m;
  3316.   }
  3317.   
  3318. ! =item cflags (o)
  3319.   
  3320. ! Does very much the same as the cflags script in the perl
  3321. ! distribution. It doesn't return the whole compiler command line, but
  3322. ! initializes all of its parts. The const_cccmd method then actually
  3323. ! returns the definition of the CCCMD macro which uses these parts.
  3324.   
  3325.   =cut
  3326.   
  3327. ! #'
  3328.   
  3329. ! sub cflags {
  3330. !     my($self,$libperl)=@_;
  3331. !     return $self->{CFLAGS} if $self->{CFLAGS};
  3332. !     return '' unless $self->needs_linking();
  3333.   
  3334. !     my($prog, $uc, $perltype, %cflags);
  3335. !     $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
  3336. !     $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
  3337.   
  3338. !     @cflags{qw(cc ccflags optimize large split shellflags)}
  3339. !     = @Config{qw(cc ccflags optimize large split shellflags)};
  3340. !     my($optdebug) = "";
  3341.   
  3342. !     $cflags{shellflags} ||= '';
  3343.   
  3344. !     my(%map) =  (
  3345. !         D =>   '-DDEBUGGING',
  3346. !         E =>   '-DEMBED',
  3347. !         DE =>  '-DDEBUGGING -DEMBED',
  3348. !         M =>   '-DEMBED -DMULTIPLICITY',
  3349. !         DM =>  '-DDEBUGGING -DEMBED -DMULTIPLICITY',
  3350. !         );
  3351.   
  3352. !     if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
  3353. !     $uc = uc($1);
  3354. !     } else {
  3355. !     $uc = ""; # avoid warning
  3356. !     }
  3357. !     $perltype = $map{$uc} ? $map{$uc} : "";
  3358.   
  3359. !     if ($uc =~ /^D/) {
  3360. !     $optdebug = "-g";
  3361. !     }
  3362.   
  3363.   
  3364. !     my($name);
  3365. !     ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
  3366. !     if ($prog = $Config::Config{$name}) {
  3367. !     # Expand hints for this extension via the shell
  3368. !     print STDOUT "Processing $name hint:\n" if $Verbose;
  3369. !     my(@o)=`cc=\"$cflags{cc}\"
  3370. !       ccflags=\"$cflags{ccflags}\"
  3371. !       optimize=\"$cflags{optimize}\"
  3372. !       perltype=\"$cflags{perltype}\"
  3373. !       optdebug=\"$cflags{optdebug}\"
  3374. !       large=\"$cflags{large}\"
  3375. !       split=\"$cflags{'split'}\"
  3376. !       eval '$prog'
  3377. !       echo cc=\$cc
  3378. !       echo ccflags=\$ccflags
  3379. !       echo optimize=\$optimize
  3380. !       echo perltype=\$perltype
  3381. !       echo optdebug=\$optdebug
  3382. !       echo large=\$large
  3383. !       echo split=\$split
  3384. !       `;
  3385. !     my($line);
  3386. !     foreach $line (@o){
  3387. !         chomp $line;
  3388. !         if ($line =~ /(.*?)=\s*(.*)\s*$/){
  3389. !         $cflags{$1} = $2;
  3390. !         print STDOUT "    $1 = $2\n" if $Verbose;
  3391. !         } else {
  3392. !         print STDOUT "Unrecognised result from hint: '$line'\n";
  3393. !         }
  3394. !     }
  3395. !     }
  3396.   
  3397. !     if ($optdebug) {
  3398. !     $cflags{optimize} = $optdebug;
  3399. !     }
  3400.   
  3401. !     for (qw(ccflags optimize perltype large split)) {
  3402. !     $cflags{$_} =~ s/^\s+//;
  3403. !     $cflags{$_} =~ s/\s+/ /g;
  3404. !     $cflags{$_} =~ s/\s+$//;
  3405. !     $self->{uc $_} ||= $cflags{$_}
  3406. !     }
  3407.   
  3408. !     return $self->{CFLAGS} = qq{
  3409. ! CCFLAGS = $self->{CCFLAGS}
  3410. ! OPTIMIZE = $self->{OPTIMIZE}
  3411. ! PERLTYPE = $self->{PERLTYPE}
  3412. ! LARGE = $self->{LARGE}
  3413. ! SPLIT = $self->{SPLIT}
  3414. ! };
  3415.   
  3416.   }
  3417.   
  3418. ! =item clean (o)
  3419.   
  3420. ! Defines the clean target.
  3421.   
  3422.   =cut
  3423.   
  3424. ! sub clean {
  3425. ! # --- Cleanup and Distribution Sections ---
  3426.   
  3427. !     my($self, %attribs) = @_;
  3428. !     my(@m,$dir);
  3429. !     push(@m, '
  3430. ! # Delete temporary files but do not touch installed files. We don\'t delete
  3431. ! # the Makefile here so a later make realclean still has a makefile to use.
  3432.   
  3433. ! clean ::
  3434. ! ');
  3435. !     # clean subdirectories first
  3436. !     for $dir (@{$self->{DIR}}) {
  3437. !     push @m, "\t-cd $dir && test -f $self->{MAKEFILE} && \$(MAKE) clean\n";
  3438.       }
  3439. + 
  3440. +     my(@otherfiles) = values %{$self->{XS}}; # .c files from *.xs files
  3441. +     push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
  3442. +     push(@otherfiles, qw[./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all
  3443. +              perlmain.c mon.out core so_locations pm_to_blib
  3444. +              *~ */*~ */*/*~ *$(OBJ_EXT) *$(LIB_EXT) perl.exe
  3445. +              $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def
  3446. +              $(BASEEXT).exp
  3447. +             ]);
  3448. +     push @m, "\t-$self->{RM_RF} @otherfiles\n";
  3449. +     # See realclean and ext/utils/make_ext for usage of Makefile.old
  3450. +     push(@m,
  3451. +      "\t-$self->{MV} $self->{MAKEFILE} $self->{MAKEFILE}.old 2>/dev/null\n");
  3452. +     push(@m,
  3453. +      "\t$attribs{POSTOP}\n")   if $attribs{POSTOP};
  3454. +     join("", @m);
  3455.   }
  3456.   
  3457. ! =item const_cccmd (o)
  3458.   
  3459. ! Returns the full compiler call for C programs and stores the
  3460. ! definition in CONST_CCCMD.
  3461.   
  3462.   =cut
  3463.   
  3464. ! sub const_cccmd {
  3465. !     my($self,$libperl)=@_;
  3466. !     return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
  3467. !     return '' unless $self->needs_linking();
  3468. !     return $self->{CONST_CCCMD} =
  3469. !     q{CCCMD = $(CC) -c $(INC) $(CCFLAGS) $(OPTIMIZE) \\
  3470. !     $(PERLTYPE) $(LARGE) $(SPLIT) $(DEFINE_VERSION) \\
  3471. !     $(XS_DEFINE_VERSION)};
  3472.   }
  3473.   
  3474. ! =item const_config (o)
  3475.   
  3476. ! Defines a couple of constants in the Makefile that are imported from
  3477. ! %Config.
  3478.   
  3479.   =cut
  3480.   
  3481. ! sub const_config {
  3482. ! # --- Constants Sections ---
  3483. ! 
  3484. !     my($self) = shift;
  3485. !     my(@m,$m);
  3486. !     push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
  3487. !     push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
  3488. !     my(%once_only);
  3489. !     foreach $m (@{$self->{CONFIG}}){
  3490. !     # SITE*EXP macros are defined in &constants; avoid duplicates here
  3491. !     next if $once_only{$m} or $m eq 'sitelibexp' or $m eq 'sitearchexp';
  3492. !     push @m, "\U$m\E = ".$self->{uc $m}."\n";
  3493. !     $once_only{$m} = 1;
  3494. !     }
  3495. !     join('', @m);
  3496.   }
  3497.   
  3498. ! =item const_loadlibs (o)
  3499.   
  3500. ! Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
  3501. ! L<ExtUtils::Liblist> for details.
  3502.   
  3503.   =cut
  3504.   
  3505. ! sub const_loadlibs {
  3506. !     my($self) = shift;
  3507. !     return "" unless $self->needs_linking;
  3508. !     my @m;
  3509. !     push @m, qq{
  3510. ! # $self->{NAME} might depend on some other libraries:
  3511. ! # See ExtUtils::Liblist for details
  3512. ! #
  3513. ! };
  3514. !     my($tmp);
  3515. !     for $tmp (qw/
  3516. !      EXTRALIBS LDLOADLIBS BSLOADLIBS LD_RUN_PATH
  3517. !      /) {
  3518. !     next unless defined $self->{$tmp};
  3519. !     push @m, "$tmp = $self->{$tmp}\n";
  3520. !     }
  3521. !     return join "", @m;
  3522.   }
  3523.   
  3524. ! =item constants (o)
  3525.   
  3526. ! Initializes lots of constants and .SUFFIXES and .PHONY
  3527.   
  3528.   =cut
  3529.   
  3530. ! sub constants {
  3531.       my($self) = @_;
  3532. !     my(@m,$tmp);
  3533.   
  3534. !     for $tmp (qw/
  3535.   
  3536. !           AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION
  3537. !           VERSION_SYM XS_VERSION INST_BIN INST_EXE INST_LIB
  3538. !           INST_ARCHLIB INST_SCRIPT PREFIX INSTALLDIRS
  3539. !           INSTALLPRIVLIB INSTALLARCHLIB INSTALLSITELIB
  3540. !           INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT PERL_LIB
  3541. !           PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
  3542. !           FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC
  3543. !           PERL_INC PERL FULLPERL
  3544.   
  3545. !           / ) {
  3546. !     next unless defined $self->{$tmp};
  3547. !     push @m, "$tmp = $self->{$tmp}\n";
  3548.       }
  3549.   
  3550. +     push @m, qq{
  3551. + VERSION_MACRO = VERSION
  3552. + DEFINE_VERSION = -D\$(VERSION_MACRO)=\\\"\$(VERSION)\\\"
  3553. + XS_VERSION_MACRO = XS_VERSION
  3554. + XS_DEFINE_VERSION = -D\$(XS_VERSION_MACRO)=\\\"\$(XS_VERSION)\\\"
  3555. + };
  3556.   
  3557. !     push @m, qq{
  3558. ! MAKEMAKER = $INC{'ExtUtils/MakeMaker.pm'}
  3559. ! MM_VERSION = $ExtUtils::MakeMaker::VERSION
  3560. ! };
  3561.   
  3562. !     push @m, q{
  3563. ! # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
  3564. ! # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
  3565. ! # ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)  !!! Deprecated from MM 5.32  !!!
  3566. ! # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
  3567. ! # DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
  3568. ! };
  3569.   
  3570. +     for $tmp (qw/
  3571. +           FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
  3572. +           LDFROM LINKTYPE
  3573. +           /    ) {
  3574. +     next unless defined $self->{$tmp};
  3575. +     push @m, "$tmp = $self->{$tmp}\n";
  3576. +     }
  3577.   
  3578. !     push @m, "
  3579. ! # Handy lists of source code files:
  3580. ! XS_FILES= ".join(" \\\n\t", sort keys %{$self->{XS}})."
  3581. ! C_FILES = ".join(" \\\n\t", @{$self->{C}})."
  3582. ! O_FILES = ".join(" \\\n\t", @{$self->{O_FILES}})."
  3583. ! H_FILES = ".join(" \\\n\t", @{$self->{H}})."
  3584. ! MAN1PODS = ".join(" \\\n\t", sort keys %{$self->{MAN1PODS}})."
  3585. ! MAN3PODS = ".join(" \\\n\t", sort keys %{$self->{MAN3PODS}})."
  3586. ! ";
  3587.   
  3588. !     for $tmp (qw/
  3589. !           INST_MAN1DIR INSTALLMAN1DIR MAN1EXT INST_MAN3DIR INSTALLMAN3DIR MAN3EXT
  3590. !           /) {
  3591. !     next unless defined $self->{$tmp};
  3592. !     push @m, "$tmp = $self->{$tmp}\n";
  3593.       }
  3594.   
  3595. !     push @m, q{
  3596. ! .NO_CONFIG_REC: Makefile
  3597. ! } if $ENV{CLEARCASE_ROOT};
  3598.   
  3599. !     # why not q{} ? -- emacs
  3600. !     push @m, qq{
  3601. ! # work around a famous dec-osf make(1) feature(?):
  3602. ! makemakerdflt: all
  3603.   
  3604. ! .SUFFIXES: .xs .c .C .cpp .cxx .cc \$(OBJ_EXT)
  3605.   
  3606. ! # Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
  3607. ! # some make implementations will delete the Makefile when we rebuild it. Because
  3608. ! # we call false(1) when we rebuild it. So make(1) is not completely wrong when it
  3609. ! # does so. Our milage may vary.
  3610. ! # .PRECIOUS: Makefile    # seems to be not necessary anymore
  3611.   
  3612. ! .PHONY: all config static dynamic test linkext manifest
  3613.   
  3614. ! # Where is the Config information that we are using/depend on
  3615. ! CONFIGDEP = \$(PERL_ARCHLIB)/Config.pm \$(PERL_INC)/config.h
  3616. ! };
  3617.   
  3618. !     my @parentdir = split(/::/, $self->{PARENT_NAME});
  3619. !     push @m, q{
  3620. ! # Where to put things:
  3621. ! INST_LIBDIR      = }. $self->catdir('$(INST_LIB)',@parentdir)        .q{
  3622. ! INST_ARCHLIBDIR  = }. $self->catdir('$(INST_ARCHLIB)',@parentdir)    .q{
  3623.   
  3624. ! INST_AUTODIR     = }. $self->catdir('$(INST_LIB)','auto','$(FULLEXT)')       .q{
  3625. ! INST_ARCHAUTODIR = }. $self->catdir('$(INST_ARCHLIB)','auto','$(FULLEXT)')   .q{
  3626. ! };
  3627.   
  3628. +     if ($self->has_link_code()) {
  3629. +     push @m, '
  3630. + INST_STATIC  = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
  3631. + INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
  3632. + INST_BOOT    = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
  3633. + ';
  3634. +     } else {
  3635. +     push @m, '
  3636. + INST_STATIC  =
  3637. + INST_DYNAMIC =
  3638. + INST_BOOT    =
  3639. + ';
  3640. +     }
  3641.   
  3642. !     if ($Is_OS2) {
  3643. !     $tmp = "$self->{BASEEXT}.def";
  3644. !     } else {
  3645. !     $tmp = "";
  3646. !     }
  3647. !     push @m, "
  3648. ! EXPORT_LIST = $tmp
  3649. ! ";
  3650.   
  3651. !     if ($Is_OS2) {
  3652. !     $tmp = "\$(PERL_INC)/libperl\$(LIB_EXT)";
  3653. !     } else {
  3654. !     $tmp = "";
  3655.       }
  3656. !     push @m, "
  3657. ! PERL_ARCHIVE = $tmp
  3658. ! ";
  3659.   
  3660. ! #    push @m, q{
  3661. ! #INST_PM = }.join(" \\\n\t", sort values %{$self->{PM}}).q{
  3662. ! #
  3663. ! #PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
  3664. ! #};
  3665.   
  3666. !     push @m, q{
  3667. ! TO_INST_PM = }.join(" \\\n\t", sort keys %{$self->{PM}}).q{
  3668.   
  3669. ! PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{
  3670. ! };
  3671.   
  3672. !     join('',@m);
  3673. ! }
  3674.   
  3675. + =item depend (o)
  3676.   
  3677. ! Same as macro for the depend attribute.
  3678.   
  3679. ! =cut
  3680. ! 
  3681. ! sub depend {
  3682. !     my($self,%attribs) = @_;
  3683. !     my(@m,$key,$val);
  3684. !     while (($key,$val) = each %attribs){
  3685. !     last unless defined $key;
  3686. !     push @m, "$key: $val\n";
  3687.       }
  3688. !     join "", @m;
  3689. ! }
  3690.   
  3691. + =item dir_target (o)
  3692.   
  3693. ! Takes an array of directories that need to exist and returns a
  3694. ! Makefile entry for a .exists file in these directories. Returns
  3695. ! nothing, if the entry has already been processed. We're helpless
  3696. ! though, if the same directory comes as $(FOO) _and_ as "bar". Both of
  3697. ! them get an entry, that's why we use "::".
  3698.   
  3699. ! =cut
  3700.   
  3701. ! sub dir_target {
  3702. ! # --- Make-Directories section (internal method) ---
  3703. ! # dir_target(@array) returns a Makefile entry for the file .exists in each
  3704. ! # named directory. Returns nothing, if the entry has already been processed.
  3705. ! # We're helpless though, if the same directory comes as $(FOO) _and_ as "bar".
  3706. ! # Both of them get an entry, that's why we use "::". I chose '$(PERL)' as the
  3707. ! # prerequisite, because there has to be one, something that doesn't change
  3708. ! # too often :)
  3709.   
  3710. !     my($self,@dirs) = @_;
  3711. !     my(@m,$dir);
  3712. !     foreach $dir (@dirs) {
  3713. !     my($src) = $self->catfile($self->{PERL_INC},'perl.h');
  3714. !     my($targ) = $self->catfile($dir,'.exists');
  3715. !     my($targdir) = $targ;       # Necessary because catfile may have
  3716. !     $targdir =~ s:/?.exists$::; # adapted syntax of $dir to target OS
  3717. !     next if $self->{DIR_TARGET}{$self}{$targdir}++;
  3718. !     push @m, qq{
  3719. ! $targ :: $src
  3720. !     $self->{NOECHO}\$(MKPATH) $targdir
  3721. !     $self->{NOECHO}\$(EQUALIZE_TIMESTAMP) $src $targ
  3722. ! };
  3723. !     push(@m,qq{
  3724. !     -$self->{NOECHO}\$(CHMOD) 755 $targdir
  3725. ! }) unless $Is_VMS;
  3726. !     }
  3727. !     join "", @m;
  3728. ! }
  3729.   
  3730. ! =item dist (o)
  3731.   
  3732. ! Defines a lot of macros for distribution support.
  3733.   
  3734. ! =cut
  3735.   
  3736. + sub dist {
  3737. +     my($self, %attribs) = @_;
  3738.   
  3739. !     my(@m);
  3740. !     # VERSION should be sanitised before use as a file name
  3741. !     my($version)  = $attribs{VERSION}  || '$(VERSION)';
  3742. !     my($name)     = $attribs{NAME}     || '$(DISTNAME)';
  3743. !     my($tar)      = $attribs{TAR}      || 'tar';        # eg /usr/bin/gnutar
  3744. !     my($tarflags) = $attribs{TARFLAGS} || 'cvf';
  3745. !     my($zip)      = $attribs{ZIP}      || 'zip';        # eg pkzip Yuck!
  3746. !     my($zipflags) = $attribs{ZIPFLAGS} || '-r';
  3747. !     my($compress) = $attribs{COMPRESS} || 'compress';   # eg gzip
  3748. !     my($suffix)   = $attribs{SUFFIX}   || '.Z';          # eg .gz
  3749. !     my($shar)     = $attribs{SHAR}     || 'shar';       # eg "shar --gzip"
  3750. !     my($preop)    = $attribs{PREOP}    || "$self->{NOECHO}\$(NOOP)"; # eg update MANIFEST
  3751. !     my($postop)   = $attribs{POSTOP}   || "$self->{NOECHO}\$(NOOP)"; # eg remove the distdir
  3752.   
  3753. !     my($to_unix)  = $attribs{TO_UNIX} || ($Is_OS2
  3754. !                       ? "$self->{NOECHO}"
  3755. !                       . 'test -f tmp.zip && $(RM) tmp.zip;'
  3756. !                       . ' $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM) tmp.zip'
  3757. !                       : "$self->{NOECHO}\$(NOOP)");
  3758.   
  3759. !     my($ci)       = $attribs{CI}       || 'ci -u';
  3760. !     my($rcs_label)= $attribs{RCS_LABEL}|| 'rcs -Nv$(VERSION_SYM): -q';
  3761. !     my($dist_cp)  = $attribs{DIST_CP}  || 'best';
  3762. !     my($dist_default) = $attribs{DIST_DEFAULT} || 'tardist';
  3763.   
  3764. !     push @m, "
  3765. ! DISTVNAME = ${name}-$version
  3766. ! TAR  = $tar
  3767. ! TARFLAGS = $tarflags
  3768. ! ZIP  = $zip
  3769. ! ZIPFLAGS = $zipflags
  3770. ! COMPRESS = $compress
  3771. ! SUFFIX = $suffix
  3772. ! SHAR = $shar
  3773. ! PREOP = $preop
  3774. ! POSTOP = $postop
  3775. ! TO_UNIX = $to_unix
  3776. ! CI = $ci
  3777. ! RCS_LABEL = $rcs_label
  3778. ! DIST_CP = $dist_cp
  3779. ! DIST_DEFAULT = $dist_default
  3780. ! ";
  3781. !     join "", @m;
  3782.   }
  3783.   
  3784. ! =item dist_basics (o)
  3785.   
  3786. ! Defines the targets distclean, distcheck, skipcheck, manifest.
  3787.   
  3788.   =cut
  3789.   
  3790. ! sub dist_basics {
  3791. !     my($self) = shift;
  3792. !     my @m;
  3793. !     push @m, q{
  3794. ! distclean :: realclean distcheck
  3795. ! };
  3796.   
  3797. !     push @m, q{
  3798. ! distcheck :
  3799. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&fullcheck";' \\
  3800. !         -e 'fullcheck();'
  3801. ! };
  3802.   
  3803. !     push @m, q{
  3804. ! skipcheck :
  3805. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&skipcheck";' \\
  3806. !         -e 'skipcheck();'
  3807. ! };
  3808.   
  3809. !     push @m, q{
  3810. ! manifest :
  3811. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&mkmanifest";' \\
  3812. !         -e 'mkmanifest();'
  3813. ! };
  3814. !     join "", @m;
  3815.   }
  3816.   
  3817. ! =item dist_ci (o)
  3818.   
  3819. ! Defines a check in target for RCS.
  3820.   
  3821.   =cut
  3822.   
  3823. ! sub dist_ci {
  3824.       my($self) = shift;
  3825. !     my @m;
  3826. !     push @m, q{
  3827. ! ci :
  3828. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&maniread";' \\
  3829. !         -e '@all = keys %{ maniread() };' \\
  3830. !         -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \\
  3831. !         -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
  3832. ! };
  3833. !     join "", @m;
  3834. ! }
  3835.   
  3836. ! =item dist_core (o)
  3837.   
  3838. ! Defeines the targets dist, tardist, zipdist, uutardist, shdist
  3839.   
  3840. ! =cut
  3841.   
  3842. ! sub dist_core {
  3843. !     my($self) = shift;
  3844. !     my @m;
  3845. !     push @m, q{
  3846. ! dist : $(DIST_DEFAULT)
  3847. !     }.$self->{NOECHO}.q{$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \
  3848. !         -e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "}.$self->{MAKEFILE}.q{";'
  3849.   
  3850. ! tardist : $(DISTVNAME).tar$(SUFFIX)
  3851.   
  3852. ! zipdist : $(DISTVNAME).zip
  3853.   
  3854. ! $(DISTVNAME).tar$(SUFFIX) : distdir
  3855. !     $(PREOP)
  3856. !     $(TO_UNIX)
  3857. !     $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
  3858. !     $(RM_RF) $(DISTVNAME)
  3859. !     $(COMPRESS) $(DISTVNAME).tar
  3860. !     $(POSTOP)
  3861.   
  3862. ! $(DISTVNAME).zip : distdir
  3863. !     $(PREOP)
  3864. !     $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
  3865. !     $(RM_RF) $(DISTVNAME)
  3866. !     $(POSTOP)
  3867.   
  3868. ! uutardist : $(DISTVNAME).tar$(SUFFIX)
  3869. !     uuencode $(DISTVNAME).tar$(SUFFIX) \\
  3870. !         $(DISTVNAME).tar$(SUFFIX) > \\
  3871. !         $(DISTVNAME).tar$(SUFFIX)_uu
  3872.   
  3873. ! shdist : distdir
  3874. !     $(PREOP)
  3875. !     $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
  3876. !     $(RM_RF) $(DISTVNAME)
  3877. !     $(POSTOP)
  3878. ! };
  3879. !     join "", @m;
  3880.   }
  3881.   
  3882. ! =item dist_dir (o)
  3883.   
  3884. ! Defines the scratch directory target that will hold the distribution
  3885. ! before tar-ing (or shar-ing).
  3886.   
  3887.   =cut
  3888.   
  3889. ! sub dist_dir {
  3890. !     my($self) = shift;
  3891. !     my @m;
  3892. !     push @m, q{
  3893. ! distdir :
  3894. !     $(RM_RF) $(DISTVNAME)
  3895. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -MExtUtils::Manifest=manicopy,maniread \\
  3896. !         -e 'manicopy(maniread(),"$(DISTVNAME)", "$(DIST_CP)");'
  3897. ! };
  3898. !     join "", @m;
  3899.   }
  3900.   
  3901. ! =item dist_test (o)
  3902.   
  3903. ! Defines a target that produces the distribution in the
  3904. ! scratchdirectory, and runs 'perl Makefile.PL; make ;make test' in that
  3905. ! subdirectory.
  3906.   
  3907.   =cut
  3908.   
  3909. ! sub dist_test {
  3910.       my($self) = shift;
  3911. !     my @m;
  3912. !     push @m, q{
  3913. ! disttest : distdir
  3914. !     cd $(DISTVNAME) && $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) Makefile.PL
  3915. !     cd $(DISTVNAME) && $(MAKE)
  3916. !     cd $(DISTVNAME) && $(MAKE) test
  3917. ! };
  3918. !     join "", @m;
  3919.   }
  3920.   
  3921. ! =item dlsyms (o)
  3922.   
  3923. ! Used by AIX and VMS to define DL_FUNCS and DL_VARS and write the *.exp
  3924. ! files.
  3925.   
  3926.   =cut
  3927.   
  3928. ! sub dlsyms {
  3929. !     my($self,%attribs) = @_;
  3930.   
  3931. !     return '' unless ($^O eq 'aix' && $self->needs_linking() );
  3932.   
  3933. !     my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
  3934. !     my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
  3935. !     my(@m);
  3936.   
  3937. !     push(@m,"
  3938. ! dynamic :: $self->{BASEEXT}.exp
  3939.   
  3940. ! ") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
  3941.   
  3942. !     push(@m,"
  3943. ! static :: $self->{BASEEXT}.exp
  3944.   
  3945. ! ") unless $self->{SKIPHASH}{'static'};  # we avoid a warning if we tick them
  3946.   
  3947. !     push(@m,"
  3948. ! $self->{BASEEXT}.exp: Makefile.PL
  3949. ! ",'    $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::Mksymlists; \\
  3950. !     Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
  3951. !     neatvalue($funcs),', "DL_VARS" => ', neatvalue($vars), ');\'
  3952. ! ');
  3953.   
  3954. !     join('',@m);
  3955. ! }
  3956.   
  3957. ! =item dynamic (o)
  3958.   
  3959. ! Defines the dynamic target.
  3960.   
  3961. ! =cut
  3962.   
  3963. ! sub dynamic {
  3964. ! # --- Dynamic Loading Sections ---
  3965.   
  3966. !     my($self) = shift;
  3967. !     '
  3968. ! ## $(INST_PM) has been moved to the all: target.
  3969. ! ## It remains here for awhile to allow for old usage: "make dynamic"
  3970. ! #dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
  3971. ! dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT)
  3972. !     '.$self->{NOECHO}.'$(NOOP)
  3973. ! ';
  3974. ! }
  3975.   
  3976. ! =item dynamic_bs (o)
  3977.   
  3978. ! Defines targets for bootstrap files.
  3979.   
  3980. ! =cut
  3981.   
  3982. ! sub dynamic_bs {
  3983. !     my($self, %attribs) = @_;
  3984. !     return '
  3985. ! BOOTSTRAP =
  3986. ! ' unless $self->has_link_code();
  3987.   
  3988. !     return '
  3989. ! BOOTSTRAP = '."$self->{BASEEXT}.bs".'
  3990.   
  3991. ! # As Mkbootstrap might not write a file (if none is required)
  3992. ! # we use touch to prevent make continually trying to remake it.
  3993. ! # The DynaLoader only reads a non-empty file.
  3994. ! $(BOOTSTRAP): '."$self->{MAKEFILE} $self->{BOOTDEP}".' $(INST_ARCHAUTODIR)/.exists
  3995. !     '.$self->{NOECHO}.'echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  3996. !     '.$self->{NOECHO}.'$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
  3997. !         -e \'use ExtUtils::Mkbootstrap;\' \
  3998. !         -e \'Mkbootstrap("$(BASEEXT)","$(BSLOADLIBS)");\'
  3999. !     '.$self->{NOECHO}.'$(TOUCH) $(BOOTSTRAP)
  4000. !     $(CHMOD) 644 $@
  4001.   
  4002. ! $(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
  4003. !     '."$self->{NOECHO}$self->{RM_RF}".' $(INST_BOOT)
  4004. !     -'.$self->{CP}.' $(BOOTSTRAP) $(INST_BOOT)
  4005. !     $(CHMOD) 644 $@
  4006.   ';
  4007. ! }
  4008.   
  4009. ! =item dynamic_lib (o)
  4010.   
  4011. ! Defines how to produce the *.so (or equivalent) files.
  4012. ! 
  4013. ! =cut
  4014. ! 
  4015. ! sub dynamic_lib {
  4016. !     my($self, %attribs) = @_;
  4017. !     return '' unless $self->needs_linking(); #might be because of a subdir
  4018.   
  4019. !     return '' unless $self->has_link_code;
  4020.   
  4021. !     my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
  4022. !     my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
  4023. !     my($armaybe) = $attribs{ARMAYBE} || $self->{ARMAYBE} || ":";
  4024. !     my($ldfrom) = '$(LDFROM)';
  4025. !     $armaybe = 'ar' if ($^O eq 'dec_osf' and $armaybe eq ':');
  4026. !     my(@m);
  4027. !     push(@m,'
  4028. ! # This section creates the dynamically loadable $(INST_DYNAMIC)
  4029. ! # from $(OBJECT) and possibly $(MYEXTLIB).
  4030. ! ARMAYBE = '.$armaybe.'
  4031. ! OTHERLDFLAGS = '.$otherldflags.'
  4032. ! INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
  4033.   
  4034. ! $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
  4035. ! ');
  4036. !     if ($armaybe ne ':'){
  4037. !     $ldfrom = 'tmp$(LIB_EXT)';
  4038. !     push(@m,'    $(ARMAYBE) cr '.$ldfrom.' $(OBJECT)'."\n");
  4039. !     push(@m,'    $(RANLIB) '."$ldfrom\n");
  4040. !     }
  4041. !     $ldfrom = "-all $ldfrom -none" if ($^O eq 'dec_osf');
  4042. !     push(@m,'    LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
  4043. !         ' $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)');
  4044. !     push @m, '
  4045. !     $(CHMOD) 755 $@
  4046. ! ';
  4047.   
  4048. +     push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
  4049.       join('',@m);
  4050.   }
  4051.   
  4052. ! =item exescan
  4053.   
  4054. ! Deprecated method. Use libscan instead.
  4055.   
  4056.   =cut
  4057.   
  4058. ! sub exescan {
  4059. !     my($self,$path) = @_;
  4060. !     $path;
  4061.   }
  4062.   
  4063. ! =item extliblist
  4064.   
  4065. ! Called by init_others, and calls ext ExtUtils::Liblist. See
  4066. ! L<ExtUtils::Liblist> for details.
  4067.   
  4068.   =cut
  4069.   
  4070. ! sub extliblist {
  4071. !     my($self,$libs) = @_;
  4072. !     require ExtUtils::Liblist;
  4073. !     $self->ext($libs, $Verbose);
  4074. ! }
  4075.   
  4076. ! =item file_name_is_absolute
  4077.   
  4078. ! Takes as argument a path and returns true, it it is an absolute path.
  4079.   
  4080. ! =cut
  4081.   
  4082. ! sub file_name_is_absolute {
  4083. !     my($self,$file) = @_;
  4084. !     $file =~ m:^/: ;
  4085. ! }
  4086.   
  4087. ! =item find_perl
  4088.   
  4089. ! Finds the executables PERL and FULLPERL
  4090.   
  4091. + =cut
  4092.   
  4093. ! sub find_perl {
  4094. !     my($self, $ver, $names, $dirs, $trace) = @_;
  4095. !     my($name, $dir);
  4096. !     if ($trace >= 2){
  4097. !     print "Looking for perl $ver by these names:
  4098. ! @$names
  4099. ! in these dirs:
  4100. ! @$dirs
  4101. ! ";
  4102. !     }
  4103. !     foreach $dir (@$dirs){
  4104. !     next unless defined $dir; # $self->{PERL_SRC} may be undefined
  4105. !     foreach $name (@$names){
  4106. !         my $abs;
  4107. !         if ($self->file_name_is_absolute($name)) { # /foo/bar
  4108. !         $abs = $name;
  4109. !         } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # foo
  4110. !         $abs = $self->catfile($dir, $name);
  4111. !         } else { # foo/bar
  4112. !         $abs = $self->canonpath($self->catfile($self->curdir, $name));
  4113. !         }
  4114. !         print "Checking $abs\n" if ($trace >= 2);
  4115. !         next unless $self->maybe_command($abs);
  4116. !         print "Executing $abs\n" if ($trace >= 2);
  4117. !         if (`$abs -e 'require $ver; print "VER_OK\n" ' 2>&1` =~ /VER_OK/) {
  4118. !             print "Using PERL=$abs\n" if $trace;
  4119. !             return $abs;
  4120.           }
  4121.       }
  4122.       }
  4123. +     print STDOUT "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
  4124. +     0; # false and not empty
  4125. + }
  4126.   
  4127. ! =head2 Methods to actually produce chunks of text for the Makefile
  4128.   
  4129. ! The methods here are called in the order specified by
  4130. ! @ExtUtils::MakeMaker::MM_Sections. This manpage reflects the order as
  4131. ! well as possible. Some methods call each other, so in doubt refer to
  4132. ! the code.
  4133.   
  4134. ! =item force (o)
  4135. ! 
  4136. ! Just writes FORCE:
  4137. ! 
  4138. ! =cut
  4139.   
  4140. + sub force {
  4141. +     my($self) = shift;
  4142. +     '# Phony target to force checking subdirectories.
  4143. + FORCE:
  4144. + ';
  4145.   }
  4146.   
  4147. + =item guess_name
  4148.   
  4149. + Guess the name of this package by examining the working directory's
  4150. + name. MakeMaker calls this only if the developer has not supplied a
  4151. + NAME attribute.
  4152.   
  4153. ! =cut
  4154.   
  4155. ! # ';
  4156. ! 
  4157. ! sub guess_name {
  4158. !     my($self) = @_;
  4159. !     use Cwd 'cwd';
  4160. !     my $name = basename(cwd());
  4161. !     $name =~ s|[\-_][\d\.\-]+$||;   # this is new with MM 5.00, we
  4162. !                                     # strip minus or underline
  4163. !                                     # followed by a float or some such
  4164. !     print "Warning: Guessing NAME [$name] from current directory name.\n";
  4165. !     $name;
  4166. ! }
  4167. ! 
  4168. ! =item has_link_code
  4169. ! 
  4170. ! Returns true if C, XS, MYEXTLIB or similar objects exist within this
  4171. ! object that need a compiler. Does not descend into subdirectories as
  4172. ! needs_linking() does.
  4173.   
  4174.   =cut
  4175.   
  4176. ! sub has_link_code {
  4177. !     my($self) = shift;
  4178. !     return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE};
  4179. !     if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){
  4180. !     $self->{HAS_LINK_CODE} = 1;
  4181. !     return 1;
  4182.       }
  4183. !     return $self->{HAS_LINK_CODE} = 0;
  4184.   }
  4185.   
  4186. ! =item init_dirscan
  4187.   
  4188. ! Initializes DIR, XS, PM, C, O_FILES, H, PL_FILES, MAN*PODS, EXE_FILES.
  4189. ! 
  4190. ! =cut
  4191. ! 
  4192. ! sub init_dirscan {    # --- File and Directory Lists (.xs .pm .pod etc)
  4193. !     my($self) = @_;
  4194. !     my($name, %dir, %xs, %c, %h, %ignore, %pl_files, %manifypods);
  4195. !     local(%pm); #the sub in find() has to see this hash
  4196. !     $ignore{'test.pl'} = 1;
  4197. !     $ignore{'makefile.pl'} = 1 if $Is_VMS;
  4198. !     foreach $name ($self->lsdir($self->curdir)){
  4199. !     next if $name eq $self->curdir or $name eq $self->updir or $ignore{$name};
  4200. !     next unless $self->libscan($name);
  4201. !     if (-d $name){
  4202. !         next if -l $name; # We do not support symlinks at all
  4203. !         $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL"));
  4204. !     } elsif ($name =~ /\.xs$/){
  4205. !         my($c); ($c = $name) =~ s/\.xs$/.c/;
  4206. !         $xs{$name} = $c;
  4207. !         $c{$c} = 1;
  4208. !     } elsif ($name =~ /\.c(pp|xx|c)?$/i){  # .c .C .cpp .cxx .cc
  4209. !         $c{$name} = 1
  4210. !         unless $name =~ m/perlmain\.c/; # See MAP_TARGET
  4211. !     } elsif ($name =~ /\.h$/i){
  4212. !         $h{$name} = 1;
  4213. !     } elsif ($name =~ /\.(p[ml]|pod)$/){
  4214. !         $pm{$name} = $self->catfile('$(INST_LIBDIR)',$name);
  4215. !     } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
  4216. !         ($pl_files{$name} = $name) =~ s/\.PL$// ;
  4217. !     } elsif ($Is_VMS && $name =~ /\.pl$/ && $name ne 'makefile.pl' &&
  4218. !              $name ne 'test.pl') {  # case-insensitive filesystem
  4219. !         ($pl_files{$name} = $name) =~ s/\.pl$// ;
  4220. !     }
  4221. !     }
  4222.   
  4223. !     # Some larger extensions often wish to install a number of *.pm/pl
  4224. !     # files into the library in various locations.
  4225.   
  4226. !     # The attribute PMLIBDIRS holds an array reference which lists
  4227. !     # subdirectories which we should search for library files to
  4228. !     # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ].  We
  4229. !     # recursively search through the named directories (skipping any
  4230. !     # which don't exist or contain Makefile.PL files).
  4231.   
  4232. !     # For each *.pm or *.pl file found $self->libscan() is called with
  4233. !     # the default installation path in $_[1]. The return value of
  4234. !     # libscan defines the actual installation location.  The default
  4235. !     # libscan function simply returns the path.  The file is skipped
  4236. !     # if libscan returns false.
  4237.   
  4238. !     # The default installation location passed to libscan in $_[1] is:
  4239. !     #
  4240. !     #  ./*.pm        => $(INST_LIBDIR)/*.pm
  4241. !     #  ./xyz/...    => $(INST_LIBDIR)/xyz/...
  4242. !     #  ./lib/...    => $(INST_LIB)/...
  4243. !     #
  4244. !     # In this way the 'lib' directory is seen as the root of the actual
  4245. !     # perl library whereas the others are relative to INST_LIBDIR
  4246. !     # (which includes PARENT_NAME). This is a subtle distinction but one
  4247. !     # that's important for nested modules.
  4248.   
  4249. !     $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}]
  4250. !     unless $self->{PMLIBDIRS};
  4251.   
  4252. !     #only existing directories that aren't in $dir are allowed
  4253.   
  4254. !     # Avoid $_ wherever possible:
  4255. !     # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
  4256. !     my (@pmlibdirs) = @{$self->{PMLIBDIRS}};
  4257. !     my ($pmlibdir);
  4258. !     @{$self->{PMLIBDIRS}} = ();
  4259. !     foreach $pmlibdir (@pmlibdirs) {
  4260. !     -d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
  4261.       }
  4262.   
  4263. !     if (@{$self->{PMLIBDIRS}}){
  4264. !     print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
  4265. !         if ($Verbose >= 2);
  4266. !     require File::Find;
  4267. !     File::Find::find(sub {
  4268. !         if (-d $_){
  4269. !         if ($_ eq "CVS" || $_ eq "RCS"){
  4270. !             $File::Find::prune = 1;
  4271. !         }
  4272. !         return;
  4273. !         }
  4274. !         my($path, $prefix) = ($File::Find::name, '$(INST_LIBDIR)');
  4275. !         my($striplibpath,$striplibname);
  4276. !         $prefix =  '$(INST_LIB)' if (($striplibpath = $path) =~ s:^(\W*)lib\W:$1:);
  4277. !         ($striplibname,$striplibpath) = fileparse($striplibpath);
  4278. !         my($inst) = $self->catfile($prefix,$striplibpath,$striplibname);
  4279. !         local($_) = $inst; # for backwards compatibility
  4280. !         $inst = $self->libscan($inst);
  4281. !         print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
  4282. !         return unless $inst;
  4283. !         $pm{$path} = $inst;
  4284. !     }, @{$self->{PMLIBDIRS}});
  4285. !     }
  4286.   
  4287. !     $self->{DIR} = [sort keys %dir] unless $self->{DIR};
  4288. !     $self->{XS}  = \%xs             unless $self->{XS};
  4289. !     $self->{PM}  = \%pm             unless $self->{PM};
  4290. !     $self->{C}   = [sort keys %c]   unless $self->{C};
  4291. !     my(@o_files) = @{$self->{C}};
  4292. !     $self->{O_FILES} = [grep s/\.c(pp|xx|c)?$/$self->{OBJ_EXT}/i, @o_files] ;
  4293. !     $self->{H}   = [sort keys %h]   unless $self->{H};
  4294. !     $self->{PL_FILES} = \%pl_files unless $self->{PL_FILES};
  4295.   
  4296. !     # Set up names of manual pages to generate from pods
  4297. !     if ($self->{MAN1PODS}) {
  4298. !     } elsif ( $self->{INST_MAN1DIR} =~ /^(none|\s*)$/ ) {
  4299. !         $self->{MAN1PODS} = {};
  4300. !     } else {
  4301. !     my %manifypods = ();
  4302. !     if ( exists $self->{EXE_FILES} ) {
  4303. !         foreach $name (@{$self->{EXE_FILES}}) {
  4304. ! #        use FileHandle ();
  4305. ! #        my $fh = new FileHandle;
  4306. !         local *FH;
  4307. !         my($ispod)=0;
  4308. !         # one day test, if $/ can be set to '' safely (is the bug fixed that was in 5.001m?)
  4309. ! #        if ($fh->open("<$name")) {
  4310. !         if (open(FH,"<$name")) {
  4311. ! #            while (<$fh>) {
  4312. !             while (<FH>) {
  4313. !             if (/^=head1\s+\w+/) {
  4314. !                 $ispod=1;
  4315. !                 last;
  4316. !             }
  4317. !             }
  4318. ! #            $fh->close;
  4319. !             close FH;
  4320. !         } else {
  4321. !             # If it doesn't exist yet, we assume, it has pods in it
  4322. !             $ispod = 1;
  4323.           }
  4324. !         if( $ispod ) {
  4325. !             $manifypods{$name} = $self->catfile('$(INST_MAN1DIR)',basename($name).'.$(MAN1EXT)');
  4326.           }
  4327. +         }
  4328.       }
  4329. +     $self->{MAN1PODS} = \%manifypods;
  4330.       }
  4331. !     if ($self->{MAN3PODS}) {
  4332. !     } elsif ( $self->{INST_MAN3DIR} =~ /^(none|\s*)$/ ) {
  4333. !         $self->{MAN3PODS} = {};
  4334.       } else {
  4335. !     my %manifypods = (); # we collect the keys first, i.e. the files
  4336. !                  # we have to convert to pod
  4337. !     foreach $name (keys %{$self->{PM}}) {
  4338. !         if ($name =~ /\.pod$/ ) {
  4339. !         $manifypods{$name} = $self->{PM}{$name};
  4340. !         } elsif ($name =~ /\.p[ml]$/ ) {
  4341. ! #        use FileHandle ();
  4342. ! #        my $fh = new FileHandle;
  4343. !         local *FH;
  4344. !         my($ispod)=0;
  4345. ! #        $fh->open("<$name");
  4346. !         if (open(FH,"<$name")) {
  4347. !             #        while (<$fh>) {
  4348. !             while (<FH>) {
  4349. !             if (/^=head1\s+\w+/) {
  4350. !                 $ispod=1;
  4351. !                 last;
  4352. !             }
  4353. !             }
  4354. !             #        $fh->close;
  4355. !             close FH;
  4356. !         } else {
  4357. !             $ispod = 1;
  4358. !         }
  4359. !         if( $ispod ) {
  4360. !             $manifypods{$name} = $self->{PM}{$name};
  4361. !         }
  4362. !         }
  4363.       }
  4364.   
  4365. !     # Remove "Configure.pm" and similar, if it's not the only pod listed
  4366. !     # To force inclusion, just name it "Configure.pod", or override MAN3PODS
  4367. !     foreach $name (keys %manifypods) {
  4368. !         if ($name =~ /(config|setup).*\.pm/i) {
  4369. !         delete $manifypods{$name};
  4370. !         next;
  4371. !         }
  4372. !         my($manpagename) = $name;
  4373. !         unless ($manpagename =~ s!^\W*lib\W+!!) { # everything below lib is ok
  4374. !         $manpagename = $self->catfile(split(/::/,$self->{PARENT_NAME}),$manpagename);
  4375. !         }
  4376. !         $manpagename =~ s/\.p(od|m|l)$//;
  4377. !         $manpagename = $self->replace_manpage_separator($manpagename);
  4378. !         $manifypods{$name} = $self->catfile("\$(INST_MAN3DIR)","$manpagename.\$(MAN3EXT)");
  4379. !     }
  4380. !     $self->{MAN3PODS} = \%manifypods;
  4381. !     }
  4382. ! }
  4383.   
  4384. ! =item init_main
  4385.   
  4386. ! Initializes NAME, FULLEXT, BASEEXT, PARENT_NAME, DLBASE, PERL_SRC,
  4387. ! PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*,
  4388. ! PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, MAP_TARGET,
  4389. ! LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM.
  4390.   
  4391. ! =cut
  4392.   
  4393. ! sub init_main {
  4394. !     my($self) = @_;
  4395.   
  4396. !     # --- Initialize Module Name and Paths
  4397.   
  4398. !     # NAME    = Foo::Bar::Oracle
  4399. !     # FULLEXT = Foo/Bar/Oracle
  4400. !     # BASEEXT = Oracle
  4401. !     # ROOTEXT = Directory part of FULLEXT with leading /. !!! Deprecated from MM 5.32 !!!
  4402. !     # PARENT_NAME = Foo::Bar
  4403. ! ### Only UNIX:
  4404. ! ###    ($self->{FULLEXT} =
  4405. ! ###     $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket
  4406. !     $self->{FULLEXT} = $self->catdir(split /::/, $self->{NAME});
  4407.   
  4408.   
  4409. !     # Copied from DynaLoader:
  4410.   
  4411. !     my(@modparts) = split(/::/,$self->{NAME});
  4412. !     my($modfname) = $modparts[-1];
  4413.   
  4414. !     # Some systems have restrictions on files names for DLL's etc.
  4415. !     # mod2fname returns appropriate file base name (typically truncated)
  4416. !     # It may also edit @modparts if required.
  4417. !     if (defined &DynaLoader::mod2fname) {
  4418. !         $modfname = &DynaLoader::mod2fname(\@modparts);
  4419. !     } elsif ($Is_OS2) {                # Need manual correction if run with miniperl:-(
  4420. !         $modfname = substr($modfname, 0, 7) . '_';
  4421. !     }
  4422.   
  4423.   
  4424. !     ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!([\w:]+::)?(\w+)$! ;
  4425.   
  4426. !     if (defined &DynaLoader::mod2fname or $Is_OS2) {
  4427. !     # As of 5.001m, dl_os2 appends '_'
  4428. !     $self->{DLBASE} = $modfname;
  4429. !     } else {
  4430. !     $self->{DLBASE} = '$(BASEEXT)';
  4431. !     }
  4432.   
  4433.   
  4434. !     ### ROOTEXT deprecated from MM 5.32
  4435. ! ###    ($self->{ROOTEXT} =
  4436. ! ###     $self->{FULLEXT}) =~ s#/?\Q$self->{BASEEXT}\E$## ;      #eg. /BSD/Foo
  4437. ! ###    $self->{ROOTEXT} = ($Is_VMS ? '' : '/') . $self->{ROOTEXT} if $self->{ROOTEXT};
  4438.   
  4439.   
  4440. !     # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  4441.   
  4442. !     # *Real* information: where did we get these two from? ...
  4443. !     my $inc_config_dir = dirname($INC{'Config.pm'});
  4444. !     my $inc_carp_dir   = dirname($INC{'Carp.pm'});
  4445.   
  4446. !     unless ($self->{PERL_SRC}){
  4447. !     my($dir);
  4448. !     foreach $dir ($self->updir(),$self->catdir($self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir())){
  4449. !         if (
  4450. !         -f $self->catfile($dir,"config.sh")
  4451. !         &&
  4452. !         -f $self->catfile($dir,"perl.h")
  4453. !         &&
  4454. !         -f $self->catfile($dir,"lib","Exporter.pm")
  4455. !            ) {
  4456. !         $self->{PERL_SRC}=$dir ;
  4457. !         last;
  4458. !         }
  4459. !     }
  4460. !     }
  4461. !     if ($self->{PERL_SRC}){
  4462. !     $self->{PERL_LIB}     ||= $self->catdir("$self->{PERL_SRC}","lib");
  4463. !     $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
  4464. !     $self->{PERL_INC}     = $self->{PERL_SRC};
  4465. !     # catch a situation that has occurred a few times in the past:
  4466.   
  4467. !     warn <<EOM unless (-s $self->catfile($self->{PERL_SRC},'cflags') or $Is_VMS && -s $self->catfile($self->{PERL_SRC},'perlshr_attr.opt') or $Is_Mac);
  4468. ! You cannot build extensions below the perl source tree after executing
  4469. ! a 'make clean' in the perl source tree.
  4470.   
  4471. ! To rebuild extensions distributed with the perl source you should
  4472. ! simply Configure (to include those extensions) and then build perl as
  4473. ! normal. After installing perl the source tree can be deleted. It is
  4474. ! not needed for building extensions by running 'perl Makefile.PL'
  4475. ! usually without extra arguments.
  4476.   
  4477. ! It is recommended that you unpack and build additional extensions away
  4478. ! from the perl source tree.
  4479. ! EOM
  4480. !     } else {
  4481. !     # we should also consider $ENV{PERL5LIB} here
  4482. !     $self->{PERL_LIB}     ||= $Config::Config{privlibexp};
  4483. !     $self->{PERL_ARCHLIB} ||= $Config::Config{archlibexp};
  4484. !     $self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
  4485. !     my $perl_h;
  4486. !     die <<EOM unless (-f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")));
  4487. ! Error: Unable to locate installed Perl libraries or Perl source code.
  4488.   
  4489. ! It is recommended that you install perl in a standard location before
  4490. ! building extensions. You can say:
  4491.   
  4492. !     $^X Makefile.PL PERL_SRC=/path/to/perl/source/directory
  4493.   
  4494. ! if you have not yet installed perl but still want to build this
  4495. ! extension now.
  4496. ! (You get this message, because MakeMaker could not find "$perl_h")
  4497. ! EOM
  4498.   
  4499. ! #     print STDOUT "Using header files found in $self->{PERL_INC}\n"
  4500. ! #         if $Verbose && $self->needs_linking();
  4501.   
  4502. !     }
  4503.   
  4504. !     # We get SITELIBEXP and SITEARCHEXP directly via
  4505. !     # Get_from_Config. When we are running standard modules, these
  4506. !     # won't matter, we will set INSTALLDIRS to "perl". Otherwise we
  4507. !     # set it to "site". I prefer that INSTALLDIRS be set from outside
  4508. !     # MakeMaker.
  4509. !     $self->{INSTALLDIRS} ||= "site";
  4510.   
  4511. !     # INST_LIB typically pre-set if building an extension after
  4512. !     # perl has been built and installed. Setting INST_LIB allows
  4513. !     # you to build directly into, say $Config::Config{privlibexp}.
  4514. !     unless ($self->{INST_LIB}){
  4515.   
  4516.   
  4517. !     ##### XXXXX We have to change this nonsense
  4518.   
  4519. !     if (defined $self->{PERL_SRC} and $self->{INSTALLDIRS} eq "perl") {
  4520. !         $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
  4521. !     } else {
  4522. !         $self->{INST_LIB} = $self->catdir($self->curdir,"blib","lib");
  4523. !     }
  4524. !     }
  4525. !     $self->{INST_ARCHLIB} ||= $self->catdir($self->curdir,"blib","arch");
  4526. !     $self->{INST_BIN} ||= $self->catdir($self->curdir,'blib','bin');
  4527.   
  4528. !     # INST_EXE is deprecated, should go away March '97
  4529. !     $self->{INST_EXE} ||= $self->catdir($self->curdir,'blib','script');
  4530. !     $self->{INST_SCRIPT} ||= $self->catdir($self->curdir,'blib','script');
  4531.   
  4532. !     # The user who requests an installation directory explicitly
  4533. !     # should not have to tell us a architecture installation directory
  4534. !     # as well We look if a directory exists that is named after the
  4535. !     # architecture. If not we take it as a sign that it should be the
  4536. !     # same as the requested installation directory. Otherwise we take
  4537. !     # the found one.
  4538. !     # We do the same thing twice: for privlib/archlib and for sitelib/sitearch
  4539. !     my($libpair);
  4540. !     for $libpair ({l=>"privlib", a=>"archlib"}, {l=>"sitelib", a=>"sitearch"}) {
  4541. !     my $lib = "install$libpair->{l}";
  4542. !     my $Lib = uc $lib;
  4543. !     my $Arch = uc "install$libpair->{a}";
  4544. !     if( $self->{$Lib} && ! $self->{$Arch} ){
  4545. !         my($ilib) = $Config{$lib};
  4546. !         $ilib = VMS::Filespec::unixify($ilib) if $Is_VMS;
  4547.   
  4548. !         $self->prefixify($Arch,$ilib,$self->{$Lib});
  4549.   
  4550. !         unless (-d $self->{$Arch}) {
  4551. !         print STDOUT "Directory $self->{$Arch} not found, thusly\n" if $Verbose;
  4552. !         $self->{$Arch} = $self->{$Lib};
  4553. !         }
  4554. !         print STDOUT "Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
  4555. !     }
  4556.       }
  4557. ! 
  4558. !     # we have to look at the relation between $Config{prefix} and the
  4559. !     # requested values. We're going to set the $Config{prefix} part of
  4560. !     # all the installation path variables to literally $(PREFIX), so
  4561. !     # the user can still say make PREFIX=foo
  4562. !     my($prefix) = $Config{'prefix'};
  4563. !     $prefix = VMS::Filespec::unixify($prefix) if $Is_VMS;
  4564. !     unless ($self->{PREFIX}){
  4565. !     $self->{PREFIX} = $prefix;
  4566.       }
  4567. !     my($install_variable);
  4568. !     for $install_variable (qw/
  4569.   
  4570. !                INSTALLPRIVLIB INSTALLARCHLIB INSTALLBIN
  4571. !                INSTALLMAN1DIR INSTALLMAN3DIR INSTALLSCRIPT
  4572. !                INSTALLSITELIB INSTALLSITEARCH
  4573.   
  4574. !                /) {
  4575. !     $self->prefixify($install_variable,$prefix,q[$(PREFIX)]);
  4576. !     }
  4577.   
  4578.   
  4579. !     # Now we head at the manpages. Maybe they DO NOT want manpages
  4580. !     # installed
  4581. !     $self->{INSTALLMAN1DIR} = $Config::Config{installman1dir}
  4582. !     unless defined $self->{INSTALLMAN1DIR};
  4583. !     unless (defined $self->{INST_MAN1DIR}){
  4584. !     if ($self->{INSTALLMAN1DIR} =~ /^(none|\s*)$/){
  4585. !         $self->{INST_MAN1DIR} = $self->{INSTALLMAN1DIR};
  4586. !     } else {
  4587. !         $self->{INST_MAN1DIR} = $self->catdir($self->curdir,'blib','man1');
  4588. !     }
  4589.       }
  4590. !     $self->{MAN1EXT} ||= $Config::Config{man1ext};
  4591. ! 
  4592. !     $self->{INSTALLMAN3DIR} = $Config::Config{installman3dir}
  4593. !     unless defined $self->{INSTALLMAN3DIR};
  4594. !     unless (defined $self->{INST_MAN3DIR}){
  4595. !     if ($self->{INSTALLMAN3DIR} =~ /^(none|\s*)$/){
  4596. !         $self->{INST_MAN3DIR} = $self->{INSTALLMAN3DIR};
  4597. !     } else {
  4598. !         $self->{INST_MAN3DIR} = $self->catdir($self->curdir,'blib','man3');
  4599. !     }
  4600.       }
  4601. !     $self->{MAN3EXT} ||= $Config::Config{man3ext};
  4602.   
  4603.   
  4604. !     # Get some stuff out of %Config if we haven't yet done so
  4605. !     print STDOUT "CONFIG must be an array ref\n"
  4606. !     if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY');
  4607. !     $self->{CONFIG} = [] unless (ref $self->{CONFIG});
  4608. !     push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);
  4609. !     push(@{$self->{CONFIG}}, 'shellflags') if $Config::Config{shellflags};
  4610. !     my(%once_only,$m);
  4611. !     foreach $m (@{$self->{CONFIG}}){
  4612. !     next if $once_only{$m};
  4613. !     print STDOUT "CONFIG key '$m' does not exist in Config.pm\n"
  4614. !         unless exists $Config::Config{$m};
  4615. !     $self->{uc $m} ||= $Config::Config{$m};
  4616. !     $once_only{$m} = 1;
  4617. !     }
  4618.   
  4619. ! # This is too dangerous:
  4620. ! #    if ($^O eq "next") {
  4621. ! #    $self->{AR} = "libtool";
  4622. ! #    $self->{AR_STATIC_ARGS} = "-o";
  4623. ! #    }
  4624. ! # But I leave it as a placeholder
  4625. ! 
  4626. !     $self->{AR_STATIC_ARGS} ||= "cr";
  4627. ! 
  4628. !     # These should never be needed
  4629. !     $self->{LD} ||= 'ld';
  4630. !     $self->{OBJ_EXT} ||= '.o';
  4631. !     $self->{LIB_EXT} ||= '.a';
  4632.   
  4633. !     $self->{MAP_TARGET} ||= "perl";
  4634.   
  4635. !     $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}";
  4636.   
  4637. !     # make a simple check if we find Exporter
  4638. !     warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
  4639. !         (Exporter.pm not found)"
  4640. !     unless -f $self->catfile("$self->{PERL_LIB}","Exporter.pm") ||
  4641. !         $self->{NAME} eq "ExtUtils::MakeMaker";
  4642.   
  4643. !     # Determine VERSION and VERSION_FROM
  4644. !     ($self->{DISTNAME}=$self->{NAME}) =~ s#(::)#-#g unless $self->{DISTNAME};
  4645. !     if ($self->{VERSION_FROM}){
  4646. !     $self->{VERSION} = $self->parse_version($self->{VERSION_FROM}) or
  4647. !         Carp::carp "WARNING: Setting VERSION via file '$self->{VERSION_FROM}' failed\n"
  4648. !     }
  4649.   
  4650. !     # strip blanks
  4651. !     if ($self->{VERSION}) {
  4652. !     $self->{VERSION} =~ s/^\s+//;
  4653. !     $self->{VERSION} =~ s/\s+$//;
  4654.       }
  4655.   
  4656. !     $self->{VERSION} ||= "0.10";
  4657. !     ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
  4658.   
  4659.   
  4660. !     # Graham Barr and Paul Marquess had some ideas how to ensure
  4661. !     # version compatibility between the *.pm file and the
  4662. !     # corresponding *.xs file. The bottomline was, that we need an
  4663. !     # XS_VERSION macro that defaults to VERSION:
  4664. !     $self->{XS_VERSION} ||= $self->{VERSION};
  4665.   
  4666. !     # --- Initialize Perl Binary Locations
  4667. ! 
  4668. !     # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  4669. !     # will be working versions of perl 5. miniperl has priority over perl
  4670. !     # for PERL to ensure that $(PERL) is usable while building ./ext/*
  4671. !     my ($component,@defpath);
  4672. !     foreach $component ($self->{PERL_SRC}, $self->path(), $Config::Config{binexp}) {
  4673. !     push @defpath, $component if defined $component;
  4674.       }
  4675. +     $self->{PERL} =
  4676. +         $self->find_perl(5.0, [ $^X, 'miniperl','perl','perl5',"perl$]" ],
  4677. +         \@defpath, $Verbose ) unless ($self->{PERL});
  4678. +     # don't check if perl is executable, maybe they have decided to
  4679. +     # supply switches with perl
  4680.   
  4681. !     # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  4682. !     ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/perl/i
  4683. !     unless ($self->{FULLPERL});
  4684.   }
  4685.   
  4686. ! =item init_others
  4687.   
  4688. ! Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH,
  4689. ! OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, NOOP, FIRST_MAKEFILE,
  4690. ! MAKEFILE, NOECHO, RM_F, RM_RF, TOUCH, CP, MV, CHMOD, UMASK_NULL
  4691.   
  4692.   =cut
  4693.   
  4694. ! sub init_others {    # --- Initialize Other Attributes
  4695.       my($self) = shift;
  4696.   
  4697. !     # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
  4698. !     # Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
  4699. !     # undefined. In any case we turn it into an anon array:
  4700.   
  4701. !     # May check $Config{libs} too, thus not empty.
  4702. !     $self->{LIBS}=[''] unless $self->{LIBS};
  4703.   
  4704. !     $self->{LIBS}=[$self->{LIBS}] if ref \$self->{LIBS} eq SCALAR;
  4705. !     $self->{LD_RUN_PATH} = "";
  4706. !     my($libs);
  4707. !     foreach $libs ( @{$self->{LIBS}} ){
  4708. !     $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
  4709. !     my(@libs) = $self->extliblist($libs);
  4710. !     if ($libs[0] or $libs[1] or $libs[2]){
  4711. !         # LD_RUN_PATH now computed by ExtUtils::Liblist
  4712. !         ($self->{EXTRALIBS}, $self->{BSLOADLIBS}, $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
  4713. !         last;
  4714. !     }
  4715. !     }
  4716.   
  4717. !     if ( $self->{OBJECT} ) {
  4718. !     $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
  4719. !     } else {
  4720. !     # init_dirscan should have found out, if we have C files
  4721. !     $self->{OBJECT} = "";
  4722. !     $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]};
  4723. !     }
  4724. !     $self->{OBJECT} =~ s/\n+/ \\\n\t/g;
  4725. !     $self->{BOOTDEP}  = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : "";
  4726. !     $self->{PERLMAINCC} ||= '$(CC)';
  4727. !     $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM};
  4728. ! 
  4729. !     # Sanity check: don't define LINKTYPE = dynamic if we're skipping
  4730. !     # the 'dynamic' section of MM.  We don't have this problem with
  4731. !     # 'static', since we either must use it (%Config says we can't
  4732. !     # use dynamic loading) or the caller asked for it explicitly.
  4733. !     if (!$self->{LINKTYPE}) {
  4734. !        $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'}
  4735. !                         ? 'static'
  4736. !                         : ($Config::Config{usedl} ? 'dynamic' : 'static');
  4737. !     };
  4738. ! 
  4739. !     # These get overridden for VMS and maybe some other systems
  4740. !     $self->{NOOP}  ||= "sh -c true";
  4741. !     $self->{FIRST_MAKEFILE} ||= "Makefile";
  4742. !     $self->{MAKEFILE} ||= $self->{FIRST_MAKEFILE};
  4743. !     $self->{MAKE_APERL_FILE} ||= "Makefile.aperl";
  4744. !     $self->{NOECHO} = '@' unless defined $self->{NOECHO};
  4745. !     $self->{RM_F}  ||= "rm -f";
  4746. !     $self->{RM_RF} ||= "rm -rf";
  4747. !     $self->{TOUCH} ||= "touch";
  4748. !     $self->{CP} ||= "cp";
  4749. !     $self->{MV} ||= "mv";
  4750. !     $self->{CHMOD} ||= "chmod";
  4751. !     $self->{UMASK_NULL} ||= "umask 0";
  4752.   }
  4753.   
  4754. ! =item install (o)
  4755.   
  4756. ! Defines the install target.
  4757.   
  4758.   =cut
  4759.   
  4760. ! sub install {
  4761. !     my($self, %attribs) = @_;
  4762. !     my(@m);
  4763.   
  4764. !     push @m, q{
  4765. ! install :: all pure_install doc_install
  4766.   
  4767. ! install_perl :: all pure_perl_install doc_perl_install
  4768.   
  4769. ! install_site :: all pure_site_install doc_site_install
  4770.   
  4771. ! install_ :: install_site
  4772. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  4773.   
  4774. ! pure_install :: pure_$(INSTALLDIRS)_install
  4775.   
  4776. ! doc_install :: doc_$(INSTALLDIRS)_install
  4777. !     }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  4778.   
  4779. ! pure__install : pure_site_install
  4780. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  4781.   
  4782. ! doc__install : doc_site_install
  4783. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  4784.   
  4785. ! pure_perl_install ::
  4786. !     }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  4787. !         read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  4788. !         write }.$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  4789. !         $(INST_LIB) $(INSTALLPRIVLIB) \
  4790. !         $(INST_ARCHLIB) $(INSTALLARCHLIB) \
  4791. !         $(INST_BIN) $(INSTALLBIN) \
  4792. !         $(INST_SCRIPT) $(INSTALLSCRIPT) \
  4793. !         $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
  4794. !         $(INST_MAN3DIR) $(INSTALLMAN3DIR)
  4795. !     }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
  4796. !         }.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{
  4797.   
  4798.   
  4799. ! pure_site_install ::
  4800. !     }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  4801. !         read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
  4802. !         write }.$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
  4803. !         $(INST_LIB) $(INSTALLSITELIB) \
  4804. !         $(INST_ARCHLIB) $(INSTALLSITEARCH) \
  4805. !         $(INST_BIN) $(INSTALLBIN) \
  4806. !         $(INST_SCRIPT) $(INSTALLSCRIPT) \
  4807. !         $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
  4808. !         $(INST_MAN3DIR) $(INSTALLMAN3DIR)
  4809. !     }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
  4810. !         }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
  4811.   
  4812. ! doc_perl_install ::
  4813. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  4814. !         "$(NAME)" \
  4815. !         "installed into" "$(INSTALLPRIVLIB)" \
  4816. !         LINKTYPE "$(LINKTYPE)" \
  4817. !         VERSION "$(VERSION)" \
  4818. !         EXE_FILES "$(EXE_FILES)" \
  4819. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  4820.   
  4821. ! doc_site_install ::
  4822. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  4823. !         "Module $(NAME)" \
  4824. !         "installed into" "$(INSTALLSITELIB)" \
  4825. !         LINKTYPE "$(LINKTYPE)" \
  4826. !         VERSION "$(VERSION)" \
  4827. !         EXE_FILES "$(EXE_FILES)" \
  4828. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  4829.   
  4830. ! };
  4831.   
  4832. !     push @m, q{
  4833. ! uninstall :: uninstall_from_$(INSTALLDIRS)dirs
  4834.   
  4835. ! uninstall_from_perldirs ::
  4836. !     }.$self->{NOECHO}.
  4837. !     q{$(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
  4838.   
  4839. ! uninstall_from_sitedirs ::
  4840. !     }.$self->{NOECHO}.
  4841. !     q{$(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
  4842. ! };
  4843. ! 
  4844. !     join("",@m);
  4845. ! }
  4846. ! 
  4847. ! =item installbin (o)
  4848.   
  4849. ! Defines targets to install EXE_FILES.
  4850.   
  4851. ! =cut
  4852.   
  4853. ! sub installbin {
  4854. !     my($self) = shift;
  4855. !     return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
  4856. !     return "" unless @{$self->{EXE_FILES}};
  4857. !     my(@m, $from, $to, %fromto, @to);
  4858. !     push @m, $self->dir_target(qw[$(INST_SCRIPT)]);
  4859. !     for $from (@{$self->{EXE_FILES}}) {
  4860. !     my($path)= $self->catfile('$(INST_SCRIPT)', basename($from));
  4861. !     local($_) = $path; # for backwards compatibility
  4862. !     $to = $self->libscan($path);
  4863. !     print "libscan($from) => '$to'\n" if ($Verbose >=2);
  4864. !     $fromto{$from}=$to;
  4865.       }
  4866. !     @to   = values %fromto;
  4867. !     push(@m, "
  4868. ! EXE_FILES = @{$self->{EXE_FILES}}
  4869.   
  4870. ! all :: @to
  4871. ! 
  4872. ! realclean ::
  4873. !     $self->{RM_F} @to
  4874. ! ");
  4875. ! 
  4876. !     while (($from,$to) = each %fromto) {
  4877. !     last unless defined $from;
  4878. !     my $todir = dirname($to);
  4879. !     push @m, "
  4880. ! $to: $from $self->{MAKEFILE} $todir/.exists
  4881. !     $self->{NOECHO}$self->{RM_F} $to
  4882. !     $self->{CP} $from $to
  4883. ! ";
  4884.       }
  4885. +     join "", @m;
  4886. + }
  4887.   
  4888. ! =item libscan (o)
  4889.   
  4890. ! Takes a path to a file that is found by init_dirscan and returns false
  4891. ! if we don't want to include this file in the library. Mainly used to
  4892. ! exclude RCS, CVS, and SCCS directories from installation.
  4893.   
  4894. ! =cut
  4895.   
  4896. ! # ';
  4897. ! 
  4898. ! sub libscan {
  4899. !     my($self,$path) = @_;
  4900. !     return '' if $path =~ m:\b(RCS|CVS|SCCS)\b: ;
  4901. !     $path;
  4902.   }
  4903.   
  4904.   =item linkext (o)
  4905. ***************
  4906. *** 1941,1950 ****
  4907.   
  4908.   sub linkext {
  4909.       my($self, %attribs) = @_;
  4910. -     unless (ref $self){
  4911. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  4912. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  4913. -     }
  4914.       # LINKTYPE => static or dynamic or ''
  4915.       my($linktype) = defined $attribs{LINKTYPE} ?
  4916.         $attribs{LINKTYPE} : '$(LINKTYPE)';
  4917. --- 1860,1865 ----
  4918. ***************
  4919. *** 1954,2231 ****
  4920.   ";
  4921.   }
  4922.   
  4923. ! =item dlsyms (o)
  4924.   
  4925. ! Used by AIX and VMS to define DL_FUNCS and DL_VARS and write the *.exp
  4926. ! files.
  4927.   
  4928.   =cut
  4929.   
  4930. ! sub dlsyms {
  4931.       my($self,%attribs) = @_;
  4932. !     unless (ref $self){
  4933. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  4934. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  4935.       }
  4936.   
  4937. !     return '' unless ($^O eq 'aix' && $self->needs_linking() );
  4938.   
  4939. !     my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
  4940. !     my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
  4941.       my(@m);
  4942.   
  4943. !     push(@m,"
  4944. ! dynamic :: $self->{BASEEXT}.exp
  4945.   
  4946. ! ") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
  4947.   
  4948. !     push(@m,"
  4949. ! static :: $self->{BASEEXT}.exp
  4950.   
  4951. ! ") unless $self->{SKIPHASH}{'static'};  # we avoid a warning if we tick them
  4952.   
  4953. !     push(@m,"
  4954. ! $self->{BASEEXT}.exp: Makefile.PL
  4955. ! ",'    $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::Mksymlists; \\
  4956. !     Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
  4957. !     neatvalue($funcs),', "DL_VARS" => ', neatvalue($vars), ');\'
  4958. ! ');
  4959.   
  4960. -     join('',@m);
  4961. - }
  4962.   
  4963. - =item dynamic (o)
  4964.   
  4965. ! Defines the dynamic target.
  4966.   
  4967. - =cut
  4968.   
  4969. ! sub dynamic {
  4970. ! # --- Dynamic Loading Sections ---
  4971.   
  4972. !     my($self) = shift;
  4973. !     unless (ref $self){
  4974. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  4975. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  4976. !     }
  4977. !     '
  4978. ! ## $(INST_PM) has been moved to the all: target.
  4979. ! ## It remains here for awhile to allow for old usage: "make dynamic"
  4980. ! #dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
  4981. ! dynamic :: '.$self->{MAKEFILE}.' $(INST_DYNAMIC) $(INST_BOOT)
  4982. !     '.$self->{NOECHO}.'$(NOOP)
  4983. ! ';
  4984. ! }
  4985.   
  4986. ! =item dynamic_bs (o)
  4987.   
  4988. ! Defines targets for bootstrap files.
  4989.   
  4990. ! =cut
  4991.   
  4992. ! sub dynamic_bs {
  4993. !     my($self, %attribs) = @_;
  4994. !     unless (ref $self){
  4995. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  4996. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  4997.       }
  4998. -     return '
  4999. - BOOTSTRAP =
  5000. - ' unless $self->has_link_code();
  5001.   
  5002. !     return '
  5003. ! BOOTSTRAP = '."$self->{BASEEXT}.bs".'
  5004.   
  5005. ! # As Mkbootstrap might not write a file (if none is required)
  5006. ! # we use touch to prevent make continually trying to remake it.
  5007. ! # The DynaLoader only reads a non-empty file.
  5008. ! $(BOOTSTRAP): '."$self->{MAKEFILE} $self->{BOOTDEP}".' $(INST_ARCHAUTODIR)/.exists
  5009. !     '.$self->{NOECHO}.'echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  5010. !     '.$self->{NOECHO}.'$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
  5011. !         -e \'use ExtUtils::Mkbootstrap;\' \
  5012. !         -e \'Mkbootstrap("$(BASEEXT)","$(BSLOADLIBS)");\'
  5013. !     '.$self->{NOECHO}.'$(TOUCH) $(BOOTSTRAP)
  5014. !     $(CHMOD) 644 $@
  5015.   
  5016. ! $(INST_BOOT): $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
  5017. !     '."$self->{NOECHO}$self->{RM_RF}".' $(INST_BOOT)
  5018. !     -'.$self->{CP}.' $(BOOTSTRAP) $(INST_BOOT)
  5019. !     $(CHMOD) 644 $@
  5020. ! ';
  5021. ! }
  5022.   
  5023. ! =item dynamic_lib (o)
  5024.   
  5025. ! Defines how to produce the *.so (or equivalent) files.
  5026.   
  5027. ! =cut
  5028.   
  5029. ! sub dynamic_lib {
  5030. !     my($self, %attribs) = @_;
  5031. !     unless (ref $self){
  5032. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5033. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5034.       }
  5035. -     return '' unless $self->needs_linking(); #might be because of a subdir
  5036.   
  5037. !     return '' unless $self->has_link_code;
  5038.   
  5039. !     my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
  5040. !     my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
  5041. !     my($armaybe) = $attribs{ARMAYBE} || $self->{ARMAYBE} || ":";
  5042. !     my($ldfrom) = '$(LDFROM)';
  5043. !     $armaybe = 'ar' if ($^O eq 'dec_osf' and $armaybe eq ':');
  5044. !     my(@m);
  5045. !     push(@m,'
  5046. ! # This section creates the dynamically loadable $(INST_DYNAMIC)
  5047. ! # from $(OBJECT) and possibly $(MYEXTLIB).
  5048. ! ARMAYBE = '.$armaybe.'
  5049. ! OTHERLDFLAGS = '.$otherldflags.'
  5050. ! INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
  5051.   
  5052. ! $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
  5053. ! ');
  5054. !     if ($armaybe ne ':'){
  5055. !     $ldfrom = 'tmp$(LIB_EXT)';
  5056. !     push(@m,'    $(ARMAYBE) cr '.$ldfrom.' $(OBJECT)'."\n");
  5057. !     push(@m,'    $(RANLIB) '."$ldfrom\n");
  5058. !     }
  5059. !     $ldfrom = "-all $ldfrom -none" if ($^O eq 'dec_osf');
  5060. !     push(@m,'    LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
  5061. !         ' $(OTHERLDFLAGS) $(MYEXTLIB) $(LDLOADLIBS) $(EXPORT_LIST) $(PERL_ARCHIVE)');
  5062. !     push @m, '
  5063. !     $(CHMOD) 755 $@
  5064. ! ';
  5065.   
  5066. !     push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
  5067. !     join('',@m);
  5068. ! }
  5069.   
  5070. ! =item static (o)
  5071.   
  5072. ! Defines the static target.
  5073.   
  5074. ! =cut
  5075.   
  5076. ! sub static {
  5077. ! # --- Static Loading Sections ---
  5078.   
  5079. !     my($self) = shift;
  5080. !     unless (ref $self){
  5081. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5082. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5083. !     }
  5084. !     '
  5085. ! ## $(INST_PM) has been moved to the all: target.
  5086. ! ## It remains here for awhile to allow for old usage: "make static"
  5087. ! #static :: '.$self->{MAKEFILE}.' $(INST_STATIC) $(INST_PM)
  5088. ! static :: '.$self->{MAKEFILE}.' $(INST_STATIC)
  5089. !     '.$self->{NOECHO}.'$(NOOP)
  5090. ! ';
  5091.   }
  5092.   
  5093. ! =item static_lib (o)
  5094.   
  5095. ! Defines how to produce the *.a (or equivalent) files.
  5096.   
  5097.   =cut
  5098.   
  5099. ! sub static_lib {
  5100. !     my($self) = @_;
  5101. !     unless (ref $self){
  5102. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5103. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5104. !     }
  5105. ! # Come to think of it, if there are subdirs with linkcode, we still have no INST_STATIC
  5106. ! #    return '' unless $self->needs_linking(); #might be because of a subdir
  5107. ! 
  5108. !     return '' unless $self->has_link_code;
  5109.   
  5110. !     my(@m);
  5111. !     push(@m, <<'END');
  5112. ! $(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
  5113. ! END
  5114. !     # If this extension has it's own library (eg SDBM_File)
  5115. !     # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
  5116. !     push(@m, "\t$self->{CP} \$(MYEXTLIB) \$\@\n") if $self->{MYEXTLIB};
  5117.   
  5118. !     push @m,
  5119. ! q{    $(AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
  5120. !     }.$self->{NOECHO}.q{echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
  5121. !     $(CHMOD) 755 $@
  5122.   };
  5123.   
  5124. ! # Old mechanism - still available:
  5125. ! 
  5126. !     push @m, "\t$self->{NOECHO}".q{echo "$(EXTRALIBS)" >> $(PERL_SRC)/ext.libs}."\n\n"
  5127. !     if $self->{PERL_SRC};
  5128. ! 
  5129. !     push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
  5130. !     join('', "\n",@m);
  5131.   }
  5132.   
  5133. - # =item installpm
  5134. - #
  5135. - # Cares for copying and autosplitting the files in PM (which may be more
  5136. - # than just *.pm files) into the INST_* directories.
  5137. - #
  5138. - # =cut
  5139. - #
  5140. - # sub installpm {
  5141. - #     my($self, %attribs) = @_;
  5142. - #     unless (ref $self){
  5143. - #       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5144. - #       $self = $ExtUtils::MakeMaker::Parent[-1];
  5145. - #     }
  5146. - #     # By default .pm files are split into the architecture independent
  5147. - #     # library. This is a good thing. If a specific module requires that
  5148. - #     # its .pm files are split into the architecture specific library
  5149. - #     # then it should use: installpm => {SPLITLIB=>'$(INST_ARCHLIB)'}
  5150. - #     # Note that installperl currently interferes with this (Config.pm)
  5151. - #     # User can disable split by saying: installpm => {SPLITLIB=>''}
  5152. - #     my($splitlib) = '$(INST_LIB)'; # NOT arch specific by default
  5153. - #     $splitlib = $attribs{SPLITLIB} if exists $attribs{SPLITLIB};
  5154. - #     my(@m, $dist);
  5155. - #     push @m, "inst_pm :: \$(INST_PM)\n\n";
  5156. - #     foreach $dist (sort keys %{$self->{PM}}){
  5157. - #       my($inst) = $self->{PM}->{$dist};
  5158. - #       push(@m, "\n# installpm: $dist => $inst, splitlib=$splitlib\n");
  5159. - #       push(@m, $self->installpm_x($dist, $inst, $splitlib));
  5160. - #       push(@m, "\n");
  5161. - #     }
  5162. - #     join('', @m);
  5163. - # }
  5164. - #
  5165. - # =item installpm_x
  5166. - #
  5167. - # Helper subroutine to installpm.
  5168. - #
  5169. - # =cut
  5170. - #
  5171. - # sub installpm_x { # called by installpm per file
  5172. - #     my($self, $dist, $inst, $splitlib) = @_;
  5173. - #     unless (ref $self){
  5174. - #       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5175. - #       $self = $ExtUtils::MakeMaker::Parent[-1];
  5176. - #     }
  5177. - #     if ($inst =~ m,[:\#],){
  5178. - #       warn "Warning: 'make' would have problems processing this file: '$inst', SKIPPED\n";
  5179. - #       return '';
  5180. - #     }
  5181. - #     my($instdir) = $inst =~ m|(.*)/|;
  5182. - #     my(@m);
  5183. - #     push(@m,"
  5184. - # $inst: $dist $self->{FIRST_MAKEFILE} $instdir/.exists \$(INST_ARCHAUTODIR)/.exists
  5185. - #       $self->{NOECHO}$self->{RM_F}".' $@
  5186. - #       $(UMASK_NULL) && '."$self->{CP} $dist".' $@
  5187. - # ');
  5188. - #     push(@m, "\t$self->{NOECHO}\$(AUTOSPLITFILE) \$@ $splitlib/auto\n")
  5189. - #       if ($splitlib and $inst =~ m/\.pm$/);
  5190. - #
  5191. - #     push @m, $self->dir_target($instdir);
  5192. - #     join('', @m);
  5193. - # }
  5194. - 
  5195.   =item manifypods (o)
  5196.   
  5197.   Defines targets and routines to translate the pods into manpages and
  5198. --- 1869,2165 ----
  5199.   ";
  5200.   }
  5201.   
  5202. ! =item lsdir
  5203.   
  5204. ! Takes as arguments a directory name and a regular expression. Returns
  5205. ! all entries in the directory that match the regular expression.
  5206.   
  5207.   =cut
  5208.   
  5209. ! sub lsdir {
  5210. !     my($self) = shift;
  5211. !     my($dir, $regex) = @_;
  5212. !     my(@ls);
  5213. !     my $dh = new DirHandle;
  5214. !     $dh->open($dir || ".") or return ();
  5215. !     @ls = $dh->read;
  5216. !     $dh->close;
  5217. !     @ls = grep(/$regex/, @ls) if $regex;
  5218. !     @ls;
  5219. ! }
  5220. ! 
  5221. ! =item macro (o)
  5222. ! 
  5223. ! Simple subroutine to insert the macros defined by the macro attribute
  5224. ! into the Makefile.
  5225. ! 
  5226. ! =cut
  5227. ! 
  5228. ! sub macro {
  5229.       my($self,%attribs) = @_;
  5230. !     my(@m,$key,$val);
  5231. !     while (($key,$val) = each %attribs){
  5232. !     last unless defined $key;
  5233. !     push @m, "$key = $val\n";
  5234.       }
  5235. +     join "", @m;
  5236. + }
  5237.   
  5238. ! =item makeaperl (o)
  5239.   
  5240. ! Called by staticmake. Defines how to write the Makefile to produce a
  5241. ! static new perl.
  5242. ! 
  5243. ! =cut
  5244. ! 
  5245. ! sub makeaperl {
  5246. !     my($self, %attribs) = @_;
  5247. !     my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
  5248. !     @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
  5249.       my(@m);
  5250. +     push @m, "
  5251. + # --- MakeMaker makeaperl section ---
  5252. + MAP_TARGET    = $target
  5253. + FULLPERL      = $self->{FULLPERL}
  5254. + ";
  5255. +     return join '', @m if $self->{PARENT};
  5256.   
  5257. !     my($dir) = join ":", @{$self->{DIR}};
  5258.   
  5259. !     unless ($self->{MAKEAPERL}) {
  5260. !     push @m, q{
  5261. ! $(MAP_TARGET) :: static $(MAKE_APERL_FILE)
  5262. !     $(MAKE) -f $(MAKE_APERL_FILE) $@
  5263.   
  5264. ! $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
  5265. !     }.$self->{NOECHO}.q{echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
  5266. !     }.$self->{NOECHO}.q{$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
  5267. !         Makefile.PL DIR=}, $dir, q{ \
  5268. !         MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
  5269. !         MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
  5270.   
  5271. !     foreach (@ARGV){
  5272. !         if( /\s/ ){
  5273. !             s/=(.*)/='$1'/;
  5274. !         }
  5275. !         push @m, " \\\n\t\t$_";
  5276. !     }
  5277. ! #    push @m, map( " \\\n\t\t$_", @ARGV );
  5278. !     push @m, "\n";
  5279.   
  5280. !     return join '', @m;
  5281. !     }
  5282.   
  5283.   
  5284.   
  5285. !     my($cccmd, $linkcmd, $lperl);
  5286.   
  5287.   
  5288. !     $cccmd = $self->const_cccmd($libperl);
  5289. !     $cccmd =~ s/^CCCMD\s*=\s*//;
  5290. !     $cccmd =~ s/\$\(INC\)/ -I$self->{PERL_INC} /;
  5291. !     $cccmd .= " $Config::Config{cccdlflags}" if ($Config::Config{d_shrplib});
  5292. !     $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
  5293.   
  5294. !     # The front matter of the linkcommand...
  5295. !     $linkcmd = join ' ', "\$(CC)",
  5296. !         grep($_, @Config{qw(large split ldflags ccdlflags)});
  5297. !     $linkcmd =~ s/\s+/ /g;
  5298.   
  5299. !     # Which *.a files could we make use of...
  5300. !     local(%static);
  5301. !     require File::Find;
  5302. !     File::Find::find(sub {
  5303. !     return unless m/\Q$self->{LIB_EXT}\E$/;
  5304. !     return if m/^libperl/;
  5305.   
  5306. !     if( exists $self->{INCLUDE_EXT} ){
  5307. !         my $found = 0;
  5308. !         my $incl;
  5309. !         my $xx;
  5310. ! 
  5311. !         ($xx = $File::Find::name) =~ s,.*?/auto/,,;
  5312. !         $xx =~ s,/?$_,,;
  5313. !         $xx =~ s,/,::,g;
  5314. ! 
  5315. !         # Throw away anything not explicitly marked for inclusion.
  5316. !         # DynaLoader is implied.
  5317. !         foreach $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
  5318. !             if( $xx eq $incl ){
  5319. !                 $found++;
  5320. !                 last;
  5321. !             }
  5322. !         }
  5323. !         return unless $found;
  5324. !     }
  5325. !     elsif( exists $self->{EXCLUDE_EXT} ){
  5326. !         my $excl;
  5327. !         my $xx;
  5328. ! 
  5329. !         ($xx = $File::Find::name) =~ s,.*?/auto/,,;
  5330. !         $xx =~ s,/?$_,,;
  5331. !         $xx =~ s,/,::,g;
  5332. ! 
  5333. !         # Throw away anything explicitly marked for exclusion
  5334. !         foreach $excl (@{$self->{EXCLUDE_EXT}}){
  5335. !             return if( $xx eq $excl );
  5336. !         }
  5337. !     }
  5338.   
  5339. !     # don't include the installed version of this extension. I
  5340. !     # leave this line here, although it is not necessary anymore:
  5341. !     # I patched minimod.PL instead, so that Miniperl.pm won't
  5342. !     # enclude duplicates
  5343.   
  5344. !     # Once the patch to minimod.PL is in the distribution, I can
  5345. !     # drop it
  5346. !     return if $File::Find::name =~ m:auto/$self->{FULLEXT}/$self->{BASEEXT}$self->{LIB_EXT}$:;
  5347. !     use Cwd 'cwd';
  5348. !     $static{cwd() . "/" . $_}++;
  5349. !     }, grep( -d $_, @{$searchdirs || []}) );
  5350. ! 
  5351. !     # We trust that what has been handed in as argument, will be buildable
  5352. !     $static = [] unless $static;
  5353. !     @static{@{$static}} = (1) x @{$static};
  5354. ! 
  5355. !     $extra = [] unless $extra && ref $extra eq 'ARRAY';
  5356. !     for (sort keys %static) {
  5357. !     next unless /\Q$self->{LIB_EXT}\E$/;
  5358. !     $_ = dirname($_) . "/extralibs.ld";
  5359. !     push @$extra, $_;
  5360.       }
  5361.   
  5362. !     grep(s/^/-I/, @{$perlinc || []});
  5363.   
  5364. !     $target = "perl" unless $target;
  5365. !     $tmp = "." unless $tmp;
  5366.   
  5367. ! # MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
  5368. ! # regenerate the Makefiles, MAP_STATIC and the dependencies for
  5369. ! # extralibs.all are computed correctly
  5370. !     push @m, "
  5371. ! MAP_LINKCMD   = $linkcmd
  5372. ! MAP_PERLINC   = @{$perlinc || []}
  5373. ! MAP_STATIC    = ",
  5374. ! join(" \\\n\t", reverse sort keys %static), "
  5375.   
  5376. ! MAP_PRELIBS   = $Config::Config{libs} $Config::Config{cryptlib}
  5377. ! ";
  5378. ! 
  5379. !     if (defined $libperl) {
  5380. !     ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
  5381. !     }
  5382. !     unless ($libperl && -f $lperl) { # Ilya's code...
  5383. !     my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
  5384. !     $libperl ||= "libperl$self->{LIB_EXT}";
  5385. !     $libperl   = "$dir/$libperl";
  5386. !     $lperl   ||= "libperl$self->{LIB_EXT}";
  5387. !     $lperl     = "$dir/$lperl";
  5388. !     print STDOUT "Warning: $libperl not found
  5389. !     If you're going to build a static perl binary, make sure perl is installed
  5390. !     otherwise ignore this warning\n"
  5391. !         unless (-f $lperl || defined($self->{PERL_SRC}));
  5392. !     }
  5393.   
  5394. !     push @m, "
  5395. ! MAP_LIBPERL = $libperl
  5396. ! ";
  5397.   
  5398. !     push @m, "
  5399. ! \$(INST_ARCHAUTODIR)/extralibs.all: \$(INST_ARCHAUTODIR)/.exists ".join(" \\\n\t", @$extra)."
  5400. !     $self->{NOECHO}$self->{RM_F} \$\@
  5401. !     $self->{NOECHO}\$(TOUCH) \$\@
  5402. ! ";
  5403.   
  5404. !     my $catfile;
  5405. !     foreach $catfile (@$extra){
  5406. !     push @m, "\tcat $catfile >> \$\@\n";
  5407.       }
  5408.   
  5409. !     push @m, "
  5410. ! \$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
  5411. !     \$(MAP_LINKCMD) -o \$\@ \$(OPTIMIZE) $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
  5412. !     $self->{NOECHO}echo 'To install the new \"\$(MAP_TARGET)\" binary, call'
  5413. !     $self->{NOECHO}echo '    make -f $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
  5414. !     $self->{NOECHO}echo 'To remove the intermediate files say'
  5415. !     $self->{NOECHO}echo '    make -f $makefilename map_clean'
  5416.   
  5417. ! $tmp/perlmain\$(OBJ_EXT): $tmp/perlmain.c
  5418. ! ";
  5419. !     push @m, "\tcd $tmp && $cccmd -I\$(PERL_INC) perlmain.c\n";
  5420.   
  5421. !     push @m, qq{
  5422. ! $tmp/perlmain.c: $makefilename}, q{
  5423. !     }.$self->{NOECHO}.q{echo Writing $@
  5424. !     }.$self->{NOECHO}.q{$(PERL) $(MAP_PERLINC) -e 'use ExtUtils::Miniperl; \\
  5425. !         writemain(grep s#.*/auto/##, qw|$(MAP_STATIC)|)' > $@.tmp && mv $@.tmp $@
  5426.   
  5427. ! };
  5428.   
  5429. !     push @m, q{
  5430. ! doc_inst_perl:
  5431. !     }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  5432. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  5433. !         "Perl binary $(MAP_TARGET)" \
  5434. !         MAP_STATIC "$(MAP_STATIC)" \
  5435. !         MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
  5436. !         MAP_LIBPERL "$(MAP_LIBPERL)" \
  5437. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  5438.   
  5439. ! };
  5440.   
  5441. !     push @m, q{
  5442. ! inst_perl: pure_inst_perl doc_inst_perl
  5443.   
  5444. ! pure_inst_perl: $(MAP_TARGET)
  5445. !     }.$self->{CP}.q{ $(MAP_TARGET) }.$self->catfile('$(INSTALLBIN)','$(MAP_TARGET)').q{
  5446.   
  5447. ! clean :: map_clean
  5448. ! 
  5449. ! map_clean :
  5450. !     }.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
  5451. ! };
  5452. ! 
  5453. !     join '', @m;
  5454.   }
  5455.   
  5456. ! =item makefile (o)
  5457.   
  5458. ! Defines how to rewrite the Makefile.
  5459.   
  5460.   =cut
  5461.   
  5462. ! sub makefile {
  5463. !     my($self) = shift;
  5464. !     my @m;
  5465. !     # We do not know what target was originally specified so we
  5466. !     # must force a manual rerun to be sure. But as it should only
  5467. !     # happen very rarely it is not a significant problem.
  5468. !     push @m, '
  5469. ! $(OBJECT) : $(FIRST_MAKEFILE)
  5470. ! ' if $self->{OBJECT};
  5471.   
  5472. !     push @m, q{
  5473. ! # We take a very conservative approach here, but it\'s worth it.
  5474. ! # We move Makefile to Makefile.old here to avoid gnu make looping.
  5475. ! }.$self->{MAKEFILE}.q{ : Makefile.PL $(CONFIGDEP)
  5476. !     }.$self->{NOECHO}.q{echo "Makefile out-of-date with respect to $?"
  5477. !     }.$self->{NOECHO}.q{echo "Cleaning current config before rebuilding Makefile..."
  5478. !     -}.$self->{NOECHO}.q{mv }."$self->{MAKEFILE} $self->{MAKEFILE}.old".q{
  5479. !     -$(MAKE) -f }.$self->{MAKEFILE}.q{.old clean >/dev/null 2>&1 || true
  5480. !     $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL }.join(" ",map(qq["$_"],@ARGV)).q{
  5481. !     }.$self->{NOECHO}.q{echo ">>> Your Makefile has been rebuilt. <<<"
  5482. !     }.$self->{NOECHO}.q{echo ">>> Please rerun the make command.  <<<"; false
  5483.   
  5484. ! # To change behavior to :: would be nice, but would break Tk b9.02
  5485. ! # so you find such a warning below the dist target.
  5486. ! #}.$self->{MAKEFILE}.q{ :: $(VERSION_FROM)
  5487. ! #    }.$self->{NOECHO}.q{echo "Warning: Makefile possibly out of date with $(VERSION_FROM)"
  5488.   };
  5489.   
  5490. !     join "", @m;
  5491.   }
  5492.   
  5493.   =item manifypods (o)
  5494.   
  5495.   Defines targets and routines to translate the pods into manpages and
  5496. ***************
  5497. *** 2235,2251 ****
  5498.   
  5499.   sub manifypods {
  5500.       my($self, %attribs) = @_;
  5501. !     unless (ref $self){
  5502. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5503. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5504. !     }
  5505. !     return "\nmanifypods :\n" unless %{$self->{MAN3PODS}};
  5506.       my($dist);
  5507.       my($pod2man_exe);
  5508.       if (defined $self->{PERL_SRC}) {
  5509.       $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man');
  5510.       } else {
  5511. !     $pod2man_exe = $self->catfile($Config{bin},'pod2man');
  5512.       }
  5513.       unless ($self->perl_script($pod2man_exe)) {
  5514.       # No pod2man but some MAN3PODS to be installed
  5515. --- 2169,2181 ----
  5516.   
  5517.   sub manifypods {
  5518.       my($self, %attribs) = @_;
  5519. !     return "\nmanifypods :\n\t$self->{NOECHO}\$(NOOP)\n" unless %{$self->{MAN3PODS}} or %{$self->{MAN1PODS}};
  5520.       my($dist);
  5521.       my($pod2man_exe);
  5522.       if (defined $self->{PERL_SRC}) {
  5523.       $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man');
  5524.       } else {
  5525. !     $pod2man_exe = $self->catfile($Config{scriptdirexp},'pod2man');
  5526.       }
  5527.       unless ($self->perl_script($pod2man_exe)) {
  5528.       # No pod2man but some MAN3PODS to be installed
  5529. ***************
  5530. *** 2263,2835 ****
  5531.   q[POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \\
  5532.   -e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "].$self->{MAKEFILE}.q[";' \\
  5533.   -e 'print "Manifying $$m{$$_}\n";' \\
  5534. ! -e 'system("$$^X \\"-I$(PERL_ARCHLIB)\\" \\"-I$(PERL_LIB)\\" $(POD2MAN_EXE) $$_>$$m{$$_}")==0 or warn "Couldn\\047t install $$m{$$_}\n";' \\
  5535.   -e 'chmod 0644, $$m{$$_} or warn "chmod 644 $$m{$$_}: $$!\n";}'
  5536.   ];
  5537.       push @m, "\nmanifypods : ";
  5538.       push @m, join " \\\n\t", keys %{$self->{MAN1PODS}}, keys %{$self->{MAN3PODS}};
  5539. ! 
  5540. !     push(@m,"\n");
  5541. !     if (%{$self->{MAN1PODS}} || %{$self->{MAN3PODS}}) {
  5542. !     push @m, "\t$self->{NOECHO}\$(POD2MAN) \\\n\t";
  5543. !     push @m, join " \\\n\t", %{$self->{MAN1PODS}}, %{$self->{MAN3PODS}};
  5544. !     }
  5545. !     join('', @m);
  5546. ! }
  5547. ! 
  5548. ! =item processPL (o)
  5549. ! 
  5550. ! Defines targets to run *.PL files.
  5551. ! 
  5552. ! =cut
  5553. ! 
  5554. ! sub processPL {
  5555. !     my($self) = shift;
  5556. !     unless (ref $self){
  5557. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5558. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5559. !     }
  5560. !     return "" unless $self->{PL_FILES};
  5561. !     my(@m, $plfile);
  5562. !     foreach $plfile (sort keys %{$self->{PL_FILES}}) {
  5563. !     push @m, "
  5564. ! all :: $self->{PL_FILES}->{$plfile}
  5565. ! 
  5566. ! $self->{PL_FILES}->{$plfile} :: $plfile
  5567. !     \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) $plfile
  5568. ! ";
  5569. !     }
  5570. !     join "", @m;
  5571. ! }
  5572. ! 
  5573. ! =item installbin (o)
  5574. ! 
  5575. ! Defines targets to install EXE_FILES.
  5576. ! 
  5577. ! =cut
  5578. ! 
  5579. ! sub installbin {
  5580. !     my($self) = shift;
  5581. !     return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
  5582. !     return "" unless @{$self->{EXE_FILES}};
  5583. !     my(@m, $from, $to, %fromto, @to);
  5584. !     push @m, $self->dir_target(qw[$(INST_EXE)]);
  5585. !     for $from (@{$self->{EXE_FILES}}) {
  5586. !     my($path)= '$(INST_EXE)/' . basename($from);
  5587. !     local($_) = $path; # for backwards compatibility
  5588. !     $to = $self->libscan($path);
  5589. !     print "libscan($from) => '$to'\n" if ($Verbose >=2);
  5590. !     $fromto{$from}=$to;
  5591. !     }
  5592. !     @to   = values %fromto;
  5593. !     push(@m, "
  5594. ! EXE_FILES = @{$self->{EXE_FILES}}
  5595. ! 
  5596. ! all :: @to
  5597. ! 
  5598. ! realclean ::
  5599. !     $self->{RM_F} @to
  5600. ! ");
  5601. ! 
  5602. !     while (($from,$to) = each %fromto) {
  5603. !     last unless defined $from;
  5604. !     my $todir = dirname($to);
  5605. !     push @m, "
  5606. ! $to: $from $self->{MAKEFILE} $todir/.exists
  5607. !     $self->{NOECHO}$self->{RM_F} $to
  5608. !     $self->{CP} $from $to
  5609. ! ";
  5610. !     }
  5611. !     join "", @m;
  5612. ! }
  5613. ! 
  5614. ! =item subdirs (o)
  5615. ! 
  5616. ! Defines targets to process subdirectories.
  5617. ! 
  5618. ! =cut
  5619. ! 
  5620. ! sub subdirs {
  5621. ! # --- Sub-directory Sections ---
  5622. !     my($self) = shift;
  5623. !     unless (ref $self){
  5624. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5625. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5626. !     }
  5627. !     my(@m,$dir);
  5628. !     # This method provides a mechanism to automatically deal with
  5629. !     # subdirectories containing further Makefile.PL scripts.
  5630. !     # It calls the subdir_x() method for each subdirectory.
  5631. !     foreach $dir (@{$self->{DIR}}){
  5632. !     push(@m, $self->subdir_x($dir));
  5633. ! ####    print "Including $dir subdirectory\n";
  5634. !     }
  5635. !     if (@m){
  5636. !     unshift(@m, "
  5637. ! # The default clean, realclean and test targets in this Makefile
  5638. ! # have automatically been given entries for each subdir.
  5639. ! 
  5640. ! ");
  5641. !     } else {
  5642. !     push(@m, "\n# none")
  5643.       }
  5644. !     join('',@m);
  5645.   }
  5646.   
  5647. ! =item subdir_x (o)
  5648.   
  5649. ! Helper subroutine for subdirs
  5650.   
  5651.   =cut
  5652.   
  5653. ! sub subdir_x {
  5654. !     my($self, $subdir) = @_;
  5655. !     unless (ref $self){
  5656. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5657. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5658. !     }
  5659. !     my(@m);
  5660. !     qq{
  5661. ! 
  5662. ! subdirs ::
  5663. !     $self->{NOECHO}-cd $subdir && \$(MAKE) all \$(PASTHRU)
  5664. ! 
  5665. ! };
  5666.   }
  5667.   
  5668. ! =item clean (o)
  5669.   
  5670. ! Defines the clean target.
  5671.   
  5672.   =cut
  5673.   
  5674. ! sub clean {
  5675. ! # --- Cleanup and Distribution Sections ---
  5676. ! 
  5677. !     my($self, %attribs) = @_;
  5678. !     unless (ref $self){
  5679. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5680. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5681. !     }
  5682. !     my(@m,$dir);
  5683. !     push(@m, '
  5684. ! # Delete temporary files but do not touch installed files. We don\'t delete
  5685. ! # the Makefile here so a later make realclean still has a makefile to use.
  5686. ! 
  5687. ! clean ::
  5688. ! ');
  5689. !     # clean subdirectories first
  5690. !     for $dir (@{$self->{DIR}}) {
  5691. !     push @m, "\t-cd $dir && test -f $self->{MAKEFILE} && \$(MAKE) clean\n";
  5692.       }
  5693. - 
  5694. -     my(@otherfiles) = values %{$self->{XS}}; # .c files from *.xs files
  5695. -     push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
  5696. -     push(@otherfiles, qw[./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all
  5697. -              perlmain.c mon.out core so_locations pm_to_blib
  5698. -              *~ */*~ */*/*~ *$(OBJ_EXT) *$(LIB_EXT) perl.exe
  5699. -              $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def
  5700. -              $(BASEEXT).exp
  5701. -             ]);
  5702. -     push @m, "\t-$self->{RM_RF} @otherfiles\n";
  5703. -     # See realclean and ext/utils/make_ext for usage of Makefile.old
  5704. -     push(@m,
  5705. -      "\t-$self->{MV} $self->{MAKEFILE} $self->{MAKEFILE}.old 2>/dev/null\n");
  5706. -     push(@m,
  5707. -      "\t$attribs{POSTOP}\n")   if $attribs{POSTOP};
  5708. -     join("", @m);
  5709.   }
  5710.   
  5711. ! =item realclean (o)
  5712.   
  5713. ! Defines the realclean target.
  5714.   
  5715.   =cut
  5716.   
  5717. ! sub realclean {
  5718. !     my($self, %attribs) = @_;
  5719. !     unless (ref $self){
  5720. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5721. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5722.       }
  5723. !     my(@m);
  5724. !     push(@m,'
  5725. ! # Delete temporary files (via clean) and also delete installed files
  5726. ! realclean purge ::  clean
  5727. ! ');
  5728. !     # realclean subdirectories first (already cleaned)
  5729. !     my $sub = "\t-cd %s && test -f %s && \$(MAKE) %s realclean\n";
  5730. !     foreach(@{$self->{DIR}}){
  5731. !     push(@m, sprintf($sub,$_,"$self->{MAKEFILE}.old","-f $self->{MAKEFILE}.old"));
  5732. !     push(@m, sprintf($sub,$_,"$self->{MAKEFILE}",''));
  5733.       }
  5734. !     push(@m, "    $self->{RM_RF} \$(INST_AUTODIR) \$(INST_ARCHAUTODIR)\n");
  5735. !     push(@m, "    $self->{RM_F} \$(INST_DYNAMIC) \$(INST_BOOT)\n");
  5736. ! #    push(@m, "    $self->{RM_F} \$(INST_STATIC) \$(INST_PM)\n");
  5737. !     push(@m, "    $self->{RM_F} \$(INST_STATIC)\n");
  5738. !     my(@otherfiles) = ($self->{MAKEFILE},
  5739. !                "$self->{MAKEFILE}.old"); # Makefiles last
  5740. !     push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
  5741. !     push(@m, "    $self->{RM_RF} @otherfiles\n") if @otherfiles;
  5742. !     push(@m, "    $attribs{POSTOP}\n")       if $attribs{POSTOP};
  5743. !     join("", @m);
  5744.   }
  5745.   
  5746. ! =item dist_basics (o)
  5747.   
  5748. ! Defines the targets distclean, distcheck, skipcheck, manifest.
  5749.   
  5750.   =cut
  5751.   
  5752. ! sub dist_basics {
  5753. !     my($self) = shift;
  5754. !     unless (ref $self){
  5755. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5756. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5757. !     }
  5758. !     my @m;
  5759. !     push @m, q{
  5760. ! distclean :: realclean distcheck
  5761. ! };
  5762.   
  5763. !     push @m, q{
  5764. ! distcheck :
  5765. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&fullcheck";' \\
  5766. !         -e 'fullcheck();'
  5767. ! };
  5768.   
  5769. !     push @m, q{
  5770. ! skipcheck :
  5771. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&skipcheck";' \\
  5772. !         -e 'skipcheck();'
  5773. ! };
  5774.   
  5775. !     push @m, q{
  5776. ! manifest :
  5777. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&mkmanifest";' \\
  5778. !         -e 'mkmanifest();'
  5779. ! };
  5780. !     join "", @m;
  5781.   }
  5782.   
  5783. - =item dist_core (o)
  5784.   
  5785. ! Defeines the targets dist, tardist, zipdist, uutardist, shdist
  5786.   
  5787.   =cut
  5788.   
  5789. ! sub dist_core {
  5790.       my($self) = shift;
  5791. !     unless (ref $self){
  5792. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5793. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5794. !     }
  5795. !     my @m;
  5796. !     push @m, q{
  5797. ! dist : $(DIST_DEFAULT)
  5798. !     }.$self->{NOECHO}.q{$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \
  5799. !         -e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "}.$self->{MAKEFILE}.q{";'
  5800.   
  5801. ! tardist : $(DISTVNAME).tar$(SUFFIX)
  5802.   
  5803. ! zipdist : $(DISTVNAME).zip
  5804.   
  5805. ! $(DISTVNAME).tar$(SUFFIX) : distdir
  5806. !     $(PREOP)
  5807. !     $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
  5808. !     $(RM_RF) $(DISTVNAME)
  5809. !     $(COMPRESS) $(DISTVNAME).tar
  5810. !     $(POSTOP)
  5811.   
  5812. ! $(DISTVNAME).zip : distdir
  5813. !     $(PREOP)
  5814. !     $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
  5815. !     $(POSTOP)
  5816.   
  5817. ! uutardist : $(DISTVNAME).tar$(SUFFIX)
  5818. !     uuencode $(DISTVNAME).tar$(SUFFIX) \\
  5819. !         $(DISTVNAME).tar$(SUFFIX) > \\
  5820. !         $(DISTVNAME).tar$(SUFFIX)_uu
  5821.   
  5822. ! shdist : distdir
  5823. !     $(PREOP)
  5824. !     $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
  5825. !     $(RM_RF) $(DISTVNAME)
  5826. !     $(POSTOP)
  5827. ! };
  5828. !     join "", @m;
  5829.   }
  5830.   
  5831. ! =item dist_dir (o)
  5832.   
  5833. ! Defines the scratch directory target that will hold the distribution
  5834. ! before tar-ing (or shar-ing).
  5835.   
  5836.   =cut
  5837.   
  5838. ! sub dist_dir {
  5839. !     my($self) = shift;
  5840. !     unless (ref $self){
  5841. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5842. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5843. !     }
  5844. !     my @m;
  5845. !     push @m, q{
  5846. ! distdir :
  5847. !     $(RM_RF) $(DISTVNAME)
  5848. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "/mani/";' \\
  5849. !         -e 'manicopy(maniread(),"$(DISTVNAME)", "$(DIST_CP)");'
  5850. ! };
  5851. !     join "", @m;
  5852.   }
  5853.   
  5854. ! =item dist_test (o)
  5855.   
  5856. ! Defines a target that produces the distribution in the
  5857. ! scratchdirectory, and runs 'perl Makefile.PL; make ;make test' in that
  5858. ! subdirectory.
  5859.   
  5860.   =cut
  5861.   
  5862. ! sub dist_test {
  5863.       my($self) = shift;
  5864. !     unless (ref $self){
  5865. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5866. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5867. !     }
  5868. !     my @m;
  5869.       push @m, q{
  5870. ! disttest : distdir
  5871. !     cd $(DISTVNAME) && $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) Makefile.PL
  5872. !     cd $(DISTVNAME) && $(MAKE)
  5873. !     cd $(DISTVNAME) && $(MAKE) test
  5874. ! };
  5875. !     join "", @m;
  5876.   }
  5877.   
  5878. ! =item dist_ci (o)
  5879.   
  5880. ! Defines a check in target for RCS.
  5881.   
  5882.   =cut
  5883.   
  5884. ! sub dist_ci {
  5885. !     my($self) = shift;
  5886. !     unless (ref $self){
  5887. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5888. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5889. !     }
  5890. !     my @m;
  5891. !     push @m, q{
  5892. ! ci :
  5893. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&maniread";' \\
  5894. !         -e '@all = keys %{ maniread() };' \\
  5895. !         -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \\
  5896. !         -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
  5897.   };
  5898. -     join "", @m;
  5899.   }
  5900.   
  5901. ! =item install (o)
  5902.   
  5903. ! Defines the install target.
  5904.   
  5905.   =cut
  5906.   
  5907. ! sub install {
  5908. !     my($self, %attribs) = @_;
  5909. !     unless (ref $self){
  5910. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  5911. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  5912. !     }
  5913. !     my(@m);
  5914.   
  5915. !     push @m, q{
  5916. ! install :: all pure_install doc_install
  5917.   
  5918. ! install_perl :: all pure_perl_install doc_perl_install
  5919.   
  5920. ! install_site :: all pure_site_install doc_site_install
  5921.   
  5922. ! install_ :: install_site
  5923. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  5924.   
  5925. ! pure_install :: pure_$(INSTALLDIRS)_install
  5926.   
  5927. ! doc_install :: doc_$(INSTALLDIRS)_install
  5928. !     }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  5929.   
  5930. ! pure__install : pure_site_install
  5931. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  5932.   
  5933. ! doc__install : doc_site_install
  5934. !     @echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
  5935.   
  5936. ! pure_perl_install ::
  5937. !     }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  5938. !         read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  5939. !         write }.$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  5940. !         $(INST_LIB) $(INSTALLPRIVLIB) \
  5941. !         $(INST_ARCHLIB) $(INSTALLARCHLIB) \
  5942. !         $(INST_EXE) $(INSTALLBIN) \
  5943. !         $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
  5944. !         $(INST_MAN3DIR) $(INSTALLMAN3DIR)
  5945. !     }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
  5946. !         }.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{
  5947.   
  5948.   
  5949. ! pure_site_install ::
  5950. !     }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  5951. !         read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
  5952. !         write }.$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
  5953. !         $(INST_LIB) $(INSTALLSITELIB) \
  5954. !         $(INST_ARCHLIB) $(INSTALLSITEARCH) \
  5955. !         $(INST_EXE) $(INSTALLBIN) \
  5956. !         $(INST_MAN1DIR) $(INSTALLMAN1DIR) \
  5957. !         $(INST_MAN3DIR) $(INSTALLMAN3DIR)
  5958. !     }.$self->{NOECHO}.q{$(WARN_IF_OLD_PACKLIST) \
  5959. !         }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
  5960.   
  5961. ! doc_perl_install ::
  5962. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  5963. !         "$(NAME)" \
  5964. !         "installed into" "$(INSTALLPRIVLIB)" \
  5965. !         LINKTYPE "$(LINKTYPE)" \
  5966. !         VERSION "$(VERSION)" \
  5967. !         EXE_FILES "$(EXE_FILES)" \
  5968. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  5969.   
  5970. ! doc_site_install ::
  5971. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  5972. !         "Module $(NAME)" \
  5973. !         "installed into" "$(INSTALLSITELIB)" \
  5974. !         LINKTYPE "$(LINKTYPE)" \
  5975. !         VERSION "$(VERSION)" \
  5976. !         EXE_FILES "$(EXE_FILES)" \
  5977. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  5978.   
  5979. ! };
  5980.   
  5981. !     push @m, q{
  5982. ! uninstall :: uninstall_from_$(INSTALLDIRS)dirs
  5983.   
  5984. ! uninstall_from_perldirs ::
  5985. !     }.$self->{NOECHO}.
  5986. !     q{$(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
  5987.   
  5988. ! uninstall_from_sitedirs ::
  5989. !     }.$self->{NOECHO}.
  5990. !     q{$(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
  5991. ! };
  5992.   
  5993. !     join("",@m);
  5994.   }
  5995.   
  5996. ! =item force (o)
  5997.   
  5998. ! Just writes FORCE:
  5999.   
  6000.   =cut
  6001.   
  6002. ! sub force {
  6003. !     my($self) = shift;
  6004. !     unless (ref $self){
  6005. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6006. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6007.       }
  6008. !     '# Phony target to force checking subdirectories.
  6009. ! FORCE:
  6010. ! ';
  6011.   }
  6012.   
  6013. ! =item perldepend (o)
  6014.   
  6015. ! Defines the dependency from all *.h files that come with the perl
  6016. ! distribution.
  6017.   
  6018.   =cut
  6019.   
  6020. ! sub perldepend {
  6021. !     my($self) = shift;
  6022. !     unless (ref $self){
  6023. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6024. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6025. !     }
  6026. !     my(@m);
  6027. !     push(@m,'
  6028. ! PERL_HDRS = $(PERL_INC)/EXTERN.h $(PERL_INC)/INTERN.h \
  6029. !     $(PERL_INC)/XSUB.h    $(PERL_INC)/av.h    $(PERL_INC)/cop.h \
  6030. !     $(PERL_INC)/cv.h    $(PERL_INC)/dosish.h    $(PERL_INC)/embed.h \
  6031. !     $(PERL_INC)/form.h    $(PERL_INC)/gv.h    $(PERL_INC)/handy.h \
  6032. !     $(PERL_INC)/hv.h    $(PERL_INC)/keywords.h    $(PERL_INC)/mg.h \
  6033. !     $(PERL_INC)/op.h    $(PERL_INC)/opcode.h    $(PERL_INC)/patchlevel.h \
  6034. !     $(PERL_INC)/perl.h    $(PERL_INC)/perly.h    $(PERL_INC)/pp.h \
  6035. !     $(PERL_INC)/proto.h    $(PERL_INC)/regcomp.h    $(PERL_INC)/regexp.h \
  6036. !     $(PERL_INC)/scope.h    $(PERL_INC)/sv.h    $(PERL_INC)/unixish.h \
  6037. !     $(PERL_INC)/util.h    $(PERL_INC)/config.h
  6038.   
  6039. ! ');
  6040.   
  6041. !     push @m, '
  6042. ! $(OBJECT) : $(PERL_HDRS)
  6043. ! ' if $self->{OBJECT};
  6044.   
  6045. !     push(@m,'
  6046. ! # Check for unpropogated config.sh changes. Should never happen.
  6047. ! # We do NOT just update config.h because that is not sufficient.
  6048. ! # An out of date config.h is not fatal but complains loudly!
  6049. ! $(PERL_INC)/config.h: $(PERL_SRC)/config.sh
  6050. !     -'.$self->{NOECHO}.'echo "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; false
  6051.   
  6052. ! $(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
  6053. !     '.$self->{NOECHO}.'echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
  6054. !     cd $(PERL_SRC) && $(MAKE) lib/Config.pm
  6055. ! ') if $self->{PERL_SRC};
  6056.   
  6057. !     push(@m, join(" ", values %{$self->{XS}})." : \$(XSUBPPDEPS)\n")
  6058. !     if %{$self->{XS}};
  6059. !     join("\n",@m);
  6060.   }
  6061.   
  6062. ! =item makefile (o)
  6063.   
  6064. ! Defines how to rewrite the Makefile.
  6065.   
  6066.   =cut
  6067.   
  6068. ! sub makefile {
  6069. !     my($self) = shift;
  6070. !     unless (ref $self){
  6071. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6072. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6073. !     }
  6074. !     my @m;
  6075. !     # We do not know what target was originally specified so we
  6076. !     # must force a manual rerun to be sure. But as it should only
  6077. !     # happen very rarely it is not a significant problem.
  6078. !     push @m, '
  6079. ! $(OBJECT) : $(FIRST_MAKEFILE)
  6080. ! ' if $self->{OBJECT};
  6081.   
  6082. !     push @m, q{
  6083. ! # We take a very conservative approach here, but it\'s worth it.
  6084. ! # We move Makefile to Makefile.old here to avoid gnu make looping.
  6085. ! }.$self->{MAKEFILE}.q{ : Makefile.PL $(CONFIGDEP)
  6086. !     }.$self->{NOECHO}.q{echo "Makefile out-of-date with respect to $?"
  6087. !     }.$self->{NOECHO}.q{echo "Cleaning current config before rebuilding Makefile..."
  6088. !     -}.$self->{NOECHO}.q{mv }."$self->{MAKEFILE} $self->{MAKEFILE}.old".q{
  6089. !     -$(MAKE) -f }.$self->{MAKEFILE}.q{.old clean >/dev/null 2>&1 || true
  6090. !     $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL }.join(" ",map(qq["$_"],@ARGV)).q{
  6091. !     }.$self->{NOECHO}.q{echo ">>> Your Makefile has been rebuilt. <<<"
  6092. !     }.$self->{NOECHO}.q{echo ">>> Please rerun the make command.  <<<"; false
  6093.   
  6094. ! # To change behavior to :: would be nice, but would break Tk b9.02
  6095. ! # so you find such a warning below the dist target.
  6096. ! #}.$self->{MAKEFILE}.q{ :: $(VERSION_FROM)
  6097. ! #    }.$self->{NOECHO}.q{echo "Warning: Makefile possibly out of date with $(VERSION_FROM)"
  6098.   };
  6099.   
  6100. !     join "", @m;
  6101.   }
  6102.   
  6103.   =item staticmake (o)
  6104. --- 2193,2625 ----
  6105.   q[POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \\
  6106.   -e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "].$self->{MAKEFILE}.q[";' \\
  6107.   -e 'print "Manifying $$m{$$_}\n";' \\
  6108. ! -e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\\047t install $$m{$$_}\n";' \\
  6109.   -e 'chmod 0644, $$m{$$_} or warn "chmod 644 $$m{$$_}: $$!\n";}'
  6110.   ];
  6111.       push @m, "\nmanifypods : ";
  6112.       push @m, join " \\\n\t", keys %{$self->{MAN1PODS}}, keys %{$self->{MAN3PODS}};
  6113. ! 
  6114. !     push(@m,"\n");
  6115. !     if (%{$self->{MAN1PODS}} || %{$self->{MAN3PODS}}) {
  6116. !     push @m, "\t$self->{NOECHO}\$(POD2MAN) \\\n\t";
  6117. !     push @m, join " \\\n\t", %{$self->{MAN1PODS}}, %{$self->{MAN3PODS}};
  6118.       }
  6119. !     join('', @m);
  6120.   }
  6121.   
  6122. ! =item maybe_command
  6123.   
  6124. ! Returns true, if the argument is likely to be a command.
  6125.   
  6126.   =cut
  6127.   
  6128. ! sub maybe_command {
  6129. !     my($self,$file) = @_;
  6130. !     return $file if -x $file && ! -d $file;
  6131. !     return;
  6132.   }
  6133.   
  6134. ! =item maybe_command_in_dirs
  6135.   
  6136. ! method under development. Not yet used. Ask Ilya :-)
  6137.   
  6138.   =cut
  6139.   
  6140. ! sub maybe_command_in_dirs {    # $ver is optional argument if looking for perl
  6141. ! # Ilya's suggestion. Not yet used, want to understand it first, but at least the code is here
  6142. !     my($self, $names, $dirs, $trace, $ver) = @_;
  6143. !     my($name, $dir);
  6144. !     foreach $dir (@$dirs){
  6145. !     next unless defined $dir; # $self->{PERL_SRC} may be undefined
  6146. !     foreach $name (@$names){
  6147. !         my($abs,$tryabs);
  6148. !         if ($self->file_name_is_absolute($name)) { # /foo/bar
  6149. !         $abs = $name;
  6150. !         } elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { # bar
  6151. !         $abs = $self->catfile($dir, $name);
  6152. !         } else { # foo/bar
  6153. !         $abs = $self->catfile($self->curdir, $name);
  6154. !         }
  6155. !         print "Checking $abs for $name\n" if ($trace >= 2);
  6156. !         next unless $tryabs = $self->maybe_command($abs);
  6157. !         print "Substituting $tryabs instead of $abs\n"
  6158. !         if ($trace >= 2 and $tryabs ne $abs);
  6159. !         $abs = $tryabs;
  6160. !         if (defined $ver) {
  6161. !         print "Executing $abs\n" if ($trace >= 2);
  6162. !         if (`$abs -e 'require $ver; print "VER_OK\n" ' 2>&1` =~ /VER_OK/) {
  6163. !             print "Using PERL=$abs\n" if $trace;
  6164. !             return $abs;
  6165. !         }
  6166. !         } else { # Do not look for perl
  6167. !         return $abs;
  6168. !         }
  6169. !     }
  6170.       }
  6171.   }
  6172.   
  6173. ! =item needs_linking (o)
  6174.   
  6175. ! Does this module need linking? Looks into subdirectory objects (see
  6176. ! also has_link_code())
  6177.   
  6178.   =cut
  6179.   
  6180. ! sub needs_linking {
  6181. !     my($self) = shift;
  6182. !     my($child,$caller);
  6183. !     $caller = (caller(0))[3];
  6184. !     Carp::confess("Needs_linking called too early") if $caller =~ /^ExtUtils::MakeMaker::/;
  6185. !     return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING};
  6186. !     if ($self->has_link_code or $self->{MAKEAPERL}){
  6187. !     $self->{NEEDS_LINKING} = 1;
  6188. !     return 1;
  6189.       }
  6190. !     foreach $child (keys %{$self->{CHILDREN}}) {
  6191. !     if ($self->{CHILDREN}->{$child}->needs_linking) {
  6192. !         $self->{NEEDS_LINKING} = 1;
  6193. !         return 1;
  6194. !     }
  6195.       }
  6196. !     return $self->{NEEDS_LINKING} = 0;
  6197.   }
  6198.   
  6199. ! =item nicetext
  6200.   
  6201. ! misnamed method (will have to be changed). The MM_Unix method just
  6202. ! returns the argument without further processing.
  6203. ! 
  6204. ! On VMS used to insure that colons marking targets are preceded by
  6205. ! space - most Unix Makes don't need this, but it's necessary under VMS
  6206. ! to distinguish the target delimiter from a colon appearing as part of
  6207. ! a filespec.
  6208.   
  6209.   =cut
  6210.   
  6211. ! sub nicetext {
  6212. !     my($self,$text) = @_;
  6213. !     $text;
  6214. ! }
  6215.   
  6216. ! =item parse_version
  6217.   
  6218. ! parse a file and return what you think is $VERSION in this file set to
  6219.   
  6220. ! =cut
  6221. ! 
  6222. ! sub parse_version {
  6223. !     my($self,$parsefile) = @_;
  6224. !     my $result;
  6225. !     local *FH;
  6226. !     local $/ = "\n";
  6227. !     open(FH,$parsefile) or die "Could not open '$parsefile': $!";
  6228. !     my $inpod = 0;
  6229. !     while (<FH>) {
  6230. !     $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
  6231. !     next if $inpod;
  6232. !     chop;
  6233. !     next unless /\$(([\w\:\']*)\bVERSION)\b.*\=/;
  6234. !     local $ExtUtils::MakeMaker::module_version_variable = $1;
  6235. !     my($thispackage) = $2 || $current_package;
  6236. !     $thispackage =~ s/:+$//;
  6237. !     my($eval) = "$_;";
  6238. !     eval $eval;
  6239. !     die "Could not eval '$eval' in $parsefile: $@" if $@;
  6240. !     $result = $ {$ExtUtils::MakeMaker::module_version_variable} || 0;
  6241. !     last;
  6242. !     }
  6243. !     close FH;
  6244. !     return $result;
  6245.   }
  6246.   
  6247.   
  6248. ! =item pasthru (o)
  6249. ! 
  6250. ! Defines the string that is passed to recursive make calls in
  6251. ! subdirectories.
  6252.   
  6253.   =cut
  6254.   
  6255. ! sub pasthru {
  6256.       my($self) = shift;
  6257. !     my(@m,$key);
  6258.   
  6259. !     my(@pasthru);
  6260.   
  6261. !     foreach $key (qw(LIBPERL_A LINKTYPE PREFIX OPTIMIZE)){
  6262. !     push @pasthru, "$key=\"\$($key)\"";
  6263. !     }
  6264.   
  6265. !     push @m, "\nPASTHRU = ", join ("\\\n\t", @pasthru), "\n";
  6266. !     join "", @m;
  6267. ! }
  6268.   
  6269. ! =item path
  6270.   
  6271. ! Takes no argument, returns the environment variable PATH as an array.
  6272.   
  6273. ! =cut
  6274. ! 
  6275. ! sub path {
  6276. !     my($self) = @_;
  6277. !     my $path_sep = $Is_OS2 ? ";" : ":";
  6278. !     my $path = $ENV{PATH};
  6279. !     $path =~ s:\\:/:g if $Is_OS2;
  6280. !     my @path = split $path_sep, $path;
  6281.   }
  6282.   
  6283. ! =item perl_script
  6284.   
  6285. ! Takes one argument, a file name, and returns the file name, if the
  6286. ! argument is likely to be a perl script. On MM_Unix this is true for
  6287. ! any ordinary, readable file.
  6288.   
  6289.   =cut
  6290.   
  6291. ! sub perl_script {
  6292. !     my($self,$file) = @_;
  6293. !     return $file if -r $file && -f _;
  6294. !     return;
  6295.   }
  6296.   
  6297. ! =item perldepend (o)
  6298.   
  6299. ! Defines the dependency from all *.h files that come with the perl
  6300. ! distribution.
  6301.   
  6302.   =cut
  6303.   
  6304. ! sub perldepend {
  6305.       my($self) = shift;
  6306. !     my(@m);
  6307. !     push @m, q{
  6308. ! # Check for unpropogated config.sh changes. Should never happen.
  6309. ! # We do NOT just update config.h because that is not sufficient.
  6310. ! # An out of date config.h is not fatal but complains loudly!
  6311. ! $(PERL_INC)/config.h: $(PERL_SRC)/config.sh
  6312. !     -}.$self->{NOECHO}.q{echo "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; false
  6313. ! 
  6314. ! $(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
  6315. !     }.$self->{NOECHO}.q{echo "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
  6316. !     cd $(PERL_SRC) && $(MAKE) lib/Config.pm
  6317. ! } if $self->{PERL_SRC};
  6318. ! 
  6319. !     return join "", @m unless $self->needs_linking;
  6320. ! 
  6321.       push @m, q{
  6322. ! PERL_HDRS = \
  6323. ! $(PERL_INC)/EXTERN.h       $(PERL_INC)/gv.h           $(PERL_INC)/pp.h       \
  6324. ! $(PERL_INC)/INTERN.h       $(PERL_INC)/handy.h        $(PERL_INC)/proto.h    \
  6325. ! $(PERL_INC)/XSUB.h         $(PERL_INC)/hv.h           $(PERL_INC)/regcomp.h  \
  6326. ! $(PERL_INC)/av.h           $(PERL_INC)/keywords.h     $(PERL_INC)/regexp.h   \
  6327. ! $(PERL_INC)/config.h       $(PERL_INC)/mg.h           $(PERL_INC)/scope.h    \
  6328. ! $(PERL_INC)/cop.h          $(PERL_INC)/op.h           $(PERL_INC)/sv.h         \
  6329. ! $(PERL_INC)/cv.h           $(PERL_INC)/opcode.h       $(PERL_INC)/unixish.h  \
  6330. ! $(PERL_INC)/dosish.h       $(PERL_INC)/patchlevel.h   $(PERL_INC)/util.h     \
  6331. ! $(PERL_INC)/embed.h        $(PERL_INC)/perl.h                     \
  6332. ! $(PERL_INC)/form.h         $(PERL_INC)/perly.h
  6333. ! 
  6334. ! $(OBJECT) : $(PERL_HDRS)
  6335. ! } if $self->{OBJECT};
  6336. ! 
  6337. !     push @m, join(" ", values %{$self->{XS}})." : \$(XSUBPPDEPS)\n"  if %{$self->{XS}};
  6338. ! 
  6339. !     join "\n", @m;
  6340.   }
  6341.   
  6342. ! =item pm_to_blib
  6343.   
  6344. ! Defines target that copies all files in the hash PM to their
  6345. ! destination and autosplits them. See L<ExtUtils::Install/pm_to_blib>
  6346.   
  6347.   =cut
  6348.   
  6349. ! sub pm_to_blib {
  6350. !     my $self = shift;
  6351. !     my($autodir) = $self->catdir('$(INST_LIB)','auto');
  6352. !     return q{
  6353. ! pm_to_blib: $(TO_INST_PM)
  6354. !     }.$self->{NOECHO}.q{$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
  6355. !     "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
  6356. !         -e 'pm_to_blib({qw{$(PM_TO_BLIB)}},"}.$autodir.q{")'
  6357. !     }.$self->{NOECHO}.q{$(TOUCH) $@
  6358.   };
  6359.   }
  6360.   
  6361. ! =item post_constants (o)
  6362.   
  6363. ! Returns an empty string per default. Dedicated to overrides from
  6364. ! within Makefile.PL after all constants have been defined.
  6365.   
  6366.   =cut
  6367.   
  6368. ! sub post_constants{
  6369. !     my($self) = shift;
  6370. !     "";
  6371. ! }
  6372.   
  6373. ! =item post_initialize (o)
  6374.   
  6375. ! Returns an ampty string per default. Used in Makefile.PLs to add some
  6376. ! chunk of text to the Makefile after the object is initialized.
  6377.   
  6378. ! =cut
  6379.   
  6380. ! sub post_initialize {
  6381. !     my($self) = shift;
  6382. !     "";
  6383. ! }
  6384.   
  6385. ! =item postamble (o)
  6386.   
  6387. ! Returns an empty string. Can be used in Makefile.PLs to write some
  6388. ! text to the Makefile at the end.
  6389.   
  6390. ! =cut
  6391.   
  6392. ! sub postamble {
  6393. !     my($self) = shift;
  6394. !     "";
  6395. ! }
  6396.   
  6397. ! =item prefixify
  6398.   
  6399. + Check a path variable in $self from %Config, if it contains a prefix,
  6400. + and replace it with another one.
  6401.   
  6402. ! Takes as arguments an attribute name, a search prefix and a
  6403. ! replacement prefix. Changes the attribute in the object.
  6404.   
  6405. ! =cut
  6406.   
  6407. ! sub prefixify {
  6408. !     my($self,$var,$sprefix,$rprefix) = @_;
  6409. !     $self->{uc $var} ||= $Config{lc $var};
  6410. !     $self->{uc $var} = VMS::Filespec::unixpath($self->{uc $var}) if $Is_VMS;
  6411. !     $self->{uc $var} =~ s/\Q$sprefix\E/$rprefix/;
  6412. ! }
  6413.   
  6414. ! =item processPL (o)
  6415.   
  6416. ! Defines targets to run *.PL files.
  6417.   
  6418. ! =cut
  6419.   
  6420. ! sub processPL {
  6421. !     my($self) = shift;
  6422. !     return "" unless $self->{PL_FILES};
  6423. !     my(@m, $plfile);
  6424. !     foreach $plfile (sort keys %{$self->{PL_FILES}}) {
  6425. !     push @m, "
  6426. ! all :: $self->{PL_FILES}->{$plfile}
  6427.   
  6428. ! $self->{PL_FILES}->{$plfile} :: $plfile
  6429. !     \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) $plfile
  6430. ! ";
  6431. !     }
  6432. !     join "", @m;
  6433.   }
  6434.   
  6435. ! =item realclean (o)
  6436.   
  6437. ! Defines the realclean target.
  6438.   
  6439.   =cut
  6440.   
  6441. ! sub realclean {
  6442. !     my($self, %attribs) = @_;
  6443. !     my(@m);
  6444. !     push(@m,'
  6445. ! # Delete temporary files (via clean) and also delete installed files
  6446. ! realclean purge ::  clean
  6447. ! ');
  6448. !     # realclean subdirectories first (already cleaned)
  6449. !     my $sub = "\t-cd %s && test -f %s && \$(MAKE) %s realclean\n";
  6450. !     foreach(@{$self->{DIR}}){
  6451. !     push(@m, sprintf($sub,$_,"$self->{MAKEFILE}.old","-f $self->{MAKEFILE}.old"));
  6452. !     push(@m, sprintf($sub,$_,"$self->{MAKEFILE}",''));
  6453.       }
  6454. !     push(@m, "    $self->{RM_RF} \$(INST_AUTODIR) \$(INST_ARCHAUTODIR)\n");
  6455. !     if( $self->has_link_code ){
  6456. !         push(@m, "    $self->{RM_F} \$(INST_DYNAMIC) \$(INST_BOOT)\n");
  6457. !         push(@m, "    $self->{RM_F} \$(INST_STATIC)\n");
  6458. !     }
  6459. !     push(@m, "    $self->{RM_F} " . join(" ", values %{$self->{PM}}) . "\n");
  6460. !     my(@otherfiles) = ($self->{MAKEFILE},
  6461. !                "$self->{MAKEFILE}.old"); # Makefiles last
  6462. !     push(@otherfiles, $attribs{FILES}) if $attribs{FILES};
  6463. !     push(@m, "    $self->{RM_RF} @otherfiles\n") if @otherfiles;
  6464. !     push(@m, "    $attribs{POSTOP}\n")       if $attribs{POSTOP};
  6465. !     join("", @m);
  6466.   }
  6467.   
  6468. ! =item replace_manpage_separator
  6469.   
  6470. ! Takes the name of a package, which may be a nested package, in the
  6471. ! form Foo/Bar and replaces the slash with C<::>. Returns the replacement.
  6472.   
  6473.   =cut
  6474.   
  6475. ! sub replace_manpage_separator {
  6476. !     my($self,$man) = @_;
  6477. !     $man =~ s,/+,::,g;
  6478. !     $man;
  6479. ! }
  6480.   
  6481. ! =item static (o)
  6482.   
  6483. ! Defines the static target.
  6484.   
  6485. ! =cut
  6486.   
  6487. ! sub static {
  6488. ! # --- Static Loading Sections ---
  6489.   
  6490. !     my($self) = shift;
  6491. !     '
  6492. ! ## $(INST_PM) has been moved to the all: target.
  6493. ! ## It remains here for awhile to allow for old usage: "make static"
  6494. ! #static :: '.$self->{MAKEFILE}.' $(INST_STATIC) $(INST_PM)
  6495. ! static :: '.$self->{MAKEFILE}.' $(INST_STATIC)
  6496. !     '.$self->{NOECHO}.'$(NOOP)
  6497. ! ';
  6498.   }
  6499.   
  6500. ! =item static_lib (o)
  6501.   
  6502. ! Defines how to produce the *.a (or equivalent) files.
  6503.   
  6504.   =cut
  6505.   
  6506. ! sub static_lib {
  6507. !     my($self) = @_;
  6508. ! # Come to think of it, if there are subdirs with linkcode, we still have no INST_STATIC
  6509. ! #    return '' unless $self->needs_linking(); #might be because of a subdir
  6510.   
  6511. !     return '' unless $self->has_link_code;
  6512. ! 
  6513. !     my(@m);
  6514. !     push(@m, <<'END');
  6515. ! $(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
  6516. !     $(RM_RF) $@
  6517. ! END
  6518. !     # If this extension has it's own library (eg SDBM_File)
  6519. !     # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
  6520. !     push(@m, "\t$self->{CP} \$(MYEXTLIB) \$\@\n") if $self->{MYEXTLIB};
  6521.   
  6522. !     push @m,
  6523. ! q{    $(AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
  6524. !     }.$self->{NOECHO}.q{echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
  6525. !     $(CHMOD) 755 $@
  6526.   };
  6527.   
  6528. ! # Old mechanism - still available:
  6529. ! 
  6530. !     push @m, "\t$self->{NOECHO}".q{echo "$(EXTRALIBS)" >> $(PERL_SRC)/ext.libs}."\n\n"
  6531. !     if $self->{PERL_SRC};
  6532. ! 
  6533. !     push @m, $self->dir_target('$(INST_ARCHAUTODIR)');
  6534. !     join('', "\n",@m);
  6535.   }
  6536.   
  6537.   =item staticmake (o)
  6538. ***************
  6539. *** 2840,2849 ****
  6540.   
  6541.   sub staticmake {
  6542.       my($self, %attribs) = @_;
  6543. -     unless (ref $self){
  6544. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6545. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  6546. -     }
  6547.       my(@static);
  6548.   
  6549.       my(@searchdirs)=($self->{PERL_ARCHLIB}, $self->{SITEARCHEXP},  $self->{INST_ARCHLIB});
  6550. --- 2630,2635 ----
  6551. ***************
  6552. *** 2878,2883 ****
  6553. --- 2664,2715 ----
  6554.               );
  6555.   }
  6556.   
  6557. + =item subdir_x (o)
  6558. + 
  6559. + Helper subroutine for subdirs
  6560. + 
  6561. + =cut
  6562. + 
  6563. + sub subdir_x {
  6564. +     my($self, $subdir) = @_;
  6565. +     my(@m);
  6566. +     qq{
  6567. + 
  6568. + subdirs ::
  6569. +     $self->{NOECHO}cd $subdir && \$(MAKE) all \$(PASTHRU)
  6570. + 
  6571. + };
  6572. + }
  6573. + 
  6574. + =item subdirs (o)
  6575. + 
  6576. + Defines targets to process subdirectories.
  6577. + 
  6578. + =cut
  6579. + 
  6580. + sub subdirs {
  6581. + # --- Sub-directory Sections ---
  6582. +     my($self) = shift;
  6583. +     my(@m,$dir);
  6584. +     # This method provides a mechanism to automatically deal with
  6585. +     # subdirectories containing further Makefile.PL scripts.
  6586. +     # It calls the subdir_x() method for each subdirectory.
  6587. +     foreach $dir (@{$self->{DIR}}){
  6588. +     push(@m, $self->subdir_x($dir));
  6589. + ####    print "Including $dir subdirectory\n";
  6590. +     }
  6591. +     if (@m){
  6592. +     unshift(@m, "
  6593. + # The default clean, realclean and test targets in this Makefile
  6594. + # have automatically been given entries for each subdir.
  6595. + 
  6596. + ");
  6597. +     } else {
  6598. +     push(@m, "\n# none")
  6599. +     }
  6600. +     join('',@m);
  6601. + }
  6602. + 
  6603.   =item test (o)
  6604.   
  6605.   Defines the test targets.
  6606. ***************
  6607. *** 2888,2905 ****
  6608.   # --- Test and Installation Sections ---
  6609.   
  6610.       my($self, %attribs) = @_;
  6611. -     unless (ref $self){
  6612. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6613. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  6614. -     }
  6615.       my($tests) = $attribs{TESTS} || (-d "t" ? "t/*.t" : "");
  6616.       my(@m);
  6617.       push(@m,"
  6618.   TEST_VERBOSE=0
  6619.   TEST_TYPE=test_\$(LINKTYPE)
  6620.   
  6621. - test :: \$(TEST_TYPE)
  6622.   testdb :: testdb_\$(LINKTYPE)
  6623.   ");
  6624.       push(@m, map("\t$self->{NOECHO}cd $_ && test -f $self->{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
  6625.            @{$self->{DIR}}));
  6626. --- 2720,2736 ----
  6627.   # --- Test and Installation Sections ---
  6628.   
  6629.       my($self, %attribs) = @_;
  6630.       my($tests) = $attribs{TESTS} || (-d "t" ? "t/*.t" : "");
  6631.       my(@m);
  6632.       push(@m,"
  6633.   TEST_VERBOSE=0
  6634.   TEST_TYPE=test_\$(LINKTYPE)
  6635. + TEST_FILE = test.pl
  6636. + TESTDB_SW = -d
  6637.   
  6638.   testdb :: testdb_\$(LINKTYPE)
  6639. + 
  6640. + test :: \$(TEST_TYPE)
  6641.   ");
  6642.       push(@m, map("\t$self->{NOECHO}cd $_ && test -f $self->{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
  6643.            @{$self->{DIR}}));
  6644. ***************
  6645. *** 2912,2922 ****
  6646.       push(@m, $self->test_via_script('$(FULLPERL)', 'test.pl')) if -f "test.pl";
  6647.       push(@m, "\n");
  6648.   
  6649. !     if (-f "test.pl") {
  6650. !     push(@m, "testdb_dynamic :: pure_all\n");
  6651. !     push(@m, $self->test_via_script('$(FULLPERL) -d', 'test.pl'));
  6652. !     push(@m, "\n");
  6653. !     }
  6654.   
  6655.       # Occasionally we may face this degenerate target:
  6656.       push @m, "test_ : test_dynamic\n\n";
  6657. --- 2743,2751 ----
  6658.       push(@m, $self->test_via_script('$(FULLPERL)', 'test.pl')) if -f "test.pl";
  6659.       push(@m, "\n");
  6660.   
  6661. !     push(@m, "testdb_dynamic :: pure_all\n");
  6662. !     push(@m, $self->test_via_script('$(FULLPERL) $(TESTDB_SW)', '$(TEST_FILE)'));
  6663. !     push(@m, "\n");
  6664.   
  6665.       # Occasionally we may face this degenerate target:
  6666.       push @m, "test_ : test_dynamic\n\n";
  6667. ***************
  6668. *** 2926,2936 ****
  6669.       push(@m, $self->test_via_harness('./$(MAP_TARGET)', $tests)) if $tests;
  6670.       push(@m, $self->test_via_script('./$(MAP_TARGET)', 'test.pl')) if -f "test.pl";
  6671.       push(@m, "\n");
  6672. !     if (-f "test.pl") {
  6673. !         push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
  6674. !         push(@m, $self->test_via_script('./$(MAP_TARGET) -d', 'test.pl'));
  6675. !         push(@m, "\n");
  6676. !     }
  6677.       } else {
  6678.       push @m, "test_static :: test_dynamic\n";
  6679.       push @m, "testdb_static :: testdb_dynamic\n";
  6680. --- 2755,2763 ----
  6681.       push(@m, $self->test_via_harness('./$(MAP_TARGET)', $tests)) if $tests;
  6682.       push(@m, $self->test_via_script('./$(MAP_TARGET)', 'test.pl')) if -f "test.pl";
  6683.       push(@m, "\n");
  6684. !     push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
  6685. !     push(@m, $self->test_via_script('./$(MAP_TARGET) $(TESTDB_SW)', '$(TEST_FILE)'));
  6686. !     push(@m, "\n");
  6687.       } else {
  6688.       push @m, "test_static :: test_dynamic\n";
  6689.       push @m, "testdb_static :: testdb_dynamic\n";
  6690. ***************
  6691. *** 2946,2955 ****
  6692.   
  6693.   sub test_via_harness {
  6694.       my($self, $perl, $tests) = @_;
  6695. -     unless (ref $self){
  6696. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6697. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  6698. -     }
  6699.       "\tPERL_DL_NONLAZY=1 $perl".q! -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use Test::Harness qw(&runtests $$verbose); $$verbose=$(TEST_VERBOSE); runtests @ARGV;' !."$tests\n";
  6700.   }
  6701.   
  6702. --- 2773,2778 ----
  6703. ***************
  6704. *** 2961,3261 ****
  6705.   
  6706.   sub test_via_script {
  6707.       my($self, $perl, $script) = @_;
  6708. -     unless (ref $self){
  6709. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6710. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  6711. -     }
  6712.       qq{\tPERL_DL_NONLAZY=1 $perl}.q{ -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) }.qq{$script
  6713.   };
  6714.   }
  6715.   
  6716. ! =item postamble (o)
  6717.   
  6718. ! Returns an empty string. Can be used in Makefile.PLs to write some
  6719. ! text to the Makefile at the end.
  6720.   
  6721.   =cut
  6722.   
  6723. ! sub postamble {
  6724. !     my($self) = shift;
  6725. !     unless (ref $self){
  6726. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6727. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6728. !     }
  6729. !     "";
  6730.   }
  6731.   
  6732. ! =item makeaperl (o)
  6733.   
  6734. ! Called by staticmake. Defines how to write the Makefile to produce a
  6735. ! static new perl.
  6736.   
  6737.   =cut
  6738.   
  6739. ! sub makeaperl {
  6740. !     my($self, %attribs) = @_;
  6741. !     unless (ref $self){
  6742. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6743. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6744.       }
  6745. -     my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
  6746. -     @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
  6747. -     my(@m);
  6748. -     push @m, "
  6749. - # --- MakeMaker makeaperl section ---
  6750. - MAP_TARGET    = $target
  6751. - FULLPERL      = $self->{FULLPERL}
  6752. - ";
  6753. -     return join '', @m if $self->{PARENT};
  6754.   
  6755. -     my($dir) = join ":", @{$self->{DIR}};
  6756.   
  6757. !     unless ($self->{MAKEAPERL}) {
  6758. !     push @m, q{
  6759. ! $(MAP_TARGET) :: $(MAKE_APERL_FILE)
  6760. !     $(MAKE) -f $(MAKE_APERL_FILE) static $@
  6761.   
  6762. ! $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
  6763. !     }.$self->{NOECHO}.q{echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
  6764. !     }.$self->{NOECHO}.q{$(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
  6765. !         Makefile.PL DIR=}, $dir, q{ \
  6766. !         MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
  6767. !         MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
  6768.   
  6769. !     push @m, map( " \\\n\t\t$_", @ARGV );
  6770. !     push @m, "\n";
  6771.   
  6772. !     return join '', @m;
  6773. !     }
  6774.   
  6775.   
  6776.   
  6777. !     my($cccmd, $linkcmd, $lperl);
  6778.   
  6779.   
  6780. !     $cccmd = $self->const_cccmd($libperl);
  6781. !     $cccmd =~ s/^CCCMD\s*=\s*//;
  6782. !     $cccmd =~ s/\$\(INC\)/ -I$self->{PERL_INC} /;
  6783. !     $cccmd .= " $Config::Config{cccdlflags}" if ($Config::Config{d_shrplib});
  6784. !     $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
  6785.   
  6786. !     # The front matter of the linkcommand...
  6787. !     $linkcmd = join ' ', "\$(CC)",
  6788. !         grep($_, @Config{qw(large split ldflags ccdlflags)});
  6789. !     $linkcmd =~ s/\s+/ /g;
  6790.   
  6791. !     # Which *.a files could we make use of...
  6792. !     local(%static);
  6793. !     require File::Find;
  6794. !     File::Find::find(sub {
  6795. !     return unless m/\Q$self->{LIB_EXT}\E$/;
  6796. !     return if m/^libperl/;
  6797. !     # don't include the installed version of this extension. I
  6798. !     # leave this line here, although it is not necessary anymore:
  6799. !     # I patched minimod.PL instead, so that Miniperl.pm won't
  6800. !     # enclude duplicates
  6801.   
  6802. !     # Once the patch to minimod.PL is in the distribution, I can
  6803. !     # drop it
  6804. !     return if $File::Find::name =~ m:auto/$self->{FULLEXT}/$self->{BASEEXT}$self->{LIB_EXT}$:;
  6805. !     use Cwd 'cwd';
  6806. !     $static{cwd() . "/" . $_}++;
  6807. !     }, grep( -d $_, @{$searchdirs || []}) );
  6808.   
  6809. !     # We trust that what has been handed in as argument, will be buildable
  6810. !     $static = [] unless $static;
  6811. !     @static{@{$static}} = (1) x @{$static};
  6812.   
  6813. !     $extra = [] unless $extra && ref $extra eq 'ARRAY';
  6814. !     for (sort keys %static) {
  6815. !     next unless /\Q$self->{LIB_EXT}\E$/;
  6816. !     $_ = dirname($_) . "/extralibs.ld";
  6817. !     push @$extra, $_;
  6818.       }
  6819.   
  6820. -     grep(s/^/-I/, @{$perlinc || []});
  6821. - 
  6822. -     $target = "perl" unless $target;
  6823. -     $tmp = "." unless $tmp;
  6824. - 
  6825. - # MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
  6826. - # regenerate the Makefiles, MAP_STATIC and the dependencies for
  6827. - # extralibs.all are computed correctly
  6828. -     push @m, "
  6829. - MAP_LINKCMD   = $linkcmd
  6830. - MAP_PERLINC   = @{$perlinc || []}
  6831. - MAP_STATIC    = ",
  6832. - join(" \\\n\t", reverse sort keys %static), "
  6833.   
  6834. ! MAP_PRELIBS   = $Config::Config{libs} $Config::Config{cryptlib}
  6835. ! ";
  6836.   
  6837. !     if (defined $libperl) {
  6838. !     ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
  6839. !     }
  6840. !     unless ($libperl && -f $lperl) { # Ilya's code...
  6841. !     my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
  6842. !     $libperl ||= "libperl$self->{LIB_EXT}";
  6843. !     $libperl   = "$dir/$libperl";
  6844. !     $lperl   ||= "libperl$self->{LIB_EXT}";
  6845. !     $lperl     = "$dir/$lperl";
  6846. !     print STDOUT "Warning: $libperl not found
  6847. !     If you're going to build a static perl binary, make sure perl is installed
  6848. !     otherwise ignore this warning\n"
  6849. !         unless (-f $lperl || defined($self->{PERL_SRC}));
  6850.       }
  6851.   
  6852. !     push @m, "
  6853. ! MAP_LIBPERL = $libperl
  6854. ! ";
  6855.   
  6856. !     push @m, "
  6857. ! \$(INST_ARCHAUTODIR)/extralibs.all: \$(INST_ARCHAUTODIR)/.exists ".join(" \\\n\t", @$extra)."
  6858. !     $self->{NOECHO}$self->{RM_F} \$\@
  6859. !     $self->{NOECHO}\$(TOUCH) \$\@
  6860. ! ";
  6861.   
  6862. !     my $catfile;
  6863. !     foreach $catfile (@$extra){
  6864. !     push @m, "\tcat $catfile >> \$\@\n";
  6865. !     }
  6866.   
  6867. !     push @m, "
  6868. ! \$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
  6869. !     \$(MAP_LINKCMD) -o \$\@ $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
  6870. !     $self->{NOECHO}echo 'To install the new \"\$(MAP_TARGET)\" binary, call'
  6871. !     $self->{NOECHO}echo '    make -f $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
  6872. !     $self->{NOECHO}echo 'To remove the intermediate files say'
  6873. !     $self->{NOECHO}echo '    make -f $makefilename map_clean'
  6874.   
  6875. ! $tmp/perlmain\$(OBJ_EXT): $tmp/perlmain.c
  6876. ! ";
  6877. !     push @m, "\tcd $tmp && $cccmd -I\$(PERL_INC) perlmain.c\n";
  6878.   
  6879. !     push @m, qq{
  6880. ! $tmp/perlmain.c: $makefilename}, q{
  6881. !     }.$self->{NOECHO}.q{echo Writing $@
  6882. !     }.$self->{NOECHO}.q{$(PERL) $(MAP_PERLINC) -e 'use ExtUtils::Miniperl; \\
  6883. !         writemain(grep s#.*/auto/##, qw|$(MAP_STATIC)|)' > $@.tmp && mv $@.tmp $@
  6884.   
  6885. ! };
  6886.   
  6887. !     push @m, q{
  6888. ! doc_inst_perl:
  6889. !     }.$self->{NOECHO}.q{echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  6890. !     }.$self->{NOECHO}.q{$(DOC_INSTALL) \
  6891. !         "Perl binary $(MAP_TARGET)" \
  6892. !         MAP_STATIC "$(MAP_STATIC)" \
  6893. !         MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
  6894. !         MAP_LIBPERL "$(MAP_LIBPERL)" \
  6895. !         >> }.$self->catfile('$(INSTALLARCHLIB)','perllocal.pod').q{
  6896.   
  6897. ! };
  6898.   
  6899. !     push @m, qq{
  6900. ! inst_perl: pure_inst_perl doc_inst_perl
  6901.   
  6902. ! pure_inst_perl: \$(MAP_TARGET)
  6903. !     $self->{CP} \$(MAP_TARGET) \$(INSTALLBIN)/\$(MAP_TARGET)
  6904.   
  6905. ! clean :: map_clean
  6906.   
  6907. ! map_clean :
  6908. !     $self->{RM_F} $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
  6909. ! };
  6910.   
  6911. !     join '', @m;
  6912.   }
  6913.   
  6914. ! =item dir_target (o)
  6915.   
  6916. ! Takes an array of directories that need to exist and returns a
  6917. ! Makefile entry for a .exists file in these directories. Returns
  6918. ! nothing, if the entry has already been processed. We're helpless
  6919. ! though, if the same directory comes as $(FOO) _and_ as "bar". Both of
  6920. ! them get an entry, that's why we use "::".
  6921.   
  6922.   =cut
  6923.   
  6924. ! sub dir_target {
  6925. ! # --- Make-Directories section (internal method) ---
  6926. ! # dir_target(@array) returns a Makefile entry for the file .exists in each
  6927. ! # named directory. Returns nothing, if the entry has already been processed.
  6928. ! # We're helpless though, if the same directory comes as $(FOO) _and_ as "bar".
  6929. ! # Both of them get an entry, that's why we use "::". I chose '$(PERL)' as the
  6930. ! # prerequisite, because there has to be one, something that doesn't change
  6931. ! # too often :)
  6932.   
  6933. !     my($self,@dirs) = @_;
  6934. !     unless (ref $self){
  6935. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  6936. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6937. !     }
  6938. !     my(@m,$dir);
  6939. !     foreach $dir (@dirs) {
  6940. !     my($src) = $self->catfile($self->{PERL_INC},'perl.h');
  6941. !     my($targ) = $self->catfile($dir,'.exists');
  6942. !     my($targdir) = $targ;       # Necessary because catfile may have
  6943. !     $targdir =~ s:/?.exists$::; # adapted syntax of $dir to target OS
  6944. !     next if $self->{DIR_TARGET}{$self}{$targdir}++;
  6945. !     push @m, qq{
  6946. ! $targ :: $src
  6947. !     $self->{NOECHO}\$(MKPATH) $targdir
  6948. !     $self->{NOECHO}\$(EQUALIZE_TIMESTAMP) $src $targ
  6949. ! };
  6950. !     push(@m,qq{
  6951. !     -$self->{NOECHO}\$(CHMOD) 755 $targdir
  6952. ! }) unless $Is_VMS;
  6953. !     }
  6954. !     join "", @m;
  6955. ! }
  6956.   
  6957. ! =item needs_linking (o)
  6958.   
  6959. ! Does this module need linking? Looks into subdirectory objects (see
  6960. ! also has_link_code())
  6961.   
  6962. ! =cut
  6963.   
  6964. ! sub needs_linking {
  6965. !     my($self) = shift;
  6966. !     my($child,$caller);
  6967. !     $caller = (caller(0))[3];
  6968. !     unless (ref $self){
  6969. !     ExtUtils::MakeMaker::TieAtt::warndirectuse($caller);
  6970. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  6971. !     }
  6972. !     Carp::confess("Needs_linking called too early") if $caller =~ /^ExtUtils::MakeMaker::/;
  6973. !     return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING};
  6974. !     if ($self->has_link_code or $self->{MAKEAPERL}){
  6975. !     $self->{NEEDS_LINKING} = 1;
  6976. !     return 1;
  6977.       }
  6978. !     foreach $child (keys %{$self->{CHILDREN}}) {
  6979. !     if ($self->{CHILDREN}->{$child}->needs_linking) {
  6980. !         $self->{NEEDS_LINKING} = 1;
  6981. !         return 1;
  6982. !     }
  6983.       }
  6984. -     return $self->{NEEDS_LINKING} = 0;
  6985. - }
  6986.   
  6987. ! =item has_link_code
  6988.   
  6989. ! Returns true if C, XS, MYEXTLIB or similar objects exist within this
  6990. ! object that need a compiler. Does not descend into subdirectories as
  6991. ! needs_linking() does.
  6992.   
  6993. ! =cut
  6994.   
  6995. ! sub has_link_code {
  6996. !     my($self) = shift;
  6997. !     return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE};
  6998. !     if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){
  6999. !     $self->{HAS_LINK_CODE} = 1;
  7000. !     return 1;
  7001. !     }
  7002. !     return $self->{HAS_LINK_CODE} = 0;
  7003.   }
  7004.   
  7005.   =item writedoc
  7006. --- 2784,3062 ----
  7007.   
  7008.   sub test_via_script {
  7009.       my($self, $perl, $script) = @_;
  7010.       qq{\tPERL_DL_NONLAZY=1 $perl}.q{ -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) }.qq{$script
  7011.   };
  7012.   }
  7013.   
  7014. ! =item tool_autosplit (o)
  7015.   
  7016. ! Defines a simple perl call that runs autosplit. May be deprecated by
  7017. ! pm_to_blib soon.
  7018.   
  7019.   =cut
  7020.   
  7021. ! sub tool_autosplit {
  7022. ! # --- Tool Sections ---
  7023. ! 
  7024. !     my($self, %attribs) = @_;
  7025. !     my($asl) = "";
  7026. !     $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
  7027. !     q{
  7028. ! # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
  7029. ! AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
  7030. ! };
  7031.   }
  7032.   
  7033. ! =item tools_other (o)
  7034.   
  7035. ! Defines SHELL, LD, TOUCH, CP, MV, RM_F, RM_RF, CHMOD, UMASK_NULL in
  7036. ! the Makefile. Also defines the perl programs MKPATH,
  7037. ! WARN_IF_OLD_PACKLIST, MOD_INSTALL. DOC_INSTALL, and UNINSTALL.
  7038.   
  7039.   =cut
  7040.   
  7041. ! sub tools_other {
  7042. !     my($self) = shift;
  7043. !     my @m;
  7044. !     my $bin_sh = $Config{sh} || '/bin/sh';
  7045. !     push @m, qq{
  7046. ! SHELL = $bin_sh
  7047. ! };
  7048. ! 
  7049. !     for (qw/ CHMOD CP LD MV NOOP RM_F RM_RF TOUCH UMASK_NULL / ) {
  7050. !     push @m, "$_ = $self->{$_}\n";
  7051.       }
  7052.   
  7053.   
  7054. !     push @m, q{
  7055. ! # The following is a portable way to say mkdir -p
  7056. ! # To see which directories are created, change the if 0 to if 1
  7057. ! MKPATH = $(PERL) -wle '$$"="/"; foreach $$p (@ARGV){' \\
  7058. ! -e 'next if -d $$p; my(@p); foreach(split(/\//,$$p)){' \\
  7059. ! -e 'push(@p,$$_); next if -d "@p/"; print "mkdir @p" if 0;' \\
  7060. ! -e 'mkdir("@p",0777)||die $$! } } exit 0;'
  7061.   
  7062. ! # This helps us to minimize the effect of the .exists files A yet
  7063. ! # better solution would be to have a stable file in the perl
  7064. ! # distribution with a timestamp of zero. But this solution doesn't
  7065. ! # need any changes to the core distribution and works with older perls
  7066. ! EQUALIZE_TIMESTAMP = $(PERL) -we 'open F, ">$$ARGV[1]"; close F;' \\
  7067. ! -e 'utime ((stat("$$ARGV[0]"))[8,9], $$ARGV[1])'
  7068. ! };
  7069.   
  7070. !     return join "", @m if $self->{PARENT};
  7071.   
  7072. !     push @m, q{
  7073. ! # Here we warn users that an old packlist file was found somewhere,
  7074. ! # and that they should call some uninstall routine
  7075. ! WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \\
  7076. ! -e 'print "WARNING: I have found an old package in\n";' \\
  7077. ! -e 'print "\t$$ARGV[0].\n";' \\
  7078. ! -e 'print "Please make sure the two installations are not conflicting\n";'
  7079.   
  7080. + UNINST=0
  7081. + VERBINST=1
  7082.   
  7083. + MOD_INSTALL = $(PERL) -I$(INST_LIB) -I$(PERL_LIB) -MExtUtils::Install \
  7084. + -e 'install({@ARGV},"$(VERBINST)",0,"$(UNINST)");'
  7085.   
  7086. ! DOC_INSTALL = $(PERL) -e '$$\="\n\n";print "=head3 ", scalar(localtime), ": C<", shift, ">";' \
  7087. ! -e 'print "=over 4";' \
  7088. ! -e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \
  7089. ! -e 'print "=back";'
  7090.   
  7091. + UNINSTALL =   $(PERL) -MExtUtils::Install \
  7092. + -e 'uninstall($$ARGV[0],1);'
  7093.   
  7094. ! };
  7095.   
  7096. !     return join "", @m;
  7097. ! }
  7098.   
  7099. ! =item tool_xsubpp (o)
  7100.   
  7101. ! Determines typemaps, xsubpp version, prototype behaviour.
  7102.   
  7103. ! =cut
  7104.   
  7105. ! sub tool_xsubpp {
  7106. !     my($self) = shift;
  7107. !     return "" unless $self->needs_linking;
  7108. !     my($xsdir)  = $self->catdir($self->{PERL_LIB},"ExtUtils");
  7109. !     my(@tmdeps) = $self->catdir('$(XSUBPPDIR)','typemap');
  7110. !     if( $self->{TYPEMAPS} ){
  7111. !     my $typemap;
  7112. !     foreach $typemap (@{$self->{TYPEMAPS}}){
  7113. !         if( ! -f  $typemap ){
  7114. !             warn "Typemap $typemap not found.\n";
  7115. !         }
  7116. !         else{
  7117. !             push(@tmdeps,  $typemap);
  7118. !         }
  7119. !     }
  7120. !     }
  7121. !     push(@tmdeps, "typemap") if -f "typemap";
  7122. !     my(@tmargs) = map("-typemap $_", @tmdeps);
  7123. !     if( exists $self->{XSOPT} ){
  7124. !      unshift( @tmargs, $self->{XSOPT} );
  7125.       }
  7126.   
  7127.   
  7128. !     my $xsubpp_version = $self->xsubpp_version($self->catfile($xsdir,"xsubpp"));
  7129.   
  7130. !     # What are the correct thresholds for version 1 && 2 Paul?
  7131. !     if ( $xsubpp_version > 1.923 ){
  7132. !     $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG};
  7133. !     } else {
  7134. !     if (defined $self->{XSPROTOARG} && $self->{XSPROTOARG} =~ /\-prototypes/) {
  7135. !         print STDOUT qq{Warning: This extension wants to pass the switch "-prototypes" to xsubpp.
  7136. !     Your version of xsubpp is $xsubpp_version and cannot handle this.
  7137. !     Please upgrade to a more recent version of xsubpp.
  7138. ! };
  7139. !     } else {
  7140. !         $self->{XSPROTOARG} = "";
  7141. !     }
  7142.       }
  7143.   
  7144. !     return qq{
  7145. ! XSUBPPDIR = $xsdir
  7146. ! XSUBPP = \$(XSUBPPDIR)/xsubpp
  7147. ! XSPROTOARG = $self->{XSPROTOARG}
  7148. ! XSUBPPDEPS = @tmdeps
  7149. ! XSUBPPARGS = @tmargs
  7150. ! };
  7151. ! };
  7152.   
  7153. ! sub xsubpp_version
  7154. ! {
  7155. !     my($self,$xsubpp) = @_;
  7156. !     return $Xsubpp_Version if defined $Xsubpp_Version; # global variable
  7157.   
  7158. !     my ($version) ;
  7159.   
  7160. !     # try to figure out the version number of the xsubpp on the system
  7161.   
  7162. !     # first try the -v flag, introduced in 1.921 & 2.000a2
  7163.   
  7164. !     return "" unless $self->needs_linking;
  7165.   
  7166. !     my $command = "$self->{PERL} -I$self->{PERL_LIB} $xsubpp -v 2>&1";
  7167. !     print "Running $command\n" if $Verbose >= 2;
  7168. !     $version = `$command` ;
  7169. !     warn "Running '$command' exits with status " . ($?>>8) if $?;
  7170. !     chop $version ;
  7171.   
  7172. !     return $Xsubpp_Version = $1 if $version =~ /^xsubpp version (.*)/ ;
  7173.   
  7174. !     # nope, then try something else
  7175.   
  7176. !     my $counter = '000';
  7177. !     my ($file) = 'temp' ;
  7178. !     $counter++ while -e "$file$counter"; # don't overwrite anything
  7179. !     $file .= $counter;
  7180.   
  7181. !     open(F, ">$file") or die "Cannot open file '$file': $!\n" ;
  7182. !     print F <<EOM ;
  7183. ! MODULE = fred PACKAGE = fred
  7184.   
  7185. ! int
  7186. ! fred(a)
  7187. !         int     a;
  7188. ! EOM
  7189.   
  7190. !     close F ;
  7191.   
  7192. !     $command = "$self->{PERL} $xsubpp $file 2>&1";
  7193. !     print "Running $command\n" if $Verbose >= 2;
  7194. !     my $text = `$command` ;
  7195. !     warn "Running '$command' exits with status " . ($?>>8) if $?;
  7196. !     unlink $file ;
  7197. ! 
  7198. !     # gets 1.2 -> 1.92 and 2.000a1
  7199. !     return $Xsubpp_Version = $1 if $text =~ /automatically by xsubpp version ([\S]+)\s*/  ;
  7200. ! 
  7201. !     # it is either 1.0 or 1.1
  7202. !     return $Xsubpp_Version = 1.1 if $text =~ /^Warning: ignored semicolon/ ;
  7203. ! 
  7204. !     # none of the above, so 1.0
  7205. !     return $Xsubpp_Version = "1.0" ;
  7206.   }
  7207.   
  7208. ! =item top_targets (o)
  7209.   
  7210. ! Defines the targets all, subdirs, config, and O_FILES
  7211.   
  7212.   =cut
  7213.   
  7214. ! sub top_targets {
  7215. ! # --- Target Sections ---
  7216.   
  7217. !     my($self) = shift;
  7218. !     my(@m);
  7219. !     push @m, '
  7220. ! #all ::    config $(INST_PM) subdirs linkext manifypods
  7221.   
  7222. ! all :: pure_all manifypods
  7223. !     '.$self->{NOECHO}.'$(NOOP)
  7224.   
  7225. ! pure_all :: config pm_to_blib subdirs linkext
  7226. !     '.$self->{NOECHO}.'$(NOOP)
  7227.   
  7228. ! subdirs :: $(MYEXTLIB)
  7229. !     '.$self->{NOECHO}.'$(NOOP)
  7230.   
  7231. ! config :: '.$self->{MAKEFILE}.' $(INST_LIBDIR)/.exists
  7232. !     '.$self->{NOECHO}.'$(NOOP)
  7233. ! 
  7234. ! config :: $(INST_ARCHAUTODIR)/.exists
  7235. !     '.$self->{NOECHO}.'$(NOOP)
  7236. ! 
  7237. ! config :: $(INST_AUTODIR)/.exists
  7238. !     '.$self->{NOECHO}.'$(NOOP)
  7239. ! ';
  7240. ! 
  7241. !     push @m, qq{
  7242. ! config :: Version_check
  7243. !     $self->{NOECHO}\$(NOOP)
  7244. ! 
  7245. ! } unless $self->{PARENT} or ($self->{PERL_SRC} && $self->{INSTALLDIRS} eq "perl") or $self->{NO_VC};
  7246. ! 
  7247. !     push @m, $self->dir_target(qw[$(INST_AUTODIR) $(INST_LIBDIR) $(INST_ARCHAUTODIR)]);
  7248. ! 
  7249. !     if (%{$self->{MAN1PODS}}) {
  7250. !     push @m, qq[
  7251. ! config :: \$(INST_MAN1DIR)/.exists
  7252. !     $self->{NOECHO}\$(NOOP)
  7253. ! 
  7254. ! ];
  7255. !     push @m, $self->dir_target(qw[$(INST_MAN1DIR)]);
  7256.       }
  7257. !     if (%{$self->{MAN3PODS}}) {
  7258. !     push @m, qq[
  7259. ! config :: \$(INST_MAN3DIR)/.exists
  7260. !     $self->{NOECHO}\$(NOOP)
  7261. ! 
  7262. ! ];
  7263. !     push @m, $self->dir_target(qw[$(INST_MAN3DIR)]);
  7264.       }
  7265.   
  7266. !     push @m, '
  7267. ! $(O_FILES): $(H_FILES)
  7268. ! ' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
  7269.   
  7270. !     push @m, q{
  7271. ! help:
  7272. !     perldoc ExtUtils::MakeMaker
  7273. ! };
  7274.   
  7275. !     push @m, q{
  7276. ! Version_check:
  7277. !     }.$self->{NOECHO}.q{$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) \
  7278. !         -MExtUtils::MakeMaker=Version_check \
  7279. !         -e 'Version_check("$(MM_VERSION)")'
  7280. ! };
  7281.   
  7282. !     join('',@m);
  7283.   }
  7284.   
  7285.   =item writedoc
  7286. ***************
  7287. *** 3267,3280 ****
  7288.   sub writedoc {
  7289.   # --- perllocal.pod section ---
  7290.       my($self,$what,$name,@attribs)=@_;
  7291. -     unless (ref $self){
  7292. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7293. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7294. -     }
  7295.       my $time = localtime;
  7296.       print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
  7297.       print join "\n\n=item *\n\n", map("C<$_>",@attribs);
  7298.       print "\n\n=back\n\n";
  7299.   }
  7300.   
  7301.   1;
  7302. --- 3068,3109 ----
  7303.   sub writedoc {
  7304.   # --- perllocal.pod section ---
  7305.       my($self,$what,$name,@attribs)=@_;
  7306.       my $time = localtime;
  7307.       print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
  7308.       print join "\n\n=item *\n\n", map("C<$_>",@attribs);
  7309.       print "\n\n=back\n\n";
  7310. + }
  7311. + 
  7312. + =item xs_c (o)
  7313. + 
  7314. + Defines the suffix rules to compile XS files to C.
  7315. + 
  7316. + =cut
  7317. + 
  7318. + sub xs_c {
  7319. +     my($self) = shift;
  7320. +     return '' unless $self->needs_linking();
  7321. +     '
  7322. + .xs.c:
  7323. +     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >$*.tc && mv $*.tc $@
  7324. + ';
  7325. + }
  7326. + 
  7327. + =item xs_o (o)
  7328. + 
  7329. + Defines suffix rules to go from XS to object files directly. This is
  7330. + only intended for broken make implementations.
  7331. + 
  7332. + =cut
  7333. + 
  7334. + sub xs_o {    # many makes are too dumb to use xs_c then c_o
  7335. +     my($self) = shift;
  7336. +     return '' unless $self->needs_linking();
  7337. +     '
  7338. + .xs$(OBJ_EXT):
  7339. +     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && mv xstmp.c $*.c
  7340. +     $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
  7341. + ';
  7342.   }
  7343.   
  7344.   1;
  7345.  
  7346.  
  7347. #: lib/ExtUtils/MM_VMS.pm
  7348. #:   Update to MakeMaker 5.34
  7349. diff -crN perl5.002_01/lib/ExtUtils/MM_VMS.pm perl5.003/lib/ExtUtils/MM_VMS.pm
  7350. *** perl5.002_01/lib/ExtUtils/MM_VMS.pm    Mon Mar 25 01:04:31 1996
  7351. --- perl5.003/lib/ExtUtils/MM_VMS.pm    Mon Jun 24 17:56:22 1996
  7352. ***************
  7353. *** 6,12 ****
  7354.   #   Author:  Charles Bailey  bailey@genetics.upenn.edu
  7355.   
  7356.   package ExtUtils::MM_VMS;
  7357. ! $ExtUtils::MM_VMS::Revision=$ExtUtils::MM_VMS::Revision = '5.26 (17-Mar-1996)';
  7358.   unshift @MM::ISA, 'ExtUtils::MM_VMS';
  7359.   
  7360.   use Config;
  7361. --- 6,12 ----
  7362.   #   Author:  Charles Bailey  bailey@genetics.upenn.edu
  7363.   
  7364.   package ExtUtils::MM_VMS;
  7365. ! $ExtUtils::MM_VMS::Revision=$ExtUtils::MM_VMS::Revision = '5.35 (23-Jun-1996)';
  7366.   unshift @MM::ISA, 'ExtUtils::MM_VMS';
  7367.   
  7368.   use Config;
  7369. ***************
  7370. *** 42,51 ****
  7371.   
  7372.   sub eliminate_macros {
  7373.       my($self,$path) = @_;
  7374. -     unless (ref $self){
  7375. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7376. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7377. -     }
  7378.       unless ($path) {
  7379.       print "eliminate_macros('') = ||\n" if $Verbose >= 3;
  7380.       return '';
  7381. --- 42,47 ----
  7382. ***************
  7383. *** 81,90 ****
  7384.   
  7385.   sub fixpath {
  7386.       my($self,$path,$force_path) = @_;
  7387. -     unless (ref $self){
  7388. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7389. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7390. -     }
  7391.       unless ($path) {
  7392.       print "eliminate_macros('') = ||\n" if $Verbose >= 3;
  7393.       return '';
  7394. --- 77,82 ----
  7395. ***************
  7396. *** 123,132 ****
  7397.   
  7398.   sub catdir {
  7399.       my($self,@dirs) = @_;
  7400. -     unless (ref $self){
  7401. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7402. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7403. -     }
  7404.       my($dir) = pop @dirs;
  7405.       @dirs = grep($_,@dirs);
  7406.       my($rslt);
  7407. --- 115,120 ----
  7408. ***************
  7409. *** 151,160 ****
  7410.   
  7411.   sub catfile {
  7412.       my($self,@files) = @_;
  7413. -     unless (ref $self){
  7414. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7415. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7416. -     }
  7417.       my($file) = pop @files;
  7418.       @files = grep($_,@files);
  7419.       my($rslt);
  7420. --- 139,144 ----
  7421. ***************
  7422. *** 173,178 ****
  7423. --- 157,192 ----
  7424.       $rslt;
  7425.   }
  7426.   
  7427. + =item curdir (override)
  7428. + 
  7429. + Returns a string representing of the current directory.
  7430. + 
  7431. + =cut
  7432. + 
  7433. + sub curdir {
  7434. +     return '[]';
  7435. + }
  7436. + 
  7437. + =item rootdir (override)
  7438. + 
  7439. + Returns a string representing of the root directory.
  7440. + 
  7441. + =cut
  7442. + 
  7443. + sub rootdir {
  7444. +     return '';
  7445. + }
  7446. + 
  7447. + =item updir (override)
  7448. + 
  7449. + Returns a string representing of the parent directory.
  7450. + 
  7451. + =cut
  7452. + 
  7453. + sub updir {
  7454. +     return '[-]';
  7455. + }
  7456. + 
  7457.   package ExtUtils::MM_VMS;
  7458.   
  7459.   sub ExtUtils::MM_VMS::guess_name;
  7460. ***************
  7461. *** 226,235 ****
  7462.   sub AUTOLOAD {
  7463.       my $code;
  7464.       if (defined fileno(DATA)) {
  7465. !     while (<DATA>) {
  7466. !         last if /^__END__/;
  7467. !         $code .= $_;
  7468. !     }
  7469.       close DATA;
  7470.       eval $code;
  7471.       if ($@) {
  7472. --- 240,251 ----
  7473.   sub AUTOLOAD {
  7474.       my $code;
  7475.       if (defined fileno(DATA)) {
  7476. !     my $fh = select DATA;
  7477. !     my $o = $/;            # For future reads from the file.
  7478. !     $/ = "\n__END__\n";
  7479. !     $code = <DATA>;
  7480. !     $/ = $o;
  7481. !     select $fh;
  7482.       close DATA;
  7483.       eval $code;
  7484.       if ($@) {
  7485. ***************
  7486. *** 245,251 ****
  7487.   
  7488.   1;
  7489.   
  7490. ! __DATA__
  7491.   
  7492.   =head2 SelfLoaded methods
  7493.   
  7494. --- 261,267 ----
  7495.   
  7496.   1;
  7497.   
  7498. ! #__DATA__
  7499.   
  7500.   =head2 SelfLoaded methods
  7501.   
  7502. ***************
  7503. *** 268,285 ****
  7504.   
  7505.   sub guess_name {
  7506.       my($self) = @_;
  7507. -     unless (ref $self){
  7508. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7509. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7510. -     }
  7511.       my($defname,$defpm);
  7512.       local *PM;
  7513.   
  7514. !     $defname = $ENV{'DEFAULT'};
  7515. !     $defname =~ s:.*?([^.\]]+)\]:$1:
  7516. !         unless ($defname =~ s:.*[.\[]ext\.(.*)\]:$1:i);
  7517. !     $defname =~ s#[.\]]#::#g;
  7518. !     ($defpm = $defname) =~ s/.*:://;
  7519.       if (open(PM,"${defpm}.pm")){
  7520.           while (<PM>) {
  7521.               if (/^\s*package\s+([^;]+)/i) {
  7522. --- 284,295 ----
  7523.   
  7524.   sub guess_name {
  7525.       my($self) = @_;
  7526.       my($defname,$defpm);
  7527.       local *PM;
  7528.   
  7529. !     $defname = basename(fileify($ENV{'DEFAULT'}));
  7530. !     $defname =~ s![\d\-_]*\.dir.*$!!;  # Clip off .dir;1 suffix, and package version
  7531. !     $defpm = $defname;
  7532.       if (open(PM,"${defpm}.pm")){
  7533.           while (<PM>) {
  7534.               if (/^\s*package\s+([^;]+)/i) {
  7535. ***************
  7536. *** 296,302 ****
  7537.           print STDOUT "Warning (non-fatal): Couldn't find ${defpm}.pm;\n\t",
  7538.                        "defaulting package name to $defname\n";
  7539.       }
  7540. !     $defname =~ s#[\-_][\d.\-]+$##;
  7541.       $defname;
  7542.   }
  7543.   
  7544. --- 306,312 ----
  7545.           print STDOUT "Warning (non-fatal): Couldn't find ${defpm}.pm;\n\t",
  7546.                        "defaulting package name to $defname\n";
  7547.       }
  7548. !     $defname =~ s#[\d.\-_]+$##;
  7549.       $defname;
  7550.   }
  7551.   
  7552. ***************
  7553. *** 309,318 ****
  7554.   
  7555.   sub find_perl{
  7556.       my($self, $ver, $names, $dirs, $trace) = @_;
  7557. -     unless (ref $self){
  7558. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7559. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7560. -     }
  7561.       my($name,$dir,$vmsfile,@sdirs,@snames,@cand);
  7562.       # Check in relative directories first, so we pick up the current
  7563.       # version of Perl if we're running MakeMaker as part of the main build.
  7564. --- 319,324 ----
  7565. ***************
  7566. *** 344,349 ****
  7567. --- 350,356 ----
  7568.       foreach $name (@cand) {
  7569.       print "Checking $name\n" if ($trace >= 2);
  7570.       next unless $vmsfile = $self->maybe_command($name);
  7571. +     $vmsfile =~ s/;[\d\-]*$//;  # Clip off version number; we can use a newer version as well
  7572.       print "Executing $vmsfile\n" if ($trace >= 2);
  7573.       if (`MCR $vmsfile -e "require $ver; print ""VER_OK\n"""` =~ /VER_OK/) {
  7574.           print "Using PERL=MCR $vmsfile\n" if $trace;
  7575. ***************
  7576. *** 475,484 ****
  7577.   
  7578.   sub init_others {
  7579.       my($self) = @_;
  7580. -     unless (ref $self){
  7581. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7582. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7583. -     }
  7584.   
  7585.       $self->{NOOP} = "\t@ Continue";
  7586.       $self->{FIRST_MAKEFILE} ||= 'Descrip.MMS';
  7587. --- 482,487 ----
  7588. ***************
  7589. *** 505,514 ****
  7590.   
  7591.   sub constants {
  7592.       my($self) = @_;
  7593. -     unless (ref $self){
  7594. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7595. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7596. -     }
  7597.       my(@m,$def,$macro);
  7598.   
  7599.       if ($self->{DEFINE} ne '') {
  7600. --- 508,513 ----
  7601. ***************
  7602. *** 543,552 ****
  7603.       $self->{ROOTEXT} = $self->{ROOTEXT} ? $self->fixpath($self->{ROOTEXT},1)
  7604.                                           : '[]';
  7605.       foreach $macro ( qw [
  7606. !             INST_LIB INST_ARCHLIB INST_EXE INSTALLPRIVLIB INSTALLARCHLIB
  7607. !             INSTALLBIN PERL_LIB PERL_ARCHLIB PERL_INC PERL_SRC FULLEXT
  7608. !             INST_MAN1DIR INSTALLMAN1DIR INST_MAN3DIR INSTALLMAN3DIR
  7609. !             INSTALLSITELIB INSTALLSITEARCH SITELIBEXP SITEARCHEXP ] ) {
  7610.       next unless defined $self->{$macro};
  7611.       $self->{$macro} = $self->fixpath($self->{$macro},1);
  7612.       }
  7613. --- 542,552 ----
  7614.       $self->{ROOTEXT} = $self->{ROOTEXT} ? $self->fixpath($self->{ROOTEXT},1)
  7615.                                           : '[]';
  7616.       foreach $macro ( qw [
  7617. !             INST_BIN INST_SCRIPT INST_LIB INST_ARCHLIB INST_EXE INSTALLPRIVLIB
  7618. !             INSTALLARCHLIB INSTALLSCRIPT INSTALLBIN PERL_LIB PERL_ARCHLIB
  7619. !             PERL_INC PERL_SRC FULLEXT INST_MAN1DIR INSTALLMAN1DIR
  7620. !             INST_MAN3DIR INSTALLMAN3DIR INSTALLSITELIB INSTALLSITEARCH
  7621. !             SITELIBEXP SITEARCHEXP ] ) {
  7622.       next unless defined $self->{$macro};
  7623.       $self->{$macro} = $self->fixpath($self->{$macro},1);
  7624.       }
  7625. ***************
  7626. *** 561,576 ****
  7627.       $self->{$macro} = $self->fixpath($self->{$macro});
  7628.       }
  7629.   
  7630. !     for $tmp (qw/
  7631.             AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION VERSION_SYM XS_VERSION
  7632. !           INST_LIB INST_ARCHLIB INST_EXE PREFIX INSTALLDIRS INSTALLPRIVLIB
  7633. !           INSTALLARCHLIB INSTALLSITELIB INSTALLSITEARCH INSTALLBIN PERL_LIB
  7634.             PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
  7635.             FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC PERL_VMS
  7636.             PERL_INC PERL FULLPERL
  7637.             / ) {
  7638. !     next unless defined $self->{$tmp};
  7639. !     push @m, "$tmp = $self->{$tmp}\n";
  7640.       }
  7641.   
  7642.   
  7643. --- 561,577 ----
  7644.       $self->{$macro} = $self->fixpath($self->{$macro});
  7645.       }
  7646.   
  7647. !     foreach $macro (qw/
  7648.             AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION VERSION_SYM XS_VERSION
  7649. !           INST_BIN INST_EXE INST_LIB INST_ARCHLIB INST_SCRIPT PREFIX
  7650. !           INSTALLDIRS INSTALLPRIVLIB  INSTALLARCHLIB INSTALLSITELIB
  7651. !           INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT PERL_LIB
  7652.             PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
  7653.             FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC PERL_VMS
  7654.             PERL_INC PERL FULLPERL
  7655.             / ) {
  7656. !     next unless defined $self->{$macro};
  7657. !     push @m, "$macro = $self->{$macro}\n";
  7658.       }
  7659.   
  7660.   
  7661. ***************
  7662. *** 587,604 ****
  7663.   
  7664.   # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  7665.   # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  7666. ! # ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)
  7667.   # DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
  7668.   ];
  7669.   
  7670.       for $tmp (qw/
  7671. !           FULLEXT BASEEXT ROOTEXT DLBASE VERSION_FROM INC DEFINE OBJECT
  7672.             LDFROM LINKTYPE
  7673.             /    ) {
  7674.       next unless defined $self->{$tmp};
  7675.       push @m, "$tmp = $self->{$tmp}\n";
  7676.       }
  7677.   
  7678.       push @m,'
  7679.   
  7680.   # Handy lists of source code files:
  7681. --- 588,623 ----
  7682.   
  7683.   # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  7684.   # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  7685. ! # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
  7686.   # DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
  7687.   ];
  7688.   
  7689.       for $tmp (qw/
  7690. !           FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
  7691.             LDFROM LINKTYPE
  7692.             /    ) {
  7693.       next unless defined $self->{$tmp};
  7694.       push @m, "$tmp = $self->{$tmp}\n";
  7695.       }
  7696.   
  7697. +     for $tmp (qw/ XS MAN1PODS MAN3PODS PM /) {
  7698. +     next unless defined $self->{$tmp};
  7699. +     my(%tmp,$key);
  7700. +     for $key (keys %{$self->{$tmp}}) {
  7701. +         $tmp{$self->fixpath($key)} = $self->fixpath($self->{$tmp}{$key});
  7702. +     }
  7703. +     $self->{$tmp} = \%tmp;
  7704. +     }
  7705. + 
  7706. +     for $tmp (qw/ C O_FILES H /) {
  7707. +     next unless defined $self->{$tmp};
  7708. +     my(@tmp,$val);
  7709. +     for $val (@{$self->{$tmp}}) {
  7710. +         push(@tmp,$self->fixpath($val));
  7711. +     }
  7712. +     $self->{$tmp} = \@tmp;
  7713. +     }
  7714. + 
  7715.       push @m,'
  7716.   
  7717.   # Handy lists of source code files:
  7718. ***************
  7719. *** 619,625 ****
  7720.       }
  7721.   
  7722.   push @m,"
  7723. ! .SUFFIXES : .xs .c .cpp .cxx \$(OBJ_EXT)
  7724.   
  7725.   # Here is the Config.pm that we are using/depend on
  7726.   CONFIGDEP = \$(PERL_ARCHLIB)Config.pm, \$(PERL_INC)config.h \$(VERSION_FROM)
  7727. --- 638,644 ----
  7728.       }
  7729.   
  7730.   push @m,"
  7731. ! .SUFFIXES : \$(OBJ_EXT) .c .cpp .cxx .xs
  7732.   
  7733.   # Here is the Config.pm that we are using/depend on
  7734.   CONFIGDEP = \$(PERL_ARCHLIB)Config.pm, \$(PERL_INC)config.h \$(VERSION_FROM)
  7735. ***************
  7736. *** 648,655 ****
  7737.   ';
  7738.       }
  7739.   
  7740. !     $self->{TO_INST_PM} = [ map($self->fixpath($_),sort keys %{$self->{PM}}) ];
  7741. !     $self->{PM_TO_BLIB} = [ map($self->fixpath($_),%{$self->{PM}}) ];
  7742.       push @m,'
  7743.   TO_INST_PM = ',join(', ',@{$self->{TO_INST_PM}}),'
  7744.   
  7745. --- 667,674 ----
  7746.   ';
  7747.       }
  7748.   
  7749. !     $self->{TO_INST_PM} = [ sort keys %{$self->{PM}} ];
  7750. !     $self->{PM_TO_BLIB} = [ %{$self->{PM}} ];
  7751.       push @m,'
  7752.   TO_INST_PM = ',join(', ',@{$self->{TO_INST_PM}}),'
  7753.   
  7754. ***************
  7755. *** 669,678 ****
  7756.   
  7757.   sub const_loadlibs{
  7758.       my($self) = @_;
  7759. -     unless (ref $self){
  7760. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7761. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7762. -     }
  7763.       my (@m);
  7764.       push @m, "
  7765.   # $self->{NAME} might depend on some other libraries.
  7766. --- 688,693 ----
  7767. ***************
  7768. *** 726,735 ****
  7769.   
  7770.   sub cflags {
  7771.       my($self,$libperl) = @_;
  7772. -     unless (ref $self){
  7773. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7774. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7775. -     }
  7776.       my($quals) = $Config{'ccflags'};
  7777.       my($name,$sys,@m);
  7778.       my($optimize) = '/Optimize';
  7779. --- 741,746 ----
  7780. ***************
  7781. *** 796,805 ****
  7782.   
  7783.   sub const_cccmd {
  7784.       my($self,$libperl) = @_;
  7785. -     unless (ref $self){
  7786. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7787. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7788. -     }
  7789.       my(@m);
  7790.   
  7791.       return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
  7792. --- 807,812 ----
  7793. ***************
  7794. *** 839,848 ****
  7795.   
  7796.   sub pm_to_blib {
  7797.       my($self) = @_;
  7798. -     unless (ref $self){
  7799. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7800. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7801. -     }
  7802.       my($line,$from,$to,@m);
  7803.       my($autodir) = $self->catdir('$(INST_LIB)','auto');
  7804.       my(@files) = @{$self->{PM_TO_BLIB}};
  7805. --- 846,851 ----
  7806. ***************
  7807. *** 861,866 ****
  7808. --- 864,870 ----
  7809.           $line = '';
  7810.       }
  7811.       }
  7812. +     push(@m,"\t$self->{NOECHO}\$(PERL) -e \"print '$line'\" >>.MM_tmp\n") if $line;
  7813.   
  7814.       push(@m,q[    $(PERL) "-I$(PERL_LIB)" "-MExtUtils::Install" -e "pm_to_blib({split(' ',<STDIN>)},'].$autodir.q[')" <.MM_tmp]);
  7815.       push(@m,qq[
  7816. ***************
  7817. *** 879,888 ****
  7818.   
  7819.   sub tool_autosplit{
  7820.       my($self, %attribs) = @_;
  7821. -     unless (ref $self){
  7822. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7823. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7824. -     }
  7825.       my($asl) = "";
  7826.       $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
  7827.       q{
  7828. --- 883,888 ----
  7829. ***************
  7830. *** 897,908 ****
  7831.   
  7832.   =cut
  7833.   
  7834. ! sub tool_xsubpp{
  7835.       my($self) = @_;
  7836. !     unless (ref $self){
  7837. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7838. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  7839. !     }
  7840.       my($xsdir) = $self->catdir($self->{PERL_LIB},'ExtUtils');
  7841.       # drop back to old location if xsubpp is not in new location yet
  7842.       $xsdir = $self->catdir($self->{PERL_SRC},'ext') unless (-f $self->catfile($xsdir,'xsubpp'));
  7843. --- 897,905 ----
  7844.   
  7845.   =cut
  7846.   
  7847. ! sub tool_xsubpp {
  7848.       my($self) = @_;
  7849. !     return '' unless $self->needs_linking;
  7850.       my($xsdir) = $self->catdir($self->{PERL_LIB},'ExtUtils');
  7851.       # drop back to old location if xsubpp is not in new location yet
  7852.       $xsdir = $self->catdir($self->{PERL_SRC},'ext') unless (-f $self->catfile($xsdir,'xsubpp'));
  7853. ***************
  7854. *** 960,965 ****
  7855. --- 957,963 ----
  7856.   {
  7857.       my($self,$xsubpp) = @_;
  7858.       my ($version) ;
  7859. +     return '' unless $self->needs_linking;
  7860.   
  7861.       # try to figure out the version number of the xsubpp on the system
  7862.   
  7863. ***************
  7864. *** 1021,1030 ****
  7865.   
  7866.   sub tools_other {
  7867.       my($self) = @_;
  7868. -     unless (ref $self){
  7869. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7870. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7871. -     }
  7872.       qq!
  7873.   # Assumes \$(MMS) invokes MMS or MMK
  7874.   # (It is assumed in some cases later that the default makefile name
  7875. --- 1019,1024 ----
  7876. ***************
  7877. *** 1041,1052 ****
  7878.   RM_F  = $self->{RM_F}
  7879.   RM_RF = $self->{RM_RF}
  7880.   UMASK_NULL = $self->{UMASK_NULL}
  7881.   MKPATH = Create/Directory
  7882.   EQUALIZE_TIMESTAMP = \$(PERL) -we "open F,qq{>\$ARGV[1]};close F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])"
  7883.   !. ($self->{PARENT} ? '' : 
  7884. ! q!WARN_IF_OLD_PACKLIST = \$(PERL) -e "if (-f \$ARGV[0]){print qq[WARNING: Old package found (\$ARGV[0]); please check for collisions\\n]}"
  7885.   MOD_INSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "install({split(' ',<STDIN>)},1);"
  7886. ! DOC_INSTALL = \$(PERL) -e "@ARGV=split('|',<STDIN>);print '=head3 ',scalar(localtime),': C<',shift,qq[>\\n\\n=over 4\\n\\n];while(\$key=shift && \$val=shift){print qq[=item *\\n\\nC<\$key: \$val>\\n\\n];}print qq[=back\\n\\n]"
  7887.   UNINSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "uninstall(\$ARGV[0],1);"
  7888.   !);
  7889.   }
  7890. --- 1035,1047 ----
  7891.   RM_F  = $self->{RM_F}
  7892.   RM_RF = $self->{RM_RF}
  7893.   UMASK_NULL = $self->{UMASK_NULL}
  7894. + NOOP = $self->{NOOP}
  7895.   MKPATH = Create/Directory
  7896.   EQUALIZE_TIMESTAMP = \$(PERL) -we "open F,qq{>\$ARGV[1]};close F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])"
  7897.   !. ($self->{PARENT} ? '' : 
  7898. ! qq!WARN_IF_OLD_PACKLIST = \$(PERL) -e "if (-f \$ARGV[0]){print qq[WARNING: Old package found (\$ARGV[0]); please check for collisions\\n]}"
  7899.   MOD_INSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "install({split(' ',<STDIN>)},1);"
  7900. ! DOC_INSTALL = \$(PERL) -e "\@ARGV=split('|',<STDIN>);print '=head3 ',scalar(localtime),': C<',shift,qq[>\\n\\n=over 4\\n\\n];while(\$key=shift && \$val=shift){print qq[=item *\\n\\nC<\$key: \$val>\\n\\n];}print qq[=back\\n\\n]"
  7901.   UNINSTALL = \$(PERL) "-I\$(PERL_LIB)" "-MExtUtils::Install" -e "uninstall(\$ARGV[0],1);"
  7902.   !);
  7903.   }
  7904. ***************
  7905. *** 1060,1069 ****
  7906.   
  7907.   sub dist {
  7908.       my($self, %attribs) = @_;
  7909. !     unless (ref $self){
  7910. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7911. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  7912. !     }
  7913.       $attribs{ZIPFLAGS}     ||= '-Vu';
  7914.       $attribs{COMPRESS}     ||= 'gzip';
  7915.       $attribs{SUFFIX}       ||= '-gz';
  7916. --- 1055,1061 ----
  7917.   
  7918.   sub dist {
  7919.       my($self, %attribs) = @_;
  7920. !     $attribs{VERSION}      ||= $self->{VERSION_SYM};
  7921.       $attribs{ZIPFLAGS}     ||= '-Vu';
  7922.       $attribs{COMPRESS}     ||= 'gzip';
  7923.       $attribs{SUFFIX}       ||= '-gz';
  7924. ***************
  7925. *** 1082,1091 ****
  7926.   
  7927.   sub c_o {
  7928.       my($self) = @_;
  7929. -     unless (ref $self){
  7930. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7931. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7932. -     }
  7933.       return '' unless $self->needs_linking();
  7934.       '
  7935.   .c$(OBJ_EXT) :
  7936. --- 1074,1079 ----
  7937. ***************
  7938. *** 1108,1117 ****
  7939.   
  7940.   sub xs_c {
  7941.       my($self) = @_;
  7942. -     unless (ref $self){
  7943. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7944. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7945. -     }
  7946.       return '' unless $self->needs_linking();
  7947.       '
  7948.   .xs.c :
  7949. --- 1096,1101 ----
  7950. ***************
  7951. *** 1127,1136 ****
  7952.   
  7953.   sub xs_o {    # many makes are too dumb to use xs_c then c_o
  7954.       my($self) = @_;
  7955. -     unless (ref $self){
  7956. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7957. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7958. -     }
  7959.       return '' unless $self->needs_linking();
  7960.       '
  7961.   .xs$(OBJ_EXT) :
  7962. --- 1111,1116 ----
  7963. ***************
  7964. *** 1147,1156 ****
  7965.   
  7966.   sub top_targets {
  7967.       my($self) = shift;
  7968. -     unless (ref $self){
  7969. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7970. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7971. -     }
  7972.       my(@m);
  7973.       push @m, '
  7974.   all :: pure_all manifypods
  7975. --- 1127,1132 ----
  7976. ***************
  7977. *** 1223,1232 ****
  7978.   
  7979.   sub dlsyms {
  7980.       my($self,%attribs) = @_;
  7981. -     unless (ref $self){
  7982. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7983. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7984. -     }
  7985.   
  7986.       return '' unless $self->needs_linking();
  7987.   
  7988. --- 1199,1204 ----
  7989. ***************
  7990. *** 1285,1294 ****
  7991.   
  7992.   sub dynamic_lib {
  7993.       my($self, %attribs) = @_;
  7994. -     unless (ref $self){
  7995. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  7996. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  7997. -     }
  7998.       return '' unless $self->needs_linking(); #might be because of a subdir
  7999.   
  8000.       return '' unless $self->has_link_code();
  8001. --- 1257,1262 ----
  8002. ***************
  8003. *** 1320,1329 ****
  8004.   
  8005.   sub dynamic_bs {
  8006.       my($self, %attribs) = @_;
  8007. -     unless (ref $self){
  8008. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8009. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8010. -     }
  8011.       return '
  8012.   BOOTSTRAP =
  8013.   ' unless $self->has_link_code();
  8014. --- 1288,1293 ----
  8015. ***************
  8016. *** 1353,1362 ****
  8017.   
  8018.   sub static_lib {
  8019.       my($self) = @_;
  8020. -     unless (ref $self){
  8021. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8022. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8023. -     }
  8024.       return '' unless $self->needs_linking();
  8025.   
  8026.       return '
  8027. --- 1317,1322 ----
  8028. ***************
  8029. *** 1387,1396 ****
  8030.   
  8031.   # sub installpm_x { # called by installpm perl file
  8032.   #     my($self, $dist, $inst, $splitlib) = @_;
  8033. - #     unless (ref $self){
  8034. - #     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8035. - #     $self = $ExtUtils::MakeMaker::Parent[-1];
  8036. - #     }
  8037.   #     if ($inst =~ m!#!) {
  8038.   #     warn "Warning: MM[SK] would have problems processing this file: $inst, SKIPPED\n";
  8039.   #     return '';
  8040. --- 1347,1352 ----
  8041. ***************
  8042. *** 1421,1439 ****
  8043.   
  8044.   =cut
  8045.   
  8046.   sub manifypods {
  8047.       my($self, %attribs) = @_;
  8048. !     unless (ref $self){
  8049. !     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8050. !     $self = $ExtUtils::MakeMaker::Parent[-1];
  8051. !     }
  8052. !     return "\nmanifypods :\n\t\$(NOOP)\n" unless %{$self->{MAN3PODS}};
  8053.       my($dist);
  8054. !     my($pod2man_exe,$found_pod2man);
  8055.       if (defined $self->{PERL_SRC}) {
  8056.       $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man');
  8057.       } else {
  8058. !     $pod2man_exe = $self->catfile($Config{bin},'pod2man');
  8059.       }
  8060.       if ($pod2man_exe = $self->perl_script($pod2man_exe)) { $found_pod2man = 1; }
  8061.       else {
  8062. --- 1377,1392 ----
  8063.   
  8064.   =cut
  8065.   
  8066. + 
  8067.   sub manifypods {
  8068.       my($self, %attribs) = @_;
  8069. !     return "\nmanifypods :\n\t\$(NOOP)\n" unless %{$self->{MAN3PODS}} or %{$self->{MAN1PODS}};
  8070.       my($dist);
  8071. !     my($pod2man_exe);
  8072.       if (defined $self->{PERL_SRC}) {
  8073.       $pod2man_exe = $self->catfile($self->{PERL_SRC},'pod','pod2man');
  8074.       } else {
  8075. !     $pod2man_exe = $self->catfile($Config{scriptdirexp},'pod2man');
  8076.       }
  8077.       if ($pod2man_exe = $self->perl_script($pod2man_exe)) { $found_pod2man = 1; }
  8078.       else {
  8079. ***************
  8080. *** 1478,1487 ****
  8081.   
  8082.   sub processPL {
  8083.       my($self) = @_;
  8084. -     unless (ref $self){
  8085. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8086. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8087. -     }
  8088.       return "" unless $self->{PL_FILES};
  8089.       my(@m, $plfile);
  8090.       foreach $plfile (sort keys %{$self->{PL_FILES}}) {
  8091. --- 1431,1436 ----
  8092. ***************
  8093. *** 1506,1520 ****
  8094.   
  8095.   sub installbin {
  8096.       my($self) = @_;
  8097. -     unless (ref $self){
  8098. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8099. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8100. -     }
  8101.       return '' unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
  8102.       return '' unless @{$self->{EXE_FILES}};
  8103.       my(@m, $from, $to, %fromto, @to, $line);
  8104.       for $from (@{$self->{EXE_FILES}}) {
  8105. !     my($path) = '$(INST_EXE)' . basename($from);
  8106.       local($_) = $path;  # backward compatibility
  8107.       $to = $self->libscan($path);
  8108.       print "libscan($from) => '$to'\n" if ($Verbose >=2);
  8109. --- 1455,1465 ----
  8110.   
  8111.   sub installbin {
  8112.       my($self) = @_;
  8113.       return '' unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
  8114.       return '' unless @{$self->{EXE_FILES}};
  8115.       my(@m, $from, $to, %fromto, @to, $line);
  8116.       for $from (@{$self->{EXE_FILES}}) {
  8117. !     my($path) = '$(INST_SCRIPT)' . basename($from);
  8118.       local($_) = $path;  # backward compatibility
  8119.       $to = $self->libscan($path);
  8120.       print "libscan($from) => '$to'\n" if ($Verbose >=2);
  8121. ***************
  8122. *** 1537,1543 ****
  8123.       }
  8124.       else { $line .= " $to"; }
  8125.       }
  8126. !     push @m, "\t\$(RM_F) $line\n\n";
  8127.   
  8128.       while (($from,$to) = each %fromto) {
  8129.       last unless defined $from;
  8130. --- 1482,1488 ----
  8131.       }
  8132.       else { $line .= " $to"; }
  8133.       }
  8134. !     push @m, "\t\$(RM_F) $line\n\n" if $line;
  8135.   
  8136.       while (($from,$to) = each %fromto) {
  8137.       last unless defined $from;
  8138. ***************
  8139. *** 1562,1571 ****
  8140.   
  8141.   sub subdir_x {
  8142.       my($self, $subdir) = @_;
  8143. -     unless (ref $self){
  8144. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8145. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8146. -     }
  8147.       my(@m,$key);
  8148.       $subdir = $self->fixpath($subdir,1);
  8149.       push @m, '
  8150. --- 1507,1512 ----
  8151. ***************
  8152. *** 1589,1598 ****
  8153.   
  8154.   sub clean {
  8155.       my($self, %attribs) = @_;
  8156. -     unless (ref $self){
  8157. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8158. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8159. -     }
  8160.       my(@m,$dir);
  8161.       push @m, '
  8162.   # Delete temporary files but do not touch installed files. We don\'t delete
  8163. --- 1530,1535 ----
  8164. ***************
  8165. *** 1621,1627 ****
  8166.       }
  8167.       else { $line .= " $file"; }
  8168.       }
  8169. !     push @m, "\t\$(RM_RF) $line\n\n";
  8170.       push(@m, "    $attribs{POSTOP}\n") if $attribs{POSTOP};
  8171.       join('', @m);
  8172.   }
  8173. --- 1558,1564 ----
  8174.       }
  8175.       else { $line .= " $file"; }
  8176.       }
  8177. !     push @m, "\t\$(RM_RF) $line\n" if line;
  8178.       push(@m, "    $attribs{POSTOP}\n") if $attribs{POSTOP};
  8179.       join('', @m);
  8180.   }
  8181. ***************
  8182. *** 1634,1643 ****
  8183.   
  8184.   sub realclean {
  8185.       my($self, %attribs) = @_;
  8186. -     unless (ref $self){
  8187. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8188. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8189. -     }
  8190.       my(@m);
  8191.       push(@m,'
  8192.   # Delete temporary files (via clean) and also delete installed files
  8193. --- 1571,1576 ----
  8194. ***************
  8195. *** 1655,1661 ****
  8196.       # combination of macros).  In order to stay below DCL's 255 char limit,
  8197.       # we put only 2 on a line.
  8198.       my($file,$line,$fcnt);
  8199. !     my(@files) = qw{ $(INST_DYNAMIC) $(INST_STATIC) $(INST_BOOT) $(OBJECT) $(MAKEFILE) $(MAKEFILE)_old };
  8200.       push(@files, values %{$self->{PM}});
  8201.       $line = '';  #avoid unitialized var warning
  8202.       foreach $file (@files) {
  8203. --- 1588,1597 ----
  8204.       # combination of macros).  In order to stay below DCL's 255 char limit,
  8205.       # we put only 2 on a line.
  8206.       my($file,$line,$fcnt);
  8207. !     my(@files) = qw{ $(MAKEFILE) $(MAKEFILE)_old };
  8208. !     if ($self->has_link_code) {
  8209. !     push(@files,qw{ $(INST_DYNAMIC) $(INST_STATIC) $(INST_BOOT) $(OBJECT) });
  8210. !     }
  8211.       push(@files, values %{$self->{PM}});
  8212.       $line = '';  #avoid unitialized var warning
  8213.       foreach $file (@files) {
  8214. ***************
  8215. *** 1667,1673 ****
  8216.       }
  8217.       else { $line .= " $file"; }
  8218.       }
  8219. !     push @m, "\t\$(RM_F) $line\n";
  8220.       if ($attribs{FILES} && ref $attribs{FILES} eq 'ARRAY') {
  8221.       $line = '';
  8222.       foreach $file (@{$attribs{'FILES'}}) {
  8223. --- 1603,1609 ----
  8224.       }
  8225.       else { $line .= " $file"; }
  8226.       }
  8227. !     push @m, "\t\$(RM_F) $line\n" if $line;
  8228.       if ($attribs{FILES} && ref $attribs{FILES} eq 'ARRAY') {
  8229.       $line = '';
  8230.       foreach $file (@{$attribs{'FILES'}}) {
  8231. ***************
  8232. *** 1678,1684 ****
  8233.           }
  8234.           else { $line .= " $file"; }
  8235.       }
  8236. !     push @m, "\t\$(RM_RF) $line\n";
  8237.       }
  8238.       push(@m, "    $attribs{POSTOP}\n")                     if $attribs{POSTOP};
  8239.       join('', @m);
  8240. --- 1614,1620 ----
  8241.           }
  8242.           else { $line .= " $file"; }
  8243.       }
  8244. !     push @m, "\t\$(RM_RF) $line\n" if $line;
  8245.       }
  8246.       push(@m, "    $attribs{POSTOP}\n")                     if $attribs{POSTOP};
  8247.       join('', @m);
  8248. ***************
  8249. *** 1692,1701 ****
  8250.   
  8251.   sub dist_basics {
  8252.       my($self) = @_;
  8253. -     unless (ref $self){
  8254. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8255. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8256. -     }
  8257.   '
  8258.   distclean :: realclean distcheck
  8259.       $(NOOP)
  8260. --- 1628,1633 ----
  8261. ***************
  8262. *** 1711,1717 ****
  8263.   ';
  8264.   }
  8265.   
  8266. ! =sub dist_core (override)
  8267.   
  8268.   Syntax for invoking F<VMS_Share> differs from that for Unix F<shar>,
  8269.   so C<shdist> target actions are VMS-specific.
  8270. --- 1643,1649 ----
  8271.   ';
  8272.   }
  8273.   
  8274. ! =item dist_core (override)
  8275.   
  8276.   Syntax for invoking F<VMS_Share> differs from that for Unix F<shar>,
  8277.   so C<shdist> target actions are VMS-specific.
  8278. ***************
  8279. *** 1720,1729 ****
  8280.   
  8281.   sub dist_core {
  8282.       my($self) = @_;
  8283. -     unless (ref $self){
  8284. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8285. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8286. -     }
  8287.   q[
  8288.   dist : $(DIST_DEFAULT)
  8289.       ].$self->{NOECHO}.q[$(PERL) -le "print 'Warning: $m older than $vf' if -e ($vf = '$(VERSION_FROM)') && -M $vf < -M ($m = '$(MAKEFILE)'"
  8290. --- 1652,1657 ----
  8291. ***************
  8292. *** 1737,1742 ****
  8293. --- 1665,1678 ----
  8294.       $(RM_RF) $(DISTVNAME)
  8295.       $(POSTOP)
  8296.   
  8297. + $(DISTVNAME).tar$(SUFFIX) : distdir
  8298. +     $(PREOP)
  8299. +     $(TO_UNIX)
  8300. +     $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar $(SRC)
  8301. +     $(RM_RF) $(DISTVNAME)
  8302. +     $(COMPRESS) $(DISTVNAME).tar
  8303. +     $(POSTOP)
  8304. + 
  8305.   shdist : distdir
  8306.       $(PREOP)
  8307.       $(SHARE) $(SRC) $(DISTVNAME).share
  8308. ***************
  8309. *** 1753,1762 ****
  8310.   
  8311.   sub dist_dir {
  8312.       my($self) = @_;
  8313. -     unless (ref $self){
  8314. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8315. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8316. -     }
  8317.   q{
  8318.   distdir :
  8319.       $(RM_RF) $(DISTVNAME)
  8320. --- 1689,1694 ----
  8321. ***************
  8322. *** 1774,1783 ****
  8323.   
  8324.   sub dist_test {
  8325.       my($self) = @_;
  8326. -     unless (ref $self){
  8327. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8328. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8329. -     }
  8330.   q{
  8331.   disttest : distdir
  8332.       startdir = F$Environment("Default")
  8333. --- 1706,1711 ----
  8334. ***************
  8335. *** 1800,1809 ****
  8336.   
  8337.   sub install {
  8338.       my($self, %attribs) = @_;
  8339. -     unless (ref $self){
  8340. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8341. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8342. -     }
  8343.       my(@m,@docfiles);
  8344.   
  8345.       if ($self->{EXE_FILES}) {
  8346. --- 1728,1733 ----
  8347. ***************
  8348. *** 1849,1855 ****
  8349.       ].$self->{NOECHO}.q[$(PERL) -e "print 'write ].$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
  8350.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_LIB) $(INSTALLPRIVLIB) '" >>.MM_tmp
  8351.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLARCHLIB) '" >>.MM_tmp
  8352. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_EXE) $(INSTALLBIN) '" >>.MM_tmp
  8353.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
  8354.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
  8355.       $(MOD_INSTALL) <.MM_tmp
  8356. --- 1773,1780 ----
  8357.       ].$self->{NOECHO}.q[$(PERL) -e "print 'write ].$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
  8358.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_LIB) $(INSTALLPRIVLIB) '" >>.MM_tmp
  8359.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLARCHLIB) '" >>.MM_tmp
  8360. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_BIN) $(INSTALLBIN) '" >>.MM_tmp
  8361. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_SCRIPT) $(INSTALLSCRIPT) '" >>.MM_tmp
  8362.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
  8363.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
  8364.       $(MOD_INSTALL) <.MM_tmp
  8365. ***************
  8366. *** 1862,1868 ****
  8367.       ].$self->{NOECHO}.q[$(PERL) -e "print 'write ].$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
  8368.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_LIB) $(INSTALLSITELIB) '" >>.MM_tmp
  8369.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLSITEARCH) '" >>.MM_tmp
  8370. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_EXE) $(INSTALLBIN) '" >>.MM_tmp
  8371.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
  8372.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
  8373.       $(MOD_INSTALL) <.MM_tmp
  8374. --- 1787,1794 ----
  8375.       ].$self->{NOECHO}.q[$(PERL) -e "print 'write ].$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q[ '" >>.MM_tmp
  8376.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_LIB) $(INSTALLSITELIB) '" >>.MM_tmp
  8377.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_ARCHLIB) $(INSTALLSITEARCH) '" >>.MM_tmp
  8378. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_BIN) $(INSTALLBIN) '" >>.MM_tmp
  8379. !     ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_SCRIPT) $(INSTALLSCRIPT) '" >>.MM_tmp
  8380.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN1DIR) $(INSTALLMAN1DIR) '" >>.MM_tmp
  8381.       ].$self->{NOECHO}.q[$(PERL) -e "print '$(INST_MAN3DIR) $(INSTALLMAN3DIR) '" >>.MM_tmp
  8382.       $(MOD_INSTALL) <.MM_tmp
  8383. ***************
  8384. *** 1912,1921 ****
  8385.   
  8386.   sub perldepend {
  8387.       my($self) = @_;
  8388. -     unless (ref $self){
  8389. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8390. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8391. -     }
  8392.       my(@m);
  8393.   
  8394.       push @m, '
  8395. --- 1838,1843 ----
  8396. ***************
  8397. *** 1970,1979 ****
  8398.   
  8399.   sub makefile {
  8400.       my($self) = @_;
  8401. -     unless (ref $self){
  8402. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8403. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8404. -     }
  8405.       my(@m,@cmd);
  8406.       # We do not know what target was originally specified so we
  8407.       # must force a manual rerun to be sure. But as it should only
  8408. --- 1892,1897 ----
  8409. ***************
  8410. *** 2006,2020 ****
  8411.   
  8412.   sub test {
  8413.       my($self, %attribs) = @_;
  8414. -     unless (ref $self){
  8415. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8416. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8417. -     }
  8418.       my($tests) = $attribs{TESTS} || ( -d 't' ? 't/*.t' : '');
  8419.       my(@m);
  8420.       push @m,"
  8421.   TEST_VERBOSE = 0
  8422.   TEST_TYPE = test_\$(LINKTYPE)
  8423.   
  8424.   test :: \$(TEST_TYPE)
  8425.       \$(NOOP)
  8426. --- 1924,1936 ----
  8427.   
  8428.   sub test {
  8429.       my($self, %attribs) = @_;
  8430.       my($tests) = $attribs{TESTS} || ( -d 't' ? 't/*.t' : '');
  8431.       my(@m);
  8432.       push @m,"
  8433.   TEST_VERBOSE = 0
  8434.   TEST_TYPE = test_\$(LINKTYPE)
  8435. + TEST_FILE = test.pl
  8436. + TESTDB_SW = -d
  8437.   
  8438.   test :: \$(TEST_TYPE)
  8439.       \$(NOOP)
  8440. ***************
  8441. *** 2038,2048 ****
  8442.       push(@m, "    \$(NOOP)\n") if (!$tests && ! -f "test.pl");
  8443.       push(@m, "\n");
  8444.   
  8445. !     if (-f 'test.pl') {
  8446. !     push(@m, "testdb_dynamic :: pure_all\n");
  8447. !     push(@m, $self->test_via_script('$(FULLPERL) -d', 'test.pl'));
  8448. !     push(@m, "\n");
  8449. !     }
  8450.   
  8451.       # Occasionally we may face this degenerate target:
  8452.       push @m, "test_ : test_dynamic\n\n";
  8453. --- 1954,1962 ----
  8454.       push(@m, "    \$(NOOP)\n") if (!$tests && ! -f "test.pl");
  8455.       push(@m, "\n");
  8456.   
  8457. !     push(@m, "testdb_dynamic :: pure_all\n");
  8458. !     push(@m, $self->test_via_script('$(FULLPERL) "$(TESTDB_SW)"', '$(TEST_FILE)'));
  8459. !     push(@m, "\n");
  8460.   
  8461.       # Occasionally we may face this degenerate target:
  8462.       push @m, "test_ : test_dynamic\n\n";
  8463. ***************
  8464. *** 2050,2062 ****
  8465.       if ($self->needs_linking()) {
  8466.       push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
  8467.       push(@m, $self->test_via_harness('$(MAP_TARGET)', $tests)) if $tests;
  8468. !     if (-f 'test.pl') {
  8469. !         push(@m, $self->test_via_script('$(MAP_TARGET)', 'test.pl'));
  8470. !         push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
  8471. !         push(@m, $self->test_via_script('$(MAP_TARGET) -d', 'test.pl'));
  8472. !         push(@m, "\n");
  8473. !     }
  8474. !     push(@m, "\t$self->{NOECHO}\$(NOOP)\n") if (!$tests && ! -f "test.pl");
  8475.       push(@m, "\n");
  8476.       }
  8477.       else {
  8478. --- 1964,1973 ----
  8479.       if ($self->needs_linking()) {
  8480.       push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
  8481.       push(@m, $self->test_via_harness('$(MAP_TARGET)', $tests)) if $tests;
  8482. !     push(@m, $self->test_via_script('$(MAP_TARGET)', 'test.pl')) if -f 'test.pl';
  8483. !     push(@m, "\n");
  8484. !     push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
  8485. !     push(@m, $self->test_via_script('$(MAP_TARGET) $(TESTDB_SW)', '$(TEST_FILE)'));
  8486.       push(@m, "\n");
  8487.       }
  8488.       else {
  8489. ***************
  8490. *** 2075,2084 ****
  8491.   
  8492.   sub test_via_harness {
  8493.       my($self,$perl,$tests) = @_;
  8494. -     unless (ref $self){
  8495. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8496. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8497. -     }
  8498.       "    $perl".' "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" "-I$(PERL_LIB)" "-I$(PERL_ARCHLIB)" \\'."\n\t".
  8499.       '-e "use Test::Harness qw(&runtests $verbose); $verbose=$(TEST_VERBOSE); runtests @ARGV;" \\'."\n\t$tests\n";
  8500.   }
  8501. --- 1986,1991 ----
  8502. ***************
  8503. *** 2091,2100 ****
  8504.   
  8505.   sub test_via_script {
  8506.       my($self,$perl,$script) = @_;
  8507. -     unless (ref $self){
  8508. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8509. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8510. -     }
  8511.       "    $perl".' "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" '.$script.'
  8512.   ';
  8513.   }
  8514. --- 1998,2003 ----
  8515. ***************
  8516. *** 2110,2119 ****
  8517.   
  8518.   sub makeaperl {
  8519.       my($self, %attribs) = @_;
  8520. -     unless (ref $self){
  8521. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8522. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8523. -     }
  8524.       my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) = 
  8525.         @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
  8526.       my(@m);
  8527. --- 2013,2018 ----
  8528. ***************
  8529. *** 2158,2163 ****
  8530. --- 2057,2096 ----
  8531.       File::Find::find(sub {
  8532.       return unless m/\Q$self->{LIB_EXT}\E$/;
  8533.       return if m/^libperl/;
  8534. + 
  8535. +     if( exists $self->{INCLUDE_EXT} ){
  8536. +         my $found = 0;
  8537. +         my $incl;
  8538. +         my $xx;
  8539. + 
  8540. +         ($xx = $File::Find::name) =~ s,.*?/auto/,,;
  8541. +         $xx =~ s,/?$_,,;
  8542. +         $xx =~ s,/,::,g;
  8543. + 
  8544. +         # Throw away anything not explicitly marked for inclusion.
  8545. +         # DynaLoader is implied.
  8546. +         foreach $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
  8547. +             if( $xx eq $incl ){
  8548. +                 $found++;
  8549. +                 last;
  8550. +             }
  8551. +         }
  8552. +         return unless $found;
  8553. +     }
  8554. +     elsif( exists $self->{EXCLUDE_EXT} ){
  8555. +         my $excl;
  8556. +         my $xx;
  8557. + 
  8558. +         ($xx = $File::Find::name) =~ s,.*?/auto/,,;
  8559. +         $xx =~ s,/?$_,,;
  8560. +         $xx =~ s,/,::,g;
  8561. + 
  8562. +         # Throw away anything explicitly marked for exclusion
  8563. +         foreach $excl (@{$self->{EXCLUDE_EXT}}){
  8564. +             return if( $xx eq $excl );
  8565. +         }
  8566. +     }
  8567. + 
  8568.       $olbs{$ENV{DEFAULT}} = $_;
  8569.       }, grep( -d $_, @{$searchdirs || []}));
  8570.   
  8571. ***************
  8572. *** 2295,2304 ****
  8573.   
  8574.   sub ext {
  8575.       my($self) = @_;
  8576. -     unless (ref $self){
  8577. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8578. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8579. -     }
  8580.       '','','';
  8581.   }
  8582.   
  8583. --- 2228,2233 ----
  8584. ***************
  8585. *** 2315,2324 ****
  8586.   sub nicetext {
  8587.   
  8588.       my($self,$text) = @_;
  8589. -     unless (ref $self){
  8590. -     ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
  8591. -     $self = $ExtUtils::MakeMaker::Parent[-1];
  8592. -     }
  8593.       $text =~ s/([^\s:])(:+\s)/$1 $2/gs;
  8594.       $text;
  8595.   }
  8596. --- 2244,2249 ----
  8597. ***************
  8598. *** 2326,2328 ****
  8599. --- 2251,2254 ----
  8600.   1;
  8601.   
  8602.   __END__
  8603. + 
  8604.  
  8605.  
  8606. #: lib/ExtUtils/MakeMaker.pm
  8607. #:   Update to MakeMaker 5.34
  8608. diff -crN perl5.002_01/lib/ExtUtils/MakeMaker.pm perl5.003/lib/ExtUtils/MakeMaker.pm
  8609. *** perl5.002_01/lib/ExtUtils/MakeMaker.pm    Mon Mar 25 01:04:16 1996
  8610. --- perl5.003/lib/ExtUtils/MakeMaker.pm    Sun Jun 23 20:52:43 1996
  8611. ***************
  8612. *** 1,25 ****
  8613. ! require 5.002; # MakeMaker 5.17 was the last MakeMaker that was compatible with perl5.001m
  8614. ! 
  8615. ! package main;
  8616. ! use vars qw(%att);
  8617. ! 
  8618. ! package ExtUtils::MakeMaker::TieAtt;
  8619. ! # this package will go away again, when we don't have modules around
  8620. ! # anymore that import %att It ties an empty %att and records in which
  8621. ! # object this %att was tied. FETCH and STORE return/store-to the
  8622. ! # appropriate value from %$self
  8623. ! 
  8624. ! # the warndirectuse method warns if somebody calls MM->something. It
  8625. ! # has nothing to do with the tie'd %att.
  8626. ! 
  8627. ! $Enough_limit = 5;
  8628.   
  8629.   package ExtUtils::MakeMaker;
  8630.   
  8631. ! $Version = $VERSION = "5.26";
  8632. ! $Version_OK = "5.05";    # Makefiles older than $Version_OK will die
  8633.               # (Will be checked from MakeMaker version 4.13 onwards)
  8634. ! ($Revision = substr(q$Revision: 1.187 $, 10)) =~ s/\s+$//;
  8635.   
  8636.   
  8637.   
  8638. --- 1,11 ----
  8639. ! BEGIN {require 5.002;} # MakeMaker 5.17 was the last MakeMaker that was compatible with perl5.001m
  8640.   
  8641.   package ExtUtils::MakeMaker;
  8642.   
  8643. ! $Version = $VERSION = "5.34";
  8644. ! $Version_OK = "5.17";    # Makefiles older than $Version_OK will die
  8645.               # (Will be checked from MakeMaker version 4.13 onwards)
  8646. ! ($Revision = substr(q$Revision: 1.202 $, 10)) =~ s/\s+$//;
  8647.   
  8648.   
  8649.   
  8650. ***************
  8651. *** 29,42 ****
  8652.   #use FileHandle ();
  8653.   
  8654.   use vars qw(
  8655. !         $VERSION $Version_OK $Revision
  8656. !         $Verbose %MM_Sections $ISA_TTY
  8657. !         @MM_Sections %Recognized_Att_Keys @Get_from_Config
  8658. !         %Prepend_dot_dot %Config @Parent %NORMAL_INC
  8659. !         $Setup_done %Keep_after_flush
  8660. !         @Overridable
  8661.          );
  8662. ! #use strict qw(refs);
  8663.   
  8664.   eval {require DynaLoader;};    # Get mod2fname, if defined. Will fail
  8665.                                   # with miniperl.
  8666. --- 15,29 ----
  8667.   #use FileHandle ();
  8668.   
  8669.   use vars qw(
  8670. ! 
  8671. !         @ISA @EXPORT @EXPORT_OK $AUTOLOAD
  8672. !         $ISA_TTY $Is_Mac $Is_OS2 $Is_VMS $Revision $Setup_done
  8673. !         $VERSION $Verbose $Version_OK %Config %Keep_after_flush
  8674. !         %MM_Sections %Prepend_dot_dot %Recognized_Att_Keys
  8675. !         @Get_from_Config @MM_Sections @Overridable @Parent
  8676. ! 
  8677.          );
  8678. ! # use strict;
  8679.   
  8680.   eval {require DynaLoader;};    # Get mod2fname, if defined. Will fail
  8681.                                   # with miniperl.
  8682. ***************
  8683. *** 48,54 ****
  8684.   @ISA = qw(Exporter);
  8685.   @EXPORT = qw(&WriteMakefile &writeMakefile $Verbose &prompt);
  8686.   @EXPORT_OK = qw($VERSION &Version_check &neatvalue &mkbootstrap &mksymlists
  8687. !         $Version %att);  ## Import of %att is deprecated, please use OO features!
  8688.           # $Version in mixed case will go away!
  8689.   
  8690.   #
  8691. --- 35,41 ----
  8692.   @ISA = qw(Exporter);
  8693.   @EXPORT = qw(&WriteMakefile &writeMakefile $Verbose &prompt);
  8694.   @EXPORT_OK = qw($VERSION &Version_check &neatvalue &mkbootstrap &mksymlists
  8695. !         $Version);
  8696.           # $Version in mixed case will go away!
  8697.   
  8698.   #
  8699. ***************
  8700. *** 66,72 ****
  8701.   #
  8702.   {
  8703.       package MY;
  8704. !     @ISA = qw(MM);
  8705.       package MM;
  8706.       sub DESTROY {}
  8707.   }
  8708. --- 53,60 ----
  8709.   #
  8710.   {
  8711.       package MY;
  8712. !     @MY::ISA = qw(MM);
  8713. ! ###    sub AUTOLOAD { use Devel::Symdump; print Devel::Symdump->rnew->as_string; Carp::confess "hey why? $AUTOLOAD" }
  8714.       package MM;
  8715.       sub DESTROY {}
  8716.   }
  8717. ***************
  8718. *** 80,107 ****
  8719.   # Now we can can pull in the friends
  8720.   #
  8721.   $Is_VMS = $^O eq 'VMS';
  8722. ! $Is_OS2 = $^O eq 'os2';
  8723.   
  8724.   require ExtUtils::MM_Unix;
  8725.   
  8726.   if ($Is_VMS) {
  8727.       require ExtUtils::MM_VMS;
  8728.   }
  8729.   if ($Is_OS2) {
  8730.       require ExtUtils::MM_OS2;
  8731.   }
  8732. ! 
  8733. ! %NORMAL_INC = %INC;
  8734. ! @NORMAL_INC{qw|File/Find.pm Cwd.pm ExtUtils/Manifest.pm ExtUtils/Liblist.pm|} = (1) x 4;
  8735. ! 
  8736. ! 
  8737. ! # This has to go one day...
  8738. ! $SIG{__WARN__} = sub {
  8739. !     $_[0] =~ /^Use of uninitialized value/ && return;
  8740. !     $_[0] =~ /used only once/ && return;
  8741. !     $_[0] =~ /^Subroutine\s+[\w:]+\s+redefined/ && return;
  8742. !     warn @_;
  8743. ! };
  8744.   
  8745.   # The SelfLoader would bring a lot of overhead for MakeMaker, because
  8746.   # we know for sure we will use most of the autoloaded functions once
  8747. --- 68,88 ----
  8748.   # Now we can can pull in the friends
  8749.   #
  8750.   $Is_VMS = $^O eq 'VMS';
  8751. ! $Is_OS2 = $^O =~ m|^os/?2$|i;
  8752. ! $Is_Mac = $^O eq 'MacOS';
  8753.   
  8754.   require ExtUtils::MM_Unix;
  8755.   
  8756.   if ($Is_VMS) {
  8757.       require ExtUtils::MM_VMS;
  8758. +     require VMS::Filespec; # is a noop as long as we require it within MM_VMS
  8759.   }
  8760.   if ($Is_OS2) {
  8761.       require ExtUtils::MM_OS2;
  8762.   }
  8763. ! if ($Is_Mac) {
  8764. !     require ExtUtils::MM_Mac;
  8765. ! }
  8766.   
  8767.   # The SelfLoader would bring a lot of overhead for MakeMaker, because
  8768.   # we know for sure we will use most of the autoloaded functions once
  8769. ***************
  8770. *** 110,119 ****
  8771.   sub AUTOLOAD {
  8772.       my $code;
  8773.       if (defined fileno(DATA)) {
  8774. !     while (<DATA>) {
  8775. !         last if /^__END__/;
  8776. !         $code .= $_;
  8777. !     }
  8778.       close DATA;
  8779.       eval $code;
  8780.       if ($@) {
  8781. --- 91,102 ----
  8782.   sub AUTOLOAD {
  8783.       my $code;
  8784.       if (defined fileno(DATA)) {
  8785. !     my $fh = select DATA;
  8786. !     my $o = $/;            # For future reads from the file.
  8787. !     $/ = "\n__END__\n";
  8788. !     $code = <DATA>;
  8789. !     $/ = $o;
  8790. !     select $fh;
  8791.       close DATA;
  8792.       eval $code;
  8793.       if ($@) {
  8794. ***************
  8795. *** 143,148 ****
  8796. --- 126,138 ----
  8797.       unless $checkversion == $VERSION;
  8798.   }
  8799.   
  8800. + sub warnhandler {
  8801. +     $_[0] =~ /^Use of uninitialized value/ && return;
  8802. +     $_[0] =~ /used only once/ && return;
  8803. +     $_[0] =~ /^Subroutine\s+[\w:]+\s+redefined/ && return;
  8804. +     warn @_;
  8805. + }
  8806. + 
  8807.   sub ExtUtils::MakeMaker::eval_in_subdirs ;
  8808.   sub ExtUtils::MakeMaker::eval_in_x ;
  8809.   sub ExtUtils::MakeMaker::full_setup ;
  8810. ***************
  8811. *** 160,178 ****
  8812.   sub ExtUtils::MakeMaker::selfdocument ;
  8813.   sub ExtUtils::MakeMaker::WriteMakefile ;
  8814.   sub ExtUtils::MakeMaker::prompt ;
  8815. - sub ExtUtils::MakeMaker::TieAtt::TIEHASH ;
  8816. - sub ExtUtils::MakeMaker::TieAtt::FETCH ;
  8817. - sub ExtUtils::MakeMaker::TieAtt::STORE ;
  8818. - sub ExtUtils::MakeMaker::TieAtt::FIRSTKEY ;
  8819. - sub ExtUtils::MakeMaker::TieAtt::NEXTKEY ;
  8820. - sub ExtUtils::MakeMaker::TieAtt::DESTROY ;
  8821. - sub ExtUtils::MakeMaker::TieAtt::warndirectuse ;
  8822.   
  8823. ! __DATA__
  8824.   package ExtUtils::MakeMaker;
  8825.   
  8826.   sub WriteMakefile {
  8827.       Carp::croak "WriteMakefile: Need even number of args" if @_ % 2;
  8828.       unless ($Setup_done++){
  8829.       full_setup();
  8830.       undef &ExtUtils::MakeMaker::full_setup; #safe memory
  8831. --- 150,164 ----
  8832.   sub ExtUtils::MakeMaker::selfdocument ;
  8833.   sub ExtUtils::MakeMaker::WriteMakefile ;
  8834.   sub ExtUtils::MakeMaker::prompt ;
  8835.   
  8836. ! 1;
  8837. ! #__DATA__
  8838.   package ExtUtils::MakeMaker;
  8839.   
  8840.   sub WriteMakefile {
  8841.       Carp::croak "WriteMakefile: Need even number of args" if @_ % 2;
  8842. +     local $SIG{__WARN__} = \&warnhandler;
  8843. + 
  8844.       unless ($Setup_done++){
  8845.       full_setup();
  8846.       undef &ExtUtils::MakeMaker::full_setup; #safe memory
  8847. ***************
  8848. *** 181,200 ****
  8849.       MM->new(\%att)->flush;
  8850.   }
  8851.   
  8852. ! sub prompt {
  8853.       my($mess,$def)=@_;
  8854.       $ISA_TTY = -t STDIN && -t STDOUT ;
  8855.       Carp::confess("prompt function called without an argument") unless defined $mess;
  8856. !     $def = "" unless defined $def;
  8857. !     my $dispdef = "[$def] ";
  8858.       my $ans;
  8859.       if ($ISA_TTY) {
  8860.       local $|=1;
  8861.       print "$mess $dispdef";
  8862. !     chop($ans = <STDIN>);
  8863.       }
  8864. !     return $ans if defined $ans;
  8865. !     return $def;
  8866.   }
  8867.   
  8868.   sub eval_in_subdirs {
  8869. --- 167,185 ----
  8870.       MM->new(\%att)->flush;
  8871.   }
  8872.   
  8873. ! sub prompt ($;$) {
  8874.       my($mess,$def)=@_;
  8875.       $ISA_TTY = -t STDIN && -t STDOUT ;
  8876.       Carp::confess("prompt function called without an argument") unless defined $mess;
  8877. !     my $dispdef = defined $def ? "[$def] " : " ";
  8878. !     $def = defined $def ? $def : "";
  8879.       my $ans;
  8880.       if ($ISA_TTY) {
  8881.       local $|=1;
  8882.       print "$mess $dispdef";
  8883. !     chomp($ans = <STDIN>);
  8884.       }
  8885. !     return $ans || $def;
  8886.   }
  8887.   
  8888.   sub eval_in_subdirs {
  8889. ***************
  8890. *** 224,285 ****
  8891.   #    $fh->close;
  8892.       close FH;
  8893.       eval $eval;
  8894. !     warn "WARNING from evaluation of $dir/Makefile.PL: $@" if $@;
  8895.   }
  8896.   
  8897.   sub full_setup {
  8898.       $Verbose ||= 0;
  8899.       $^W=1;
  8900.   
  8901. ! # package name for the classes into which the first object will be blessed
  8902.       $PACKNAME = "PACK000";
  8903.   
  8904.       @Attrib_help = qw/
  8905.   
  8906.       C CONFIG CONFIGURE DEFINE DIR DISTNAME DL_FUNCS DL_VARS EXE_FILES
  8907. !     NO_VC FIRST_MAKEFILE FULLPERL H INC INSTALLARCHLIB INSTALLBIN
  8908. !     INSTALLDIRS INSTALLMAN1DIR INSTALLMAN3DIR INSTALLPRIVLIB
  8909. !     INSTALLSITEARCH INSTALLSITELIB INST_ARCHLIB INST_EXE INST_LIB
  8910. !     INST_MAN1DIR INST_MAN3DIR LDFROM LIBPERL_A LIBS LINKTYPE MAKEAPERL
  8911. !     MAKEFILE MAN1PODS MAN3PODS MAP_TARGET MYEXTLIB NAME NEEDS_LINKING
  8912. !     NOECHO NORECURS OBJECT OPTIMIZE PERL PERLMAINCC PERL_ARCHLIB
  8913. !     PERL_LIB PERL_SRC PL_FILES PM PMLIBDIRS PREFIX PREREQ SKIP
  8914. !     TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG XS_VERSION clean
  8915. !     depend dist dynamic_lib linkext macro realclean tool_autosplit
  8916.   
  8917.       installpm
  8918.   
  8919.       /;
  8920.   
  8921.   
  8922. -     # @Overridable is close to MM_Sections
  8923.   
  8924.       @MM_Sections = 
  8925.       qw(
  8926.   
  8927. !     post_initialize const_config constants tool_autosplit
  8928. !     tool_xsubpp tools_other dist macro depend post_constants
  8929. !     pasthru c_o xs_c xs_o top_targets linkext dlsyms dynamic
  8930. !     dynamic_bs dynamic_lib static static_lib manifypods processPL
  8931. !     installbin subdirs clean realclean dist_basics dist_core
  8932. !     dist_dir dist_test dist_ci install force perldepend makefile
  8933. !     staticmake test postamble
  8934.   
  8935.         ); # loses section ordering
  8936.   
  8937.       @Overridable = @MM_Sections;
  8938. !     push @Overridable, qw[ dir_target
  8939. !                libscan makeaperl
  8940. !                needs_linking subdir_x test_via_harness
  8941. !                test_via_script ];
  8942. !     push @MM_Sections, qw[
  8943. !               pm_to_blib selfdocument cflags const_loadlibs
  8944. !               const_cccmd
  8945.                ];
  8946.   
  8947.   
  8948. !     #### Can we drop this?
  8949. !     #### @MM_Sections{@MM_Sections} = {} x @MM_Sections;
  8950.   
  8951.       # All sections are valid keys.
  8952.       @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections;
  8953. --- 209,294 ----
  8954.   #    $fh->close;
  8955.       close FH;
  8956.       eval $eval;
  8957. !     if ($@) {
  8958. ! #       if ($@ =~ /prerequisites/) {
  8959. ! #           die "MakeMaker WARNING: $@";
  8960. ! #       } else {
  8961. ! #           warn "WARNING from evaluation of $dir/Makefile.PL: $@";
  8962. ! #       }
  8963. !     warn "WARNING from evaluation of $dir/Makefile.PL: $@";
  8964. !     }
  8965.   }
  8966.   
  8967.   sub full_setup {
  8968.       $Verbose ||= 0;
  8969.       $^W=1;
  8970.   
  8971. !     # package name for the classes into which the first object will be blessed
  8972.       $PACKNAME = "PACK000";
  8973.   
  8974.       @Attrib_help = qw/
  8975.   
  8976.       C CONFIG CONFIGURE DEFINE DIR DISTNAME DL_FUNCS DL_VARS EXE_FILES
  8977. !     EXCLUDE_EXT INCLUDE_EXT NO_VC FIRST_MAKEFILE FULLPERL H INC
  8978. !     INSTALLARCHLIB INSTALLBIN INSTALLDIRS INSTALLMAN1DIR
  8979. !     INSTALLMAN3DIR INSTALLPRIVLIB INSTALLSCRIPT INSTALLSITEARCH
  8980. !     INSTALLSITELIB INST_ARCHLIB INST_BIN INST_EXE INST_LIB
  8981. !     INST_MAN1DIR INST_MAN3DIR INST_SCRIPT LDFROM LIBPERL_A LIBS
  8982. !     LINKTYPE MAKEAPERL MAKEFILE MAN1PODS MAN3PODS MAP_TARGET MYEXTLIB
  8983. !     NAME NEEDS_LINKING NOECHO NORECURS OBJECT OPTIMIZE PERL PERLMAINCC
  8984. !     PERL_ARCHLIB PERL_LIB PERL_SRC PL_FILES PM PMLIBDIRS PREFIX
  8985. !     PREREQ_PM SKIP TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG
  8986. !     XS_VERSION clean depend dist dynamic_lib linkext macro realclean
  8987. !     tool_autosplit
  8988.   
  8989.       installpm
  8990.   
  8991.       /;
  8992.   
  8993. +     # ^^^ installpm is deprecated, will go about Summer 96
  8994. + 
  8995. +     # @Overridable is close to @MM_Sections but not identical.  The
  8996. +     # order is important. Many subroutines declare macros. These
  8997. +     # depend on each other. Let's try to collect the macros up front,
  8998. +     # then pasthru, then the rules.
  8999. + 
  9000. +     # MM_Sections are the sections we have to call explicitly
  9001. +     # in Overridable we have subroutines that are used indirectly
  9002.   
  9003.   
  9004.       @MM_Sections = 
  9005.       qw(
  9006.   
  9007. !  post_initialize const_config constants tool_autosplit tool_xsubpp
  9008. !  tools_other dist macro depend cflags const_loadlibs const_cccmd
  9009. !  post_constants
  9010. ! 
  9011. !  pasthru
  9012. ! 
  9013. !  c_o xs_c xs_o top_targets linkext dlsyms dynamic dynamic_bs
  9014. !  dynamic_lib static static_lib manifypods processPL installbin subdirs
  9015. !  clean realclean dist_basics dist_core dist_dir dist_test dist_ci
  9016. !  install force perldepend makefile staticmake test
  9017.   
  9018.         ); # loses section ordering
  9019.   
  9020.       @Overridable = @MM_Sections;
  9021. !     push @Overridable, qw[
  9022. ! 
  9023. !  dir_target libscan makeaperl needs_linking subdir_x test_via_harness
  9024. !  test_via_script
  9025. ! 
  9026.                ];
  9027.   
  9028. +     push @MM_Sections, qw[
  9029. + 
  9030. +  pm_to_blib selfdocument
  9031.   
  9032. !              ];
  9033. ! 
  9034. !     # Postamble needs to be the last that was always the case
  9035. !     push @MM_Sections, "postamble";
  9036. !     push @Overridable, "postamble";
  9037.   
  9038.       # All sections are valid keys.
  9039.       @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections;
  9040. ***************
  9041. *** 308,315 ****
  9042.       #
  9043.       %Prepend_dot_dot = 
  9044.       qw(
  9045. !        INST_LIB 1 INST_ARCHLIB 1 INST_EXE 1 MAP_TARGET 1 INST_MAN1DIR 1 INST_MAN3DIR 1
  9046. !        PERL_SRC 1 PERL 1 FULLPERL 1
  9047.         );
  9048.   
  9049.       my @keep = qw/
  9050. --- 317,327 ----
  9051.       #
  9052.       %Prepend_dot_dot = 
  9053.       qw(
  9054. ! 
  9055. !        INST_BIN 1 INST_EXE 1 INST_LIB 1 INST_ARCHLIB 1 INST_SCRIPT
  9056. !        1 MAP_TARGET 1 INST_MAN1DIR 1 INST_MAN3DIR 1 PERL_SRC 1
  9057. !        PERL 1 FULLPERL 1
  9058. ! 
  9059.         );
  9060.   
  9061.       my @keep = qw/
  9062. ***************
  9063. *** 353,358 ****
  9064. --- 365,400 ----
  9065.   
  9066.       my(%initial_att) = %$self; # record initial attributes
  9067.   
  9068. +     my($prereq);
  9069. +     foreach $prereq (sort keys %{$self->{PREREQ_PM}}) {
  9070. +     my $eval = "use $prereq $self->{PREREQ_PM}->{$prereq}";
  9071. +     eval $eval;
  9072. +     if ($@){
  9073. +         warn "Warning: prerequisite $prereq $self->{PREREQ_PM}->{$prereq} not found";
  9074. +     } else {
  9075. +         delete $self->{PREREQ_PM}{$prereq};
  9076. +     }
  9077. +     }
  9078. + #    if (@unsatisfied){
  9079. + #       unless (defined $ExtUtils::MakeMaker::useCPAN) {
  9080. + #           print qq{MakeMaker WARNING: prerequisites not found (@unsatisfied)
  9081. + # Please install these modules first and rerun 'perl Makefile.PL'.\n};
  9082. + #           if ($ExtUtils::MakeMaker::hasCPAN) {
  9083. + #           $ExtUtils::MakeMaker::useCPAN = prompt(qq{Should I try to use the CPAN module to fetch them for you?},"yes");
  9084. + #           } else {
  9085. + #           print qq{Hint: You may want to install the CPAN module to autofetch the needed modules\n};
  9086. + #           $ExtUtils::MakeMaker::useCPAN=0;
  9087. + #           }
  9088. + #       }
  9089. + #       if ($ExtUtils::MakeMaker::useCPAN) {
  9090. + #           require CPAN;
  9091. + #           CPAN->import(@unsatisfied);
  9092. + #       } else {
  9093. + #           die qq{prerequisites not found (@unsatisfied)};
  9094. + #       }
  9095. + #    warn qq{WARNING: prerequisites not found (@unsatisfied)};
  9096. + #    }
  9097. + 
  9098.       if (defined $self->{CONFIGURE}) {
  9099.       if (ref $self->{CONFIGURE} eq 'CODE') {
  9100.           $self = { %$self, %{&{$self->{CONFIGURE}}}};
  9101. ***************
  9102. *** 457,463 ****
  9103.       $self->eval_in_subdirs if @{$self->{DIR}};
  9104.       }
  9105.   
  9106. -     tie %::att, ExtUtils::MakeMaker::TieAtt, $self;
  9107.       my $section;
  9108.       foreach $section ( @MM_Sections ){
  9109.       print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
  9110. --- 499,504 ----
  9111. ***************
  9112. *** 551,562 ****
  9113. --- 592,612 ----
  9114.       # have to build a list with the shell
  9115.       $self->{DIR} = [grep $_, split ":", $self->{DIR}];
  9116.       }
  9117. +     # Turn a INCLUDE_EXT argument on the command line into an array
  9118. +     if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') {
  9119. +     $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
  9120. +     }
  9121. +     # Turn a EXCLUDE_EXT argument on the command line into an array
  9122. +     if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') {
  9123. +     $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
  9124. +     }
  9125.       my $mmkey;
  9126.       foreach $mmkey (sort keys %$self){
  9127.       print STDOUT "    $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
  9128.       print STDOUT "'$mmkey' is not a known MakeMaker parameter name.\n"
  9129.           unless exists $Recognized_Att_Keys{$mmkey};
  9130.       }
  9131. +     $| = 1 if $Verbose;
  9132.   }
  9133.   
  9134.   sub check_hints {
  9135. ***************
  9136. *** 567,573 ****
  9137.   
  9138.       # First we look for the best hintsfile we have
  9139.       my(@goodhints);
  9140. !     my($hint)="$Config{osname}_$Config{osvers}";
  9141.       $hint =~ s/\./_/g;
  9142.       $hint =~ s/_$//;
  9143.       return unless $hint;
  9144. --- 617,623 ----
  9145.   
  9146.       # First we look for the best hintsfile we have
  9147.       my(@goodhints);
  9148. !     my($hint)="${^O}_$Config{osvers}";
  9149.       $hint =~ s/\./_/g;
  9150.       $hint =~ s/_$//;
  9151.       return unless $hint;
  9152. ***************
  9153. *** 630,636 ****
  9154.       # %MY:: being intact, we have to fill the hole with an
  9155.       # inheriting method:
  9156.   
  9157. !     eval "package MY; sub $method {local *$method; shift->MY::$method(\@_); }";
  9158.       }
  9159.   
  9160.       # We have to clean out %INC also, because the current directory is
  9161. --- 680,686 ----
  9162.       # %MY:: being intact, we have to fill the hole with an
  9163.       # inheriting method:
  9164.   
  9165. !     eval "package MY; sub $method { shift->SUPER::$method(\@_); }";
  9166.       }
  9167.   
  9168.       # We have to clean out %INC also, because the current directory is
  9169. ***************
  9170. *** 638,650 ****
  9171.       # out of a History.pl file which is "required" so woudn't get
  9172.       # loaded again in another extension requiring a History.pl
  9173.   
  9174. !     my $inc;
  9175. !     foreach $inc (keys %INC) {
  9176. !     next if $NORMAL_INC{$inc};
  9177. !     #warn "***$inc*** deleted";
  9178. !     delete $INC{$inc};
  9179. !     }
  9180. ! 
  9181.   }
  9182.   
  9183.   sub skipcheck {
  9184. --- 688,705 ----
  9185.       # out of a History.pl file which is "required" so woudn't get
  9186.       # loaded again in another extension requiring a History.pl
  9187.   
  9188. !     # With perl5.002_01 the deletion of entries in %INC caused Tk-b11
  9189. !     # to core dump in the middle of a require statement. The required
  9190. !     # file was Tk/MMutil.pm.  The consequence is, we have to be
  9191. !     # extremely careful when we try to give perl a reason to reload a
  9192. !     # library with same name.  The workaround prefers to drop nothing
  9193. !     # from %INC and teach the writers not to use such libraries.
  9194. ! 
  9195. ! #    my $inc;
  9196. ! #    foreach $inc (keys %INC) {
  9197. ! #    #warn "***$inc*** deleted";
  9198. ! #    delete $INC{$inc};
  9199. ! #    }
  9200.   }
  9201.   
  9202.   sub skipcheck {
  9203. ***************
  9204. *** 764,816 ****
  9205.       join "\n", @m;
  9206.   }
  9207.   
  9208. - package ExtUtils::MakeMaker::TieAtt;
  9209. - 
  9210. - sub TIEHASH {
  9211. -     bless { SECRETHASH => $_[1]};
  9212. - }
  9213. - 
  9214. - sub FETCH {
  9215. -     print "Warning (non-fatal): Importing of %att is deprecated [$_[1]]
  9216. -     use \$self instead\n" unless ++$Enough>$Enough_limit;
  9217. -     print "Further ExtUtils::MakeMaker::TieAtt warnings suppressed\n" if $Enough==$Enough_limit;
  9218. -     $_[0]->{SECRETHASH}->{$_[1]};
  9219. - }
  9220. - 
  9221. - sub STORE {
  9222. -     print "Warning (non-fatal): Importing of %att is deprecated [$_[1]][$_[2]]
  9223. -     use \$self instead\n" unless ++$Enough>$Enough_limit;
  9224. -     print "Further ExtUtils::MakeMaker::TieAtt warnings suppressed\n" if $Enough==$Enough_limit;
  9225. -     $_[0]->{SECRETHASH}->{$_[1]} = $_[2];
  9226. - }
  9227. - 
  9228. - sub FIRSTKEY {
  9229. -     print "Warning (non-fatal): Importing of %att is deprecated [FIRSTKEY]
  9230. -     use \$self instead\n" unless ++$Enough>$Enough_limit;
  9231. -     print "Further ExtUtils::MakeMaker::TieAtt warnings suppressed\n" if $Enough==$Enough_limit;
  9232. -     each %{$_[0]->{SECRETHASH}};
  9233. - }
  9234. - 
  9235. - sub NEXTKEY {
  9236. -     each %{$_[0]->{SECRETHASH}};
  9237. - }
  9238. - 
  9239. - sub DESTROY {
  9240. - }
  9241. - 
  9242. - sub warndirectuse {
  9243. -     my($caller) = @_;
  9244. -     return if $Enough>$Enough_limit;
  9245. -     print STDOUT "Warning (non-fatal): Direct use of class methods deprecated; use\n";
  9246. -     my($method) = $caller =~ /.*:(\w+)$/;
  9247. -     print STDOUT
  9248. - '        my $self = shift;
  9249. -         $self->MM::', $method, "();
  9250. -     instead\n";
  9251. -     print "Further ExtUtils::MakeMaker::TieAtt warnings suppressed\n"
  9252. -     if ++$Enough==$Enough_limit;
  9253. - }
  9254. - 
  9255.   package ExtUtils::MakeMaker;
  9256.   1;
  9257.   
  9258. --- 819,824 ----
  9259. ***************
  9260. *** 840,929 ****
  9261.   that can be individually overridden.  Each subroutine returns the text
  9262.   it wishes to have written to the Makefile.
  9263.   
  9264. ! =head2 Hintsfile support
  9265. ! 
  9266. ! MakeMaker.pm uses the architecture specific information from
  9267. ! Config.pm. In addition it evaluates architecture specific hints files
  9268. ! in a C<hints/> directory. The hints files are expected to be named
  9269. ! like their counterparts in C<PERL_SRC/hints>, but with an C<.pl> file
  9270. ! name extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by
  9271. ! MakeMaker within the WriteMakefile() subroutine, and can be used to
  9272. ! execute commands as well as to include special variables. The rules
  9273. ! which hintsfile is chosen are the same as in Configure.
  9274. ! 
  9275. ! The hintsfile is eval()ed immediately after the arguments given to
  9276. ! WriteMakefile are stuffed into a hash reference $self but before this
  9277. ! reference becomes blessed. So if you want to do the equivalent to
  9278. ! override or create an attribute you would say something like
  9279. ! 
  9280. !     $self->{LIBS} = ['-ldbm -lucb -lc'];
  9281. ! 
  9282. ! =head2 What's new in version 5 of MakeMaker
  9283.   
  9284. ! MakeMaker 5 is pure object oriented. This allows us to write an
  9285. ! unlimited number of Makefiles with a single perl process. 'perl
  9286. ! Makefile.PL' with MakeMaker 5 goes through all subdirectories
  9287. ! immediately and evaluates any Makefile.PL found in the next level
  9288. ! subdirectories. The benefit of this approach comes in useful for both
  9289. ! single and multi directories extensions.
  9290.   
  9291. ! Multi directory extensions have an immediately visible speed
  9292. ! advantage, because there's no startup penalty for any single
  9293. ! subdirectory Makefile.
  9294.   
  9295. ! Single directory packages benefit from the much improved
  9296. ! needs_linking() method. As the main Makefile knows everything about
  9297. ! the subdirectories, a needs_linking() method can now query all
  9298. ! subdirectories if there is any linking involved down in the tree. The
  9299. ! speedup for PM-only Makefiles seems to be around 1 second on my
  9300. ! Indy 100 MHz.
  9301.   
  9302. ! =head2 Incompatibilities between MakeMaker 5.00 and 4.23
  9303. ! 
  9304. ! There are no incompatibilities in the short term, as all changes are
  9305. ! accompanied by short-term workarounds that guarantee full backwards
  9306. ! compatibility.
  9307. ! 
  9308. ! You are likely to face a few warnings that expose deprecations which
  9309. ! will result in incompatibilities in the long run:
  9310. ! 
  9311. ! You should not use %att directly anymore. Instead any subroutine you
  9312. ! override in the MY package will be called by the object method, so you
  9313. ! can access all object attributes directly via the object in $_[0].
  9314. ! 
  9315. ! You should not call the class methos MM->something anymore. Instead
  9316. ! you should call the superclass. Something like
  9317. ! 
  9318. !     sub MY::constants {
  9319. !         my $self = shift;
  9320. !         $self->MM::constants();
  9321. !     }
  9322. ! 
  9323. ! Especially the libscan() and exescan() methods should be altered
  9324. ! towards OO programming, that means do not expect that $_ to contain
  9325. ! the path but rather $_[1].
  9326. ! 
  9327. ! Try to build several extensions simultanously to debug your
  9328. ! Makefile.PL. You can unpack a bunch of distributed packages within one
  9329. ! directory and run
  9330. ! 
  9331. !     perl -MExtUtils::MakeMaker -e 'WriteMakefile()'
  9332. ! 
  9333. ! That's actually fun to watch :)
  9334. ! 
  9335. ! Do not use exit() in your Makefile.PL. MakeMaker tries hard to enable
  9336. ! multi-module builds in one go.
  9337. ! 
  9338. ! Final suggestion: Try to delete all of your MY:: subroutines and
  9339. ! watch, if you really still need them. MakeMaker might already do what
  9340. ! you want without them. If you see no way to avoid your own subroutine
  9341. ! solution, please let us know about the problem.
  9342.   
  9343.   
  9344.   =head2 Default Makefile Behaviour
  9345.   
  9346. ! The automatically generated Makefile enables the user of the extension
  9347. ! to invoke
  9348.   
  9349.     perl Makefile.PL # optionally "perl Makefile.PL verbose"
  9350.     make
  9351. --- 848,876 ----
  9352.   that can be individually overridden.  Each subroutine returns the text
  9353.   it wishes to have written to the Makefile.
  9354.   
  9355. ! MakeMaker is object oriented. Each directory below the current
  9356. ! directory that contains a Makefile.PL. Is treated as a separate
  9357. ! object. This makes it possible to write an unlimited number of
  9358. ! Makefiles with a single invocation of WriteMakefile().
  9359.   
  9360. ! =head2 How To Write A Makefile.PL
  9361.   
  9362. ! The short answer is: Don't. Run h2xs(1) before you start thinking
  9363. ! about writing a module. For so called pm-only modules that consist of
  9364. ! C<*.pm> files only, h2xs has the very useful C<-X> switch. This will
  9365. ! generate dummy files of all kinds that are useful for the module
  9366. ! developer.
  9367.   
  9368. ! The medium answer is:
  9369.   
  9370. !     use ExtUtils::MakeMaker;
  9371. !     WriteMakefile( NAME => "Foo::Bar" );
  9372.   
  9373. + The long answer is below.
  9374.   
  9375.   =head2 Default Makefile Behaviour
  9376.   
  9377. ! The generated Makefile enables the user of the extension to invoke
  9378.   
  9379.     perl Makefile.PL # optionally "perl Makefile.PL verbose"
  9380.     make
  9381. ***************
  9382. *** 958,968 ****
  9383.   =head2 make install
  9384.   
  9385.   make alone puts all relevant files into directories that are named by
  9386. ! the macros INST_LIB, INST_ARCHLIB, INST_EXE, INST_MAN1DIR, and
  9387. ! INST_MAN3DIR. All these default to something below ./blib if
  9388. ! you are I<not> building below the perl source directory. If you I<are>
  9389.   building below the perl source, INST_LIB and INST_ARCHLIB default to
  9390. !  ../../lib, and INST_EXE is not defined.
  9391.   
  9392.   The I<install> target of the generated Makefile copies the files found
  9393.   below each of the INST_* directories to their INSTALL*
  9394. --- 905,915 ----
  9395.   =head2 make install
  9396.   
  9397.   make alone puts all relevant files into directories that are named by
  9398. ! the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_MAN1DIR, and
  9399. ! INST_MAN3DIR. All these default to something below ./blib if you are
  9400. ! I<not> building below the perl source directory. If you I<are>
  9401.   building below the perl source, INST_LIB and INST_ARCHLIB default to
  9402. ! ../../lib, and INST_SCRIPT is not defined.
  9403.   
  9404.   The I<install> target of the generated Makefile copies the files found
  9405.   below each of the INST_* directories to their INSTALL*
  9406. ***************
  9407. *** 974,980 ****
  9408.   
  9409.       INST_ARCHLIB    INSTALLARCHLIB    INSTALLSITEARCH
  9410.       INST_LIB        INSTALLPRIVLIB    INSTALLSITELIB
  9411. !     INST_EXE                   INSTALLBIN
  9412.       INST_MAN1DIR             INSTALLMAN1DIR
  9413.       INST_MAN3DIR             INSTALLMAN3DIR
  9414.   
  9415. --- 921,928 ----
  9416.   
  9417.       INST_ARCHLIB    INSTALLARCHLIB    INSTALLSITEARCH
  9418.       INST_LIB        INSTALLPRIVLIB    INSTALLSITELIB
  9419. !     INST_BIN                  INSTALLBIN
  9420. !     INST_SCRIPT              INSTALLSCRIPT
  9421.       INST_MAN1DIR             INSTALLMAN1DIR
  9422.       INST_MAN3DIR             INSTALLMAN3DIR
  9423.   
  9424. ***************
  9425. *** 987,1012 ****
  9426.           sprintf("%20s: %s", $_, $Config{$_}),
  9427.           grep /^install/, keys %Config'
  9428.   
  9429. ! If you don't want to keep the defaults, MakeMaker helps you to
  9430. ! minimize the typing needed: the usual relationship between
  9431. ! INSTALLPRIVLIB and INSTALLARCHLIB is determined by Configure at perl
  9432. ! compilation time. MakeMaker supports the user who sets
  9433. ! INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not, then
  9434. ! MakeMaker defaults the latter to be the same subdirectory of
  9435. ! INSTALLPRIVLIB as Configure decided for the counterparts in %Config ,
  9436. ! otherwise it defaults to INSTALLPRIVLIB. The same relationship holds
  9437. ! for INSTALLSITELIB and INSTALLSITEARCH.
  9438.   
  9439. ! MakeMaker gives you much more freedom than needed to configure
  9440. ! internal variables and get different results. It is worth to mention,
  9441. ! that make(1) also lets you configure most of the variables that are
  9442. ! used in the Makefile. But in the majority of situations this will not
  9443. ! be necessary, and should only be done, if the author of a package
  9444. ! recommends it (or you know what you're doing).
  9445.   
  9446. - =cut
  9447. - 
  9448. - #'
  9449.   
  9450.   =head2 PREFIX attribute
  9451.   
  9452. --- 935,945 ----
  9453.           sprintf("%20s: %s", $_, $Config{$_}),
  9454.           grep /^install/, keys %Config'
  9455.   
  9456. ! And to check the sequence in which the library directories are
  9457. ! searched by perl, run
  9458.   
  9459. !     perl -le 'print join $/, @INC'
  9460.   
  9461.   
  9462.   =head2 PREFIX attribute
  9463.   
  9464. ***************
  9465. *** 1023,1029 ****
  9466.   
  9467.   If the user has superuser privileges, and is not working on AFS
  9468.   (Andrew File System) or relatives, then the defaults for
  9469. ! INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLBIN, etc. will be appropriate,
  9470.   and this incantation will be the best:
  9471.   
  9472.       perl Makefile.PL; make; make test
  9473. --- 956,962 ----
  9474.   
  9475.   If the user has superuser privileges, and is not working on AFS
  9476.   (Andrew File System) or relatives, then the defaults for
  9477. ! INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLSCRIPT, etc. will be appropriate,
  9478.   and this incantation will be the best:
  9479.   
  9480.       perl Makefile.PL; make; make test
  9481. ***************
  9482. *** 1040,1046 ****
  9483.   have to do this by calling
  9484.   
  9485.       perl Makefile.PL INSTALLSITELIB=/afs/here/today \
  9486. !     INSTALLBIN=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
  9487.       make
  9488.   
  9489.   Be careful to repeat this procedure every time you recompile an
  9490. --- 973,979 ----
  9491.   have to do this by calling
  9492.   
  9493.       perl Makefile.PL INSTALLSITELIB=/afs/here/today \
  9494. !     INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
  9495.       make
  9496.   
  9497.   Be careful to repeat this procedure every time you recompile an
  9498. ***************
  9499. *** 1142,1160 ****
  9500.   If perl has not yet been installed then PERL_SRC can be defined on the
  9501.   command line as shown in the previous section.
  9502.   
  9503. - =head2 Useful Default Makefile Macros
  9504. - 
  9505. - FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  9506.   
  9507. ! BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  9508.   
  9509. ! ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)
  9510. ! 
  9511. ! INST_LIBDIR = C<$(INST_LIB)$(ROOTEXT)>
  9512. ! 
  9513. ! INST_AUTODIR = C<$(INST_LIB)/auto/$(FULLEXT)>
  9514.   
  9515. ! INST_ARCHAUTODIR = C<$(INST_ARCHLIB)/auto/$(FULLEXT)>
  9516.   
  9517.   =head2 Using Attributes and Parameters
  9518.   
  9519. --- 1075,1099 ----
  9520.   If perl has not yet been installed then PERL_SRC can be defined on the
  9521.   command line as shown in the previous section.
  9522.   
  9523.   
  9524. ! =head2 Which architecture dependent directory?
  9525.   
  9526. ! If you don't want to keep the defaults for the INSTALL* macros,
  9527. ! MakeMaker helps you to minimize the typing needed: the usual
  9528. ! relationship between INSTALLPRIVLIB and INSTALLARCHLIB is determined
  9529. ! by Configure at perl compilation time. MakeMaker supports the user who
  9530. ! sets INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not,
  9531. ! then MakeMaker defaults the latter to be the same subdirectory of
  9532. ! INSTALLPRIVLIB as Configure decided for the counterparts in %Config ,
  9533. ! otherwise it defaults to INSTALLPRIVLIB. The same relationship holds
  9534. ! for INSTALLSITELIB and INSTALLSITEARCH.
  9535.   
  9536. ! MakeMaker gives you much more freedom than needed to configure
  9537. ! internal variables and get different results. It is worth to mention,
  9538. ! that make(1) also lets you configure most of the variables that are
  9539. ! used in the Makefile. But in the majority of situations this will not
  9540. ! be necessary, and should only be done, if the author of a package
  9541. ! recommends it (or you know what you're doing).
  9542.   
  9543.   =head2 Using Attributes and Parameters
  9544.   
  9545. ***************
  9546. *** 1238,1247 ****
  9547.   (linker options) at present.  Defaults to [].  (e.g. [ qw(
  9548.   Foo_version Foo_numstreams Foo_tree ) ])
  9549.   
  9550.   =item EXE_FILES
  9551.   
  9552.   Ref to array of executable files. The files will be copied to the
  9553. ! INST_EXE directory. Make realclean will delete them from there
  9554.   again.
  9555.   
  9556.   =item NO_VC
  9557. --- 1177,1195 ----
  9558.   (linker options) at present.  Defaults to [].  (e.g. [ qw(
  9559.   Foo_version Foo_numstreams Foo_tree ) ])
  9560.   
  9561. + =item EXCLUDE_EXT
  9562. + 
  9563. + Array of extension names to exclude when doing a static build.  This
  9564. + is ignored if INCLUDE_EXT is present.  Consult INCLUDE_EXT for more
  9565. + details.  (e.g.  [ qw( Socket POSIX ) ] )
  9566. + 
  9567. + This attribute may be most useful when specified as a string on the
  9568. + commandline:  perl Makefile.PL EXCLUDE_EXT='Socket Safe'
  9569. + 
  9570.   =item EXE_FILES
  9571.   
  9572.   Ref to array of executable files. The files will be copied to the
  9573. ! INST_SCRIPT directory. Make realclean will delete them from there
  9574.   again.
  9575.   
  9576.   =item NO_VC
  9577. ***************
  9578. *** 1269,1274 ****
  9579. --- 1217,1237 ----
  9580.   
  9581.   Include file dirs eg: C<"-I/usr/5include -I/path/to/inc">
  9582.   
  9583. + =item INCLUDE_EXT
  9584. + 
  9585. + Array of extension names to be included when doing a static build.
  9586. + MakeMaker will normally build with all of the installed extensions when
  9587. + doing a static build, and that is usually the desired behavior.  If
  9588. + INCLUDE_EXT is present then MakeMaker will build only with those extensions
  9589. + which are explicitly mentioned. (e.g.  [ qw( Socket POSIX ) ])
  9590. + 
  9591. + It is not necessary to mention DynaLoader or the current extension when
  9592. + filling in INCLUDE_EXT.  If the INCLUDE_EXT is mentioned but is empty then
  9593. + only DynaLoader and the current extension will be included in the build.
  9594. + 
  9595. + This attribute may be most useful when specified as a string on the
  9596. + commandline:  perl Makefile.PL INCLUDE_EXT='POSIX Socket Devel::Peek'
  9597. + 
  9598.   =item INSTALLARCHLIB
  9599.   
  9600.   Used by 'make install', which copies files from INST_ARCHLIB to this
  9601. ***************
  9602. *** 1276,1283 ****
  9603.   
  9604.   =item INSTALLBIN
  9605.   
  9606. ! Used by 'make install' which copies files from INST_EXE to this
  9607. ! directory.
  9608.   
  9609.   =item INSTALLDIRS
  9610.   
  9611. --- 1239,1245 ----
  9612.   
  9613.   =item INSTALLBIN
  9614.   
  9615. ! Directory to install binary files (e.g. tkperl) into.
  9616.   
  9617.   =item INSTALLDIRS
  9618.   
  9619. ***************
  9620. *** 1301,1306 ****
  9621. --- 1263,1273 ----
  9622.   Used by 'make install', which copies files from INST_LIB to this
  9623.   directory if INSTALLDIRS is set to perl.
  9624.   
  9625. + =item INSTALLSCRIPT
  9626. + 
  9627. + Used by 'make install' which copies files from INST_SCRIPT to this
  9628. + directory.
  9629. + 
  9630.   =item INSTALLSITELIB
  9631.   
  9632.   Used by 'make install', which copies files from INST_LIB to this
  9633. ***************
  9634. *** 1315,1325 ****
  9635.   
  9636.   Same as INST_LIB for architecture dependent files.
  9637.   
  9638.   =item INST_EXE
  9639.   
  9640. ! Directory, where executable scripts should be installed during
  9641. ! 'make'. Defaults to "./blib/bin", just to have a dummy location during
  9642. ! testing. make install will copy the files in INST_EXE to INSTALLBIN.
  9643.   
  9644.   =item INST_LIB
  9645.   
  9646. --- 1282,1296 ----
  9647.   
  9648.   Same as INST_LIB for architecture dependent files.
  9649.   
  9650. + =item INST_BIN
  9651. + 
  9652. + Directory to put real binary files during 'make'. These will be copied
  9653. + to INSTALLBIN during 'make install'
  9654. + 
  9655.   =item INST_EXE
  9656.   
  9657. ! Old name for INST_SCRIPT. Deprecated. Please use INST_SCRIPT if you
  9658. ! need to use it.
  9659.   
  9660.   =item INST_LIB
  9661.   
  9662. ***************
  9663. *** 1334,1339 ****
  9664. --- 1305,1317 ----
  9665.   
  9666.   Directory to hold the man pages at 'make' time
  9667.   
  9668. + =item INST_SCRIPT
  9669. + 
  9670. + Directory, where executable files should be installed during
  9671. + 'make'. Defaults to "./blib/bin", just to have a dummy location during
  9672. + testing. make install will copy the files in INST_SCRIPT to
  9673. + INSTALLSCRIPT.
  9674. + 
  9675.   =item LDFROM
  9676.   
  9677.   defaults to "$(OBJECT)" and is used in the ld command to specify
  9678. ***************
  9679. *** 1421,1427 ****
  9680.   
  9681.   =item NOECHO
  9682.   
  9683. ! Defaults the C<@>. By setting it to an empty string you can generate a
  9684.   Makefile that echos all commands. Mainly used in debugging MakeMaker
  9685.   itself.
  9686.   
  9687. --- 1399,1405 ----
  9688.   
  9689.   =item NOECHO
  9690.   
  9691. ! Defaults to C<@>. By setting it to an empty string you can generate a
  9692.   Makefile that echos all commands. Mainly used in debugging MakeMaker
  9693.   itself.
  9694.   
  9695. ***************
  9696. *** 1501,1518 ****
  9697.   decided at the build time of your perl (unless you override one of
  9698.   them, of course).
  9699.   
  9700. ! =item PREREQ
  9701.   
  9702. ! Placeholder, not yet implemented. Will eventually be a hashref: Names
  9703. ! of modules that need to be available to run this extension (e.g. Fcntl
  9704. ! for SDBM_File) are the keys of the hash and the desired version is the
  9705. ! value. Needs further evaluation, should probably allow to define
  9706. ! prerequisites among header files, libraries, perl version, etc.
  9707.   
  9708.   =item SKIP
  9709.   
  9710.   Arryref. E.g. [qw(name1 name2)] skip (do not write) sections of the
  9711. ! Makefile
  9712.   
  9713.   =item TYPEMAPS
  9714.   
  9715. --- 1479,1497 ----
  9716.   decided at the build time of your perl (unless you override one of
  9717.   them, of course).
  9718.   
  9719. ! =item PREREQ_PM
  9720.   
  9721. ! Hashref: Names of modules that need to be available to run this
  9722. ! extension (e.g. Fcntl for SDBM_File) are the keys of the hash and the
  9723. ! desired version is the value. If the required version number is 0, we
  9724. ! only check if any version is installed already.
  9725.   
  9726.   =item SKIP
  9727.   
  9728.   Arryref. E.g. [qw(name1 name2)] skip (do not write) sections of the
  9729. ! Makefile. Caution! Do not use the SKIP attribute for the neglectible
  9730. ! speedup. It may seriously damage the resulting Makefile. Only use it,
  9731. ! if you really need it.
  9732.   
  9733.   =item TYPEMAPS
  9734.   
  9735. ***************
  9736. *** 1543,1549 ****
  9737.   MakeMaker object. The following lines will be parsed o.k.:
  9738.   
  9739.       $VERSION = '1.00';
  9740. !     ( $VERSION ) = '$Revision: 1.187 $ ' =~ /\$Revision:\s+([^\s]+)/;
  9741.       $FOO::VERSION = '1.10';
  9742.   
  9743.   but these will fail:
  9744. --- 1522,1528 ----
  9745.   MakeMaker object. The following lines will be parsed o.k.:
  9746.   
  9747.       $VERSION = '1.00';
  9748. !     ( $VERSION ) = '$Revision: 1.201 $ ' =~ /\$Revision:\s+([^\s]+)/;
  9749.       $FOO::VERSION = '1.10';
  9750.   
  9751.   but these will fail:
  9752. ***************
  9753. *** 1587,1593 ****
  9754.   =head2 Additional lowercase attributes
  9755.   
  9756.   can be used to pass parameters to the methods which implement that
  9757. ! part of the Makefile. These are not normally required:
  9758.   
  9759.   =over 2
  9760.   
  9761. --- 1566,1572 ----
  9762.   =head2 Additional lowercase attributes
  9763.   
  9764.   can be used to pass parameters to the methods which implement that
  9765. ! part of the Makefile.
  9766.   
  9767.   =over 2
  9768.   
  9769. ***************
  9770. *** 1603,1609 ****
  9771.   
  9772.     {TARFLAGS => 'cvfF', COMPRESS => 'gzip', SUFFIX => 'gz',
  9773.     SHAR => 'shar -m', DIST_CP => 'ln', ZIP => '/bin/zip',
  9774. !   ZIPFLAGS => '-rl'}
  9775.   
  9776.   If you specify COMPRESS, then SUFFIX should also be altered, as it is
  9777.   needed to tell make the target file of the compression. Setting
  9778. --- 1582,1588 ----
  9779.   
  9780.     {TARFLAGS => 'cvfF', COMPRESS => 'gzip', SUFFIX => 'gz',
  9781.     SHAR => 'shar -m', DIST_CP => 'ln', ZIP => '/bin/zip',
  9782. !   ZIPFLAGS => '-rl', DIST_DEFAULT => 'private tardist' }
  9783.   
  9784.   If you specify COMPRESS, then SUFFIX should also be altered, as it is
  9785.   needed to tell make the target file of the compression. Setting
  9786. ***************
  9787. *** 1665,1679 ****
  9788.   or you can edit the default by saying something like:
  9789.   
  9790.       sub MY::c_o {
  9791. !         my $self = shift;
  9792. !         local *c_o;
  9793. !             $_=$self->MM::c_o;
  9794. !         s/old text/new text/;
  9795. !         $_;
  9796.       }
  9797.   
  9798. ! Both methods above are available for backwards compatibility with
  9799. ! older Makefile.PLs.
  9800.   
  9801.   If you still need a different solution, try to develop another
  9802.   subroutine, that fits your needs and submit the diffs to
  9803. --- 1644,1658 ----
  9804.   or you can edit the default by saying something like:
  9805.   
  9806.       sub MY::c_o {
  9807. !             my($inherited) = shift->SUPER::c_o(@_);
  9808. !         $inherited =~ s/old text/new text/;
  9809. !         $inherited;
  9810.       }
  9811.   
  9812. ! If you running experiments with embedding perl as a library into other
  9813. ! applications, you might find MakeMaker not sufficient. You'd better
  9814. ! have a look at ExtUtils::embed which is a collection of utilities for
  9815. ! embedding.
  9816.   
  9817.   If you still need a different solution, try to develop another
  9818.   subroutine, that fits your needs and submit the diffs to
  9819. ***************
  9820. *** 1692,1697 ****
  9821. --- 1671,1694 ----
  9822.       }
  9823.   
  9824.   
  9825. + =head2 Hintsfile support
  9826. + 
  9827. + MakeMaker.pm uses the architecture specific information from
  9828. + Config.pm. In addition it evaluates architecture specific hints files
  9829. + in a C<hints/> directory. The hints files are expected to be named
  9830. + like their counterparts in C<PERL_SRC/hints>, but with an C<.pl> file
  9831. + name extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by
  9832. + MakeMaker within the WriteMakefile() subroutine, and can be used to
  9833. + execute commands as well as to include special variables. The rules
  9834. + which hintsfile is chosen are the same as in Configure.
  9835. + 
  9836. + The hintsfile is eval()ed immediately after the arguments given to
  9837. + WriteMakefile are stuffed into a hash reference $self but before this
  9838. + reference becomes blessed. So if you want to do the equivalent to
  9839. + override or create an attribute you would say something like
  9840. + 
  9841. +     $self->{LIBS} = ['-ldbm -lucb -lc'];
  9842. + 
  9843.   =head2 Distribution Support
  9844.   
  9845.   For authors of extensions MakeMaker provides several Makefile
  9846. ***************
  9847. *** 1737,1743 ****
  9848.   =item    make tardist
  9849.   
  9850.   First does a distdir. Then a command $(PREOP) which defaults to a null
  9851. ! command. Next it runs C<tar> on that directory into a tarfile and
  9852.   deletes the directory. Finishes with a command $(POSTOP) which
  9853.   defaults to a null command.
  9854.   
  9855. --- 1734,1742 ----
  9856.   =item    make tardist
  9857.   
  9858.   First does a distdir. Then a command $(PREOP) which defaults to a null
  9859. ! command, followed by $(TOUNIX), which defaults to a null command under
  9860. ! UNIX, and will convert files in distribution directory to UNIX format
  9861. ! otherwise. Next it runs C<tar> on that directory into a tarfile and
  9862.   deletes the directory. Finishes with a command $(POSTOP) which
  9863.   defaults to a null command.
  9864.   
  9865. ***************
  9866. *** 1778,1783 ****
  9867. --- 1777,1783 ----
  9868.       COMPRESS     ('compress')
  9869.       POSTOP       ('@ :')
  9870.       PREOP        ('@ :')
  9871. +     TO_UNIX      (depends on the system)
  9872.       RCS_LABEL    ('rcs -q -Nv$(VERSION_SYM):')
  9873.       SHAR         ('shar')
  9874.       SUFFIX       ('Z')
  9875. ***************
  9876. *** 1790,1795 ****
  9877. --- 1790,1799 ----
  9878.   
  9879.       WriteMakefile( 'dist' => { COMPRESS=>"gzip", SUFFIX=>"gz" })
  9880.   
  9881. + =head1 SEE ALSO
  9882. + 
  9883. + ExtUtils::MM_Unix, ExtUtils::Manifest, ExtUtils::testlib,
  9884. + ExtUtils::Install, ExtUtils::embed
  9885.   
  9886.   =head1 AUTHORS
  9887.   
  9888. ***************
  9889. *** 1800,1813 ****
  9890.   Zakharevich F<E<lt>ilya@math.ohio-state.eduE<gt>>. Contact the
  9891.   makemaker mailing list C<mailto:makemaker@franz.ww.tu-berlin.de>, if
  9892.   you have any questions.
  9893. - 
  9894. - =head1 MODIFICATION HISTORY
  9895. - 
  9896. - For a more complete documentation see the file Changes in the
  9897. - MakeMaker distribution package.
  9898. - 
  9899. - =head1 TODO
  9900. - 
  9901. - See the file Todo in the MakeMaker distribution package.
  9902.   
  9903.   =cut
  9904. --- 1804,1808 ----
  9905.  
  9906.  
  9907. #: lib/ExtUtils/Manifest.pm
  9908. #:   Update to MakeMaker 5.34
  9909. diff -crN perl5.002_01/lib/ExtUtils/Manifest.pm perl5.003/lib/ExtUtils/Manifest.pm
  9910. *** perl5.002_01/lib/ExtUtils/Manifest.pm    Mon Mar 25 01:04:20 1996
  9911. --- perl5.003/lib/ExtUtils/Manifest.pm    Sun Jun 23 20:52:52 1996
  9912. ***************
  9913. *** 15,21 ****
  9914.   $Verbose = 1;
  9915.   $Is_VMS = $^O eq 'VMS';
  9916.   
  9917. ! $VERSION = $VERSION = substr(q$Revision: 1.23 $,10,4);
  9918.   
  9919.   $Quiet = 0;
  9920.   
  9921. --- 15,21 ----
  9922.   $Verbose = 1;
  9923.   $Is_VMS = $^O eq 'VMS';
  9924.   
  9925. ! $VERSION = $VERSION = substr(q$Revision: 1.24 $,10,4);
  9926.   
  9927.   $Quiet = 0;
  9928.   
  9929. ***************
  9930. *** 36,42 ****
  9931.       my $matches = _maniskip();
  9932.       my $found = manifind();
  9933.       my($key,$val,$file,%all);
  9934. !     my %all = (%$found, %$read);
  9935.       $all{$MANIFEST} = ($Is_VMS ? "$MANIFEST\t\t" : '') . 'This list of files'
  9936.           if $manimiss; # add new MANIFEST to known file list
  9937.       foreach $file (sort keys %all) {
  9938. --- 36,42 ----
  9939.       my $matches = _maniskip();
  9940.       my $found = manifind();
  9941.       my($key,$val,$file,%all);
  9942. !     %all = (%$found, %$read);
  9943.       $all{$MANIFEST} = ($Is_VMS ? "$MANIFEST\t\t" : '') . 'This list of files'
  9944.           if $manimiss; # add new MANIFEST to known file list
  9945.       foreach $file (sort keys %all) {
  9946. ***************
  9947. *** 138,144 ****
  9948.       my ($mfile) = @_;
  9949.       my $matches = sub {0};
  9950.       my @skip ;
  9951. !     my $mfile = "$MANIFEST.SKIP" unless defined $mfile;
  9952.       local *M;
  9953.       return $matches unless -f $mfile;
  9954.       open M, $mfile or return $matches;
  9955. --- 138,144 ----
  9956.       my ($mfile) = @_;
  9957.       my $matches = sub {0};
  9958.       my @skip ;
  9959. !     $mfile = "$MANIFEST.SKIP" unless defined $mfile;
  9960.       local *M;
  9961.       return $matches unless -f $mfile;
  9962.       open M, $mfile or return $matches;
  9963. ***************
  9964. *** 290,297 ****
  9965.   output. All files that match any regular expression in a file
  9966.   C<MANIFEST.SKIP> (if such a file exists) are ignored.
  9967.   
  9968. ! Manicheck() checks if all the files within a C<MANIFEST> in the current
  9969. ! directory really do exist.
  9970.   
  9971.   Filecheck() finds files below the current directory that are not
  9972.   mentioned in the C<MANIFEST> file. An optional file C<MANIFEST.SKIP>
  9973. --- 290,299 ----
  9974.   output. All files that match any regular expression in a file
  9975.   C<MANIFEST.SKIP> (if such a file exists) are ignored.
  9976.   
  9977. ! Manicheck() checks if all the files within a C<MANIFEST> in the
  9978. ! current directory really do exist. It only reports discrepancies and
  9979. ! exits silently if MANIFEST and the tree below the current directory
  9980. ! are in sync.
  9981.   
  9982.   Filecheck() finds files below the current directory that are not
  9983.   mentioned in the C<MANIFEST> file. An optional file C<MANIFEST.SKIP>
  9984.  
  9985.  
  9986. #: lib/ExtUtils/Mksymlists.pm
  9987. #:   Update to MakeMaker 5.34
  9988. diff -crN perl5.002_01/lib/ExtUtils/Mksymlists.pm perl5.003/lib/ExtUtils/Mksymlists.pm
  9989. *** perl5.002_01/lib/ExtUtils/Mksymlists.pm    Mon Mar 25 01:04:20 1996
  9990. --- perl5.003/lib/ExtUtils/Mksymlists.pm    Sun Jun 23 20:52:59 1996
  9991. ***************
  9992. *** 4,16 ****
  9993.   
  9994.   use Carp;
  9995.   use Exporter;
  9996. ! # mention vars twice to prevent single-use warnings
  9997. ! @ExtUtils::Mksymlists::ISA = @ExtUtils::Mksymlists::ISA = 'Exporter';
  9998. ! @ExtUtils::Mksymlists::EXPORT = @ExtUtils::Mksymlists::EXPORT = '&Mksymlists';
  9999. ! $ExtUtils::Mksymlists::VERSION = $ExtUtils::Mksymlists::VERSION = '1.00';
  10000.   
  10001.   sub Mksymlists {
  10002.       my(%spec) = @_;
  10003.   
  10004.       croak("Insufficient information specified to Mksymlists")
  10005.           unless ( $spec{NAME} or
  10006. --- 4,17 ----
  10007.   
  10008.   use Carp;
  10009.   use Exporter;
  10010. ! use vars qw( @ISA @EXPORT $VERSION );
  10011. ! @ISA = 'Exporter';
  10012. ! @EXPORT = '&Mksymlists';
  10013. ! $VERSION = '1.03';
  10014.   
  10015.   sub Mksymlists {
  10016.       my(%spec) = @_;
  10017. +     my($osname) = $^O;
  10018.   
  10019.       croak("Insufficient information specified to Mksymlists")
  10020.           unless ( $spec{NAME} or
  10021. ***************
  10022. *** 44,53 ****
  10023.           $spec{DLBASE} = DynaLoader::mod2fname([ split(/::/,$spec{NAME}) ]);
  10024.       }
  10025.   
  10026. !     if    ($^O eq 'aix') { _write_aix(\%spec); }
  10027. !     elsif ($^O eq 'VMS') { _write_vms(\%spec) }
  10028. !     elsif ($^O eq 'os2') { _write_os2(\%spec) }
  10029. !     else { croak("Don't know how to create linker option file for $^O\n"); }
  10030.   }
  10031.   
  10032.   
  10033. --- 45,54 ----
  10034.           $spec{DLBASE} = DynaLoader::mod2fname([ split(/::/,$spec{NAME}) ]);
  10035.       }
  10036.   
  10037. !     if    ($osname eq 'aix') { _write_aix(\%spec); }
  10038. !     elsif ($osname eq 'VMS') { _write_vms(\%spec) }
  10039. !     elsif ($osname =~ m|^os/?2$|i) { _write_os2(\%spec) }
  10040. !     else { croak("Don't know how to create linker option file for $osname\n"); }
  10041.   }
  10042.   
  10043.   
  10044. ***************
  10045. *** 95,101 ****
  10046.   sub _write_vms {
  10047.       my($data) = @_;
  10048.   
  10049. !     require Config;
  10050.   
  10051.       my($isvax) = $Config::Config{'arch'} =~ /VAX/i;
  10052.       my($sym);
  10053. --- 96,102 ----
  10054.   sub _write_vms {
  10055.       my($data) = @_;
  10056.   
  10057. !     require Config; # a reminder for once we do $^O
  10058.   
  10059.       my($isvax) = $Config::Config{'arch'} =~ /VAX/i;
  10060.       my($sym);
  10061.  
  10062.  
  10063. #: lib/Symbol.pm
  10064. #:   Do Perl version check at compile time, so that user gets a
  10065. #:   clear error message instead of syntax errors during compilation
  10066. diff -crN perl5.002_01/lib/Symbol.pm perl5.003/lib/Symbol.pm
  10067. *** perl5.002_01/lib/Symbol.pm    Mon Mar 25 01:04:47 1996
  10068. --- perl5.003/lib/Symbol.pm    Mon Jun 24 16:07:54 1996
  10069. ***************
  10070. *** 46,52 ****
  10071.   
  10072.   =cut
  10073.   
  10074. ! require 5.002;
  10075.   
  10076.   require Exporter;
  10077.   @ISA = qw(Exporter);
  10078. --- 46,52 ----
  10079.   
  10080.   =cut
  10081.   
  10082. ! BEGIN { require 5.002; }
  10083.   
  10084.   require Exporter;
  10085.   @ISA = qw(Exporter);
  10086.  
  10087. #: op.c
  10088. #:   Fix overeager integer optimization
  10089. diff -crN perl5.002_01/op.c perl5.003/op.c
  10090. *** perl5.002_01/op.c    Mon Mar 25 01:05:00 1996
  10091. --- perl5.003/op.c    Sun Jun 23 20:35:03 1996
  10092. ***************
  10093. *** 1413,1419 ****
  10094.       for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) {
  10095.           if (curop->op_type == OP_CONST) {
  10096.           if (SvIOK(((SVOP*)curop)->op_sv)) {
  10097. !             if (SvIVX(((SVOP*)curop)->op_sv) < 0 && vars++)
  10098.               return o;    /* negatives truncate wrong way, alas */
  10099.               continue;
  10100.           }
  10101. --- 1413,1419 ----
  10102.       for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) {
  10103.           if (curop->op_type == OP_CONST) {
  10104.           if (SvIOK(((SVOP*)curop)->op_sv)) {
  10105. !             if (SvIVX(((SVOP*)curop)->op_sv) <= 0 && vars++)
  10106.               return o;    /* negatives truncate wrong way, alas */
  10107.               continue;
  10108.           }
  10109.  
  10110.  
  10111. #: patchlevel.h
  10112. #:   Update to reflect new version
  10113. diff -crN perl5.002_01/patchlevel.h perl5.003/patchlevel.h
  10114. *** perl5.002_01/patchlevel.h    Mon Mar 25 01:05:05 1996
  10115. --- perl5.003/patchlevel.h    Sun Jun 23 13:57:18 1996
  10116. ***************
  10117. *** 1,5 ****
  10118. ! #define PATCHLEVEL 2
  10119. ! #define SUBVERSION 1
  10120.   
  10121.   /*
  10122.       local_patches -- list of locally applied less-than-subversion patches.
  10123. --- 1,5 ----
  10124. ! #define PATCHLEVEL 3
  10125. ! #define SUBVERSION 0
  10126.   
  10127.   /*
  10128.       local_patches -- list of locally applied less-than-subversion patches.
  10129.  
  10130.  
  10131. #: perl.c
  10132. #:   suidperl security patch
  10133. diff -crN perl5.002_01/perl.c perl5.003/perl.c
  10134. *** perl5.002_01/perl.c    Mon Mar 25 01:05:05 1996
  10135. --- perl5.003/perl.c    Mon Jun 24 17:06:37 1996
  10136. ***************
  10137. *** 47,53 ****
  10138.   static void init_stacks _((void));
  10139.   static void open_script _((char *, bool, SV *));
  10140.   static void usage _((char *));
  10141. ! static void validate_suid _((char *));
  10142.   
  10143.   PerlInterpreter *
  10144.   perl_alloc()
  10145. --- 47,55 ----
  10146.   static void init_stacks _((void));
  10147.   static void open_script _((char *, bool, SV *));
  10148.   static void usage _((char *));
  10149. ! static void validate_suid _((char *, char*));
  10150. ! 
  10151. ! static int fdscript = -1;
  10152.   
  10153.   PerlInterpreter *
  10154.   perl_alloc()
  10155. ***************
  10156. *** 427,433 ****
  10157.   
  10158.       open_script(scriptname,dosearch,sv);
  10159.   
  10160. !     validate_suid(validarg);
  10161.   
  10162.       if (doextract)
  10163.       find_beginning();
  10164. --- 429,435 ----
  10165.   
  10166.       open_script(scriptname,dosearch,sv);
  10167.   
  10168. !     validate_suid(validarg, scriptname);
  10169.   
  10170.       if (doextract)
  10171.       find_beginning();
  10172. ***************
  10173. *** 1209,1214 ****
  10174. --- 1211,1217 ----
  10175.       printf(" on %s",__DATE__);
  10176.   #  endif
  10177.   #endif
  10178. +     fputs("\n\t+ suidperl security patch", stdout);
  10179.       fputs("\n\nCopyright 1987-1996, Larry Wall\n",stdout);
  10180.   #ifdef MSDOS
  10181.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  10182. ***************
  10183. *** 1399,1409 ****
  10184.       scriptname = xfound;
  10185.       }
  10186.   
  10187.       origfilename = savepv(e_tmpname ? "-e" : scriptname);
  10188.       curcop->cop_filegv = gv_fetchfile(origfilename);
  10189.       if (strEQ(origfilename,"-"))
  10190.       scriptname = "";
  10191. !     if (preprocess) {
  10192.       char *cpp = CPPSTDIN;
  10193.   
  10194.       if (strEQ(cpp,"cppstdin"))
  10195. --- 1402,1428 ----
  10196.       scriptname = xfound;
  10197.       }
  10198.   
  10199. +     if (strnEQ(scriptname, "/dev/fd/", 8) && isDIGIT(scriptname[8]) ) {
  10200. +     char *s = scriptname + 8;
  10201. +     fdscript = atoi(s);
  10202. +     while (isDIGIT(*s))
  10203. +         s++;
  10204. +     if (*s)
  10205. +         scriptname = s + 1;
  10206. +     }
  10207. +     else
  10208. +     fdscript = -1;
  10209.       origfilename = savepv(e_tmpname ? "-e" : scriptname);
  10210.       curcop->cop_filegv = gv_fetchfile(origfilename);
  10211.       if (strEQ(origfilename,"-"))
  10212.       scriptname = "";
  10213. !     if (fdscript >= 0) {
  10214. !     rsfp = fdopen(fdscript,"r");
  10215. ! #if defined(HAS_FCNTL) && defined(F_SETFD)
  10216. !     fcntl(fileno(rsfp),F_SETFD,1);    /* ensure close-on-exec */
  10217. ! #endif
  10218. !     }
  10219. !     else if (preprocess) {
  10220.       char *cpp = CPPSTDIN;
  10221.   
  10222.       if (strEQ(cpp,"cppstdin"))
  10223. ***************
  10224. *** 1475,1482 ****
  10225.       taint_not("program input from stdin");
  10226.       rsfp = stdin;
  10227.       }
  10228. !     else
  10229.       rsfp = fopen(scriptname,"r");
  10230.       if ((FILE*)rsfp == Nullfp) {
  10231.   #ifdef DOSUID
  10232.   #ifndef IAMSUID        /* in case script is not readable before setuid */
  10233. --- 1494,1505 ----
  10234.       taint_not("program input from stdin");
  10235.       rsfp = stdin;
  10236.       }
  10237. !     else {
  10238.       rsfp = fopen(scriptname,"r");
  10239. + #if defined(HAS_FCNTL) && defined(F_SETFD)
  10240. +     fcntl(fileno(rsfp),F_SETFD,1);    /* ensure close-on-exec */
  10241. + #endif
  10242. +     }
  10243.       if ((FILE*)rsfp == Nullfp) {
  10244.   #ifdef DOSUID
  10245.   #ifndef IAMSUID        /* in case script is not readable before setuid */
  10246. ***************
  10247. *** 1494,1502 ****
  10248.   }
  10249.   
  10250.   static void
  10251. ! validate_suid(validarg)
  10252.   char *validarg;
  10253.   {
  10254.       /* do we need to emulate setuid on scripts? */
  10255.   
  10256.       /* This code is for those BSD systems that have setuid #! scripts disabled
  10257. --- 1517,1528 ----
  10258.   }
  10259.   
  10260.   static void
  10261. ! validate_suid(validarg, scriptname)
  10262.   char *validarg;
  10263. + char *scriptname;
  10264.   {
  10265. +     int which;
  10266. + 
  10267.       /* do we need to emulate setuid on scripts? */
  10268.   
  10269.       /* This code is for those BSD systems that have setuid #! scripts disabled
  10270. ***************
  10271. *** 1522,1528 ****
  10272.   
  10273.       if (Fstat(fileno(rsfp),&statbuf) < 0)    /* normal stat is insecure */
  10274.       croak("Can't stat script \"%s\"",origfilename);
  10275. !     if (statbuf.st_mode & (S_ISUID|S_ISGID)) {
  10276.       I32 len;
  10277.   
  10278.   #ifdef IAMSUID
  10279. --- 1548,1554 ----
  10280.   
  10281.       if (Fstat(fileno(rsfp),&statbuf) < 0)    /* normal stat is insecure */
  10282.       croak("Can't stat script \"%s\"",origfilename);
  10283. !     if (fdscript < 0 && statbuf.st_mode & (S_ISUID|S_ISGID)) {
  10284.       I32 len;
  10285.   
  10286.   #ifdef IAMSUID
  10287. ***************
  10288. *** 1690,1697 ****
  10289. --- 1716,1743 ----
  10290.   #ifdef IAMSUID
  10291.       else if (preprocess)
  10292.       croak("-P not allowed for setuid/setgid script\n");
  10293. +     else if (fdscript >= 0)
  10294. +     croak("fd script not allowed in suidperl\n");
  10295.       else
  10296.       croak("Script is not setuid/setgid in suidperl\n");
  10297. + 
  10298. +     /* We absolutely must clear out any saved ids here, so we */
  10299. +     /* exec the real perl, substituting fd script for scriptname. */
  10300. +     /* (We pass script name as "subdir" of fd, which perl will grok.) */
  10301. +     rewind(rsfp);
  10302. +     for (which = 1; origargv[which] && origargv[which] != scriptname; which++) ;
  10303. +     if (!origargv[which])
  10304. +     croak("Permission denied");
  10305. +     (void)sprintf(buf, "/dev/fd/%d/%.127s", fileno(rsfp), origargv[which]);
  10306. +     origargv[which] = buf;
  10307. + 
  10308. + #if defined(HAS_FCNTL) && defined(F_SETFD)
  10309. +     fcntl(fileno(rsfp),F_SETFD,0);    /* ensure no close-on-exec */
  10310. + #endif
  10311. + 
  10312. +     (void)sprintf(tokenbuf, "%s/perl%s", BIN, patchlevel);
  10313. +     execv(tokenbuf, origargv);    /* try again */
  10314. +     croak("Can't do setuid\n");
  10315.   #endif /* IAMSUID */
  10316.   #else /* !DOSUID */
  10317.       if (euid != uid || egid != gid) {    /* (suidperl doesn't exist, in fact) */
  10318.  
  10319.  
  10320. #: t/op/stat.t
  10321. #:   MachTen considers /dev/null to be a terminal, so don't
  10322. #:   count this as a Perl test failure
  10323. diff -crN perl5.002_01/t/op/stat.t perl5.003/t/op/stat.t
  10324. *** perl5.002_01/t/op/stat.t    Mon Feb 12 15:01:45 1996
  10325. --- perl5.003/t/op/stat.t    Mon Jun 24 16:07:55 1996
  10326. ***************
  10327. *** 1,7 ****
  10328.   #!./perl
  10329.   
  10330.   # $RCSfile: stat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:28 $
  10331. ! 
  10332.   print "1..56\n";
  10333.   
  10334.   chop($cwd = `pwd`);
  10335. --- 1,8 ----
  10336.   #!./perl
  10337.   
  10338.   # $RCSfile: stat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:28 $
  10339. ! # 950521 DFD    This version hacked to make test 39 succeed on MachTen
  10340. ! #               though the O.S. wrongly thinks /dev/null is a terminal
  10341.   print "1..56\n";
  10342.   
  10343.   chop($cwd = `pwd`);
  10344. ***************
  10345. *** 140,146 ****
  10346.   close(tty);
  10347.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  10348.   open(null,"/dev/null");
  10349. ! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
  10350.   close(null);
  10351.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  10352.   
  10353. --- 141,148 ----
  10354.   close(tty);
  10355.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  10356.   open(null,"/dev/null");
  10357. ! if (! -t null || -e '/xenix' || -e '/MachTen')
  10358. !     {print "ok 39\n";} else {print "not ok 39\n";}
  10359.   close(null);
  10360.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  10361.   
  10362.  
  10363.  
  10364. #: vms/Makefile
  10365. #:   Update to reflect new Perl version
  10366. diff -crN perl5.002_01/vms/Makefile perl5.003/vms/Makefile
  10367. *** perl5.002_01/vms/Makefile    Mon Mar 25 01:06:02 1996
  10368. --- perl5.003/vms/Makefile    Sun Jun 23 22:54:44 1996
  10369. ***************
  10370. *** 35,41 ****
  10371.       @ $$@[.vms]fndvers.com "" "" "[.vms]Makefile"
  10372.   
  10373.   # Updated by fndvers.com -- do not edit by hand
  10374. ! PERL_VERSION = 5_00201#
  10375.   
  10376.   
  10377.   ARCHDIR =  [.lib.$(ARCH).$(PERL_VERSION)]
  10378. --- 35,41 ----
  10379.       @ $$@[.vms]fndvers.com "" "" "[.vms]Makefile"
  10380.   
  10381.   # Updated by fndvers.com -- do not edit by hand
  10382. ! PERL_VERSION = 5_003  #
  10383.   
  10384.   
  10385.   ARCHDIR =  [.lib.$(ARCH).$(PERL_VERSION)]
  10386.  
  10387.  
  10388. #: vms/config.vms
  10389. #:   Remove string concatenation on which VAXC chokes
  10390. #:   Update to reflect new version
  10391. diff -crN perl5.002_01/vms/config.vms perl5.003/vms/config.vms
  10392. *** perl5.002_01/vms/config.vms    Mon Mar 25 01:05:51 1996
  10393. --- perl5.003/vms/config.vms    Sun Jun 23 22:54:20 1996
  10394. ***************
  10395. *** 44,56 ****
  10396.   #define STRINGIFY(a)"a"
  10397.   #endif
  10398.   
  10399. - /* Default value for version token in ARCHLIB_EXP;
  10400. -  * updated during build by FndVers.Com -- do not edit
  10401. -  */
  10402. - #ifndef _PVERS
  10403. - #  define _PVERS "5_00201"  /**/
  10404. - #endif
  10405. - 
  10406.   /* config-start */
  10407.   
  10408.   /* MEM_ALIGNBYTES:
  10409. --- 44,49 ----
  10410. ***************
  10411. *** 74,84 ****
  10412.    *    same as PRIVLIB_EXP, it is not defined, since presumably the
  10413.    *    program already searches PRIVLIB_EXP.
  10414.    */
  10415. ! #ifdef __ALPHA
  10416. ! #define ARCHLIB_EXP CAT2("/perl_root/lib/VMS_AXP/",_PVERS)  /* config-skip */
  10417. ! #else
  10418. ! #define ARCHLIB_EXP CAT2("/perl_root/lib/VMS_VAX/",_PVERS)  /* config-skip */
  10419. ! #endif
  10420.   
  10421.   /* CPPSTDIN:
  10422.    *    This symbol contains the first part of the string which will invoke
  10423. --- 67,78 ----
  10424.    *    same as PRIVLIB_EXP, it is not defined, since presumably the
  10425.    *    program already searches PRIVLIB_EXP.
  10426.    */
  10427. ! /*     ==> NOTE <==
  10428. !  * This value is automatically updated by FndVers.Com
  10429. !  * when Perl is built.  Please do not change it by hand; make
  10430. !  * any changes to FndVers.Com instead.
  10431. !  */
  10432. ! #define ARCHLIB_EXP "/perl_root/lib/VMS_VAX/5_003"    /**/
  10433.   
  10434.   /* CPPSTDIN:
  10435.    *    This symbol contains the first part of the string which will invoke
  10436. ***************
  10437. *** 1318,1328 ****
  10438.    *    used in programs that are not prepared to deal with ~ expansion at 
  10439.    *    run-time.
  10440.    */
  10441. ! #ifdef __ALPHA
  10442. ! #define OLDARCHLIB_EXP "/perl_root/lib/VMS_AXP"  /* config-skip */
  10443. ! #else
  10444. ! #define OLDARCHLIB_EXP "/perl_root/lib/VMS_VAX" /* config-skip */
  10445. ! #endif
  10446.   
  10447.   /* PRIVLIB_EXP:
  10448.    *    This symbol contains the name of the private library for this package.
  10449. --- 1312,1323 ----
  10450.    *    used in programs that are not prepared to deal with ~ expansion at 
  10451.    *    run-time.
  10452.    */
  10453. ! /*     ==> NOTE <==
  10454. !  * This value is automatically updated by FndVers.Com
  10455. !  * when Perl is built.  Please do not change it by hand; make
  10456. !  * any changes to FndVers.Com instead.
  10457. !  */
  10458. ! #define OLDARCHLIB_EXP "/perl_root/lib/VMS_VAX"  /**/
  10459.   
  10460.   /* PRIVLIB_EXP:
  10461.    *    This symbol contains the name of the private library for this package.
  10462. ***************
  10463. *** 1342,1352 ****
  10464.    *    This symbol contains the ~name expanded version of SITEARCH, to be used
  10465.    *    in programs that are not prepared to deal with ~ expansion at run-time.
  10466.    */
  10467. ! #ifdef __ALPHA
  10468. ! #define SITEARCH_EXP "/perl_root/lib/site_perl/VMS_AXP"  /* config-skip */
  10469. ! #else
  10470. ! #define SITEARCH_EXP "/perl_root/lib/site_perl/VMS_VAX" /* config-skip */
  10471. ! #endif
  10472.   
  10473.   /* SCRIPTDIR:
  10474.    *    This symbol holds the name of the directory in which the user wants
  10475. --- 1337,1348 ----
  10476.    *    This symbol contains the ~name expanded version of SITEARCH, to be used
  10477.    *    in programs that are not prepared to deal with ~ expansion at run-time.
  10478.    */
  10479. ! /*     ==> NOTE <==
  10480. !  * This value is automatically updated by FndVers.Com
  10481. !  * when Perl is built.  Please do not change it by hand; make
  10482. !  * any changes to FndVers.Com instead.
  10483. !  */
  10484. ! #define SITEARCH_EXP "/perl_root/lib/site_perl/VMS_VAX"  /**/
  10485.   
  10486.   /* SCRIPTDIR:
  10487.    *    This symbol holds the name of the directory in which the user wants
  10488.  
  10489.  
  10490. #: vms/descrip.mms
  10491. #:   Update to reflect new Perl version
  10492. diff -crN perl5.002_01/vms/descrip.mms perl5.003/vms/descrip.mms
  10493. *** perl5.002_01/vms/descrip.mms    Mon Mar 25 01:05:52 1996
  10494. --- perl5.003/vms/descrip.mms    Sun Jun 23 22:53:30 1996
  10495. ***************
  10496. *** 68,74 ****
  10497.       @ @[.vms]fndvers.com "" "" "[.vms]descrip.mms"
  10498.   
  10499.   # Updated by fndvers.com -- do not edit by hand
  10500. ! PERL_VERSION = 5_00201#
  10501.   
  10502.   
  10503.   ARCHDIR =  [.lib.$(ARCH).$(PERL_VERSION)]
  10504. --- 68,74 ----
  10505.       @ @[.vms]fndvers.com "" "" "[.vms]descrip.mms"
  10506.   
  10507.   # Updated by fndvers.com -- do not edit by hand
  10508. ! PERL_VERSION = 5_003  #
  10509.   
  10510.   
  10511.   ARCHDIR =  [.lib.$(ARCH).$(PERL_VERSION)]
  10512.  
  10513.  
  10514. #: vms/fndvers.com
  10515. #:   Update generation of ARCHLIB_EXP in config.h to use a
  10516. #:   method which keeps VAXC happy
  10517. diff -crN perl5.002_01/vms/fndvers.com perl5.003/vms/fndvers.com
  10518. *** perl5.002_01/vms/fndvers.com    Mon Mar 25 01:05:59 1996
  10519. --- perl5.003/vms/fndvers.com    Sun Jun 23 13:58:49 1996
  10520. ***************
  10521. *** 37,53 ****
  10522.   $!
  10523.   $ If sublevel.eq.0 Then sublevel = ""
  10524.   $ perl_version = "5_" + plevel + sublevel
  10525.   $ If p2.eqs."#NOFILE#"
  10526.   $ Then
  10527.   $   Write Sys$Output "Perl version directory name is ""''perl_version'"""
  10528.   $   Exit
  10529.   $ EndIf
  10530.   $!
  10531. ! $ token = """""""""''perl_version'"""""""""
  10532.   $ If sublevel.eqs."" Then token = token + "  "
  10533.   $ token = token + "  /**/"
  10534. ! $ Call update_file "''p2'" "#  define _PVERS" "''token'"
  10535. ! $ If .not.$Status Then Exit $Status
  10536.   $!
  10537.   $ token = "''perl_version'"
  10538.   $ If sublevel.eqs."" Then token = token + "  "
  10539. --- 37,71 ----
  10540.   $!
  10541.   $ If sublevel.eq.0 Then sublevel = ""
  10542.   $ perl_version = "5_" + plevel + sublevel
  10543. + $ If F$GetSyi("HW_MODEL").gt.1024
  10544. + $ Then
  10545. + $   arch = "AXP"
  10546. + $ Else
  10547. + $   arch = "VAX"
  10548. + $ EndIf
  10549.   $ If p2.eqs."#NOFILE#"
  10550.   $ Then
  10551.   $   Write Sys$Output "Perl version directory name is ""''perl_version'"""
  10552.   $   Exit
  10553.   $ EndIf
  10554.   $!
  10555. ! $ token = """""""""/perl_root/lib/VMS_''arch'/''perl_version'"""""""""
  10556.   $ If sublevel.eqs."" Then token = token + "  "
  10557.   $ token = token + "  /**/"
  10558. ! $ Call update_file "''p2'" "#define ARCHLIB_EXP" "''token'"
  10559. ! $ teststs = $Status
  10560. ! $ If .not.teststs Then Exit teststs
  10561. ! $!
  10562. ! $ If teststs.ne.1 ! current values in config.vms are appropriate
  10563. ! $ Then
  10564. ! $   token = """""""""/perl_root/lib/VMS_''arch'""""""""  /**/"
  10565. ! $   Call update_file "''p2'" "#define OLDARCHLIB_EXP" "''token'"
  10566. ! $   If .not.$Status Then Exit $Status
  10567. ! $!
  10568. ! $   token = """""""""/perl_root/lib/site_perl/VMS_''arch'""""""""  /**/"
  10569. ! $   Call update_file "''p2'" "#define SITEARCH_EXP" "''token'"
  10570. ! $   If .not.$Status Then Exit $Status
  10571. ! $EndIf
  10572.   $!
  10573.   $ token = "''perl_version'"
  10574.   $ If sublevel.eqs."" Then token = token + "  "
  10575.  
  10576.  
  10577. #: vms/vms.c
  10578. #:    Fix bugs in VMS <--> Unix filespec translation
  10579. #:    Clarify copyright notices
  10580. #:    Downcase VMS filespecs translated from Unix paths with
  10581. #:    lowercase characters
  10582. #:    Add rmsexpand routine to expand filespecs
  10583. diff -crN perl5.002_01/vms/vms.c perl5.003/vms/vms.c
  10584. *** perl5.002_01/vms/vms.c    Mon Mar 25 01:06:07 1996
  10585. --- perl5.003/vms/vms.c    Mon Jun 24 15:46:32 1996
  10586. ***************
  10587. *** 2,9 ****
  10588.    *
  10589.    * VMS-specific routines for perl5
  10590.    *
  10591. !  * Last revised: 20-Mar-1996 by Charles Bailey  bailey@genetics.upenn.edu
  10592. !  * Version: 5.2.1
  10593.    */
  10594.   
  10595.   #include <acedef.h>
  10596. --- 2,9 ----
  10597.    *
  10598.    * VMS-specific routines for perl5
  10599.    *
  10600. !  * Last revised: 24-Jun-1996 by Charles Bailey  bailey@genetics.upenn.edu
  10601. !  * Version: 5.3.0
  10602.    */
  10603.   
  10604.   #include <acedef.h>
  10605. ***************
  10606. *** 57,62 ****
  10607. --- 57,68 ----
  10608.     unsigned short int *retlen;
  10609.   };
  10610.   
  10611. + static char *__mystrtolower(char *str)
  10612. + {
  10613. +   if (str) for (; *str; ++str) *str= tolower(*str);
  10614. +   return str;
  10615. + }
  10616. + 
  10617.   int
  10618.   my_trnlnm(char *lnm, char *eqv, unsigned long int idx)
  10619.   {
  10620. ***************
  10621. *** 768,778 ****
  10622.   **   tovmsspec() - convert any file spec into a VMS-style spec.
  10623.   **
  10624.   ** Copyright 1996 by Charles Bailey  <bailey@genetics.upenn.edu>
  10625. ! ** Permission is given for non-commercial use of this code according
  10626. ! ** to the terms of the GNU General Public License or the Perl
  10627. ! ** Artistic License.  Copies of each may be found in the Perl
  10628. ! ** standard distribution.  This software is supplied without any
  10629. ! ** warranty whatsoever.
  10630.    */
  10631.   
  10632.   static char *do_tounixspec(char *, char *, int);
  10633. --- 774,783 ----
  10634.   **   tovmsspec() - convert any file spec into a VMS-style spec.
  10635.   **
  10636.   ** Copyright 1996 by Charles Bailey  <bailey@genetics.upenn.edu>
  10637. ! ** Permission is given to distribute this code as part of the Perl
  10638. ! ** standard distribution under the terms of the GNU General Public
  10639. ! ** License or the Perl Artistic License.  Copies of each may be
  10640. ! ** found in the Perl standard distribution.
  10641.    */
  10642.   
  10643.   static char *do_tounixspec(char *, char *, int);
  10644. ***************
  10645. *** 789,795 ****
  10646.         set_errno(EINVAL); set_vaxc_errno(SS$_BADPARAM); return NULL;
  10647.       }
  10648.       dirlen = strlen(dir);
  10649. !     if (dir[dirlen-1] == '/') dir[--dirlen] = '\0';
  10650.       if (!dirlen) {
  10651.         set_errno(ENOTDIR);
  10652.         set_vaxc_errno(RMS$_DIR);
  10653. --- 794,800 ----
  10654.         set_errno(EINVAL); set_vaxc_errno(SS$_BADPARAM); return NULL;
  10655.       }
  10656.       dirlen = strlen(dir);
  10657. !     if (dir[dirlen-1] == '/') --dirlen;
  10658.       if (!dirlen) {
  10659.         set_errno(ENOTDIR);
  10660.         set_vaxc_errno(RMS$_DIR);
  10661. ***************
  10662. *** 801,806 ****
  10663. --- 806,816 ----
  10664.         dir = trndir;
  10665.         dirlen = strlen(dir);
  10666.       }
  10667. +     else {
  10668. +       strncpy(trndir,dir,dirlen);
  10669. +       trndir[dirlen] = '\0';
  10670. +       dir = trndir;
  10671. +     }
  10672.       /* If we were handed a rooted logical name or spec, treat it like a
  10673.        * simple directory, so that
  10674.        *    $ Define myroot dev:[dir.]
  10675. ***************
  10676. *** 824,845 ****
  10677.           dirlen -= 1;                 /* to last element */
  10678.           lastdir = strrchr(dir,'/');
  10679.         }
  10680. !       else if ((cp1 = strstr(trndir,"/.")) != NULL) {
  10681.           do {
  10682.             if (*(cp1+2) == '.') cp1++;
  10683.             if (*(cp1+2) == '/' || *(cp1+2) == '\0') {
  10684. !             addmfd = 1;
  10685. !             break;
  10686.             }
  10687.             cp1++;
  10688.           } while ((cp1 = strstr(cp1,"/.")) != NULL);
  10689. -         /* If we have a relative path, VMSify it and let the VMS code
  10690. -          * below expand it, rather than repeating the code here */
  10691. -         if (addmfd) {
  10692. -           if (do_tovmsspec(trndir,vmsdir,0) == NULL) return NULL;
  10693. -           if (do_fileify_dirspec(vmsdir,trndir,0) == NULL) return NULL;
  10694. -           return do_tounixspec(trndir,buf,ts);
  10695. -         }
  10696.         }
  10697.         else {
  10698.           if (!(lastdir = cp1 = strrchr(dir,'/'))) cp1 = dir;
  10699. --- 834,852 ----
  10700.           dirlen -= 1;                 /* to last element */
  10701.           lastdir = strrchr(dir,'/');
  10702.         }
  10703. !       else if ((cp1 = strstr(dir,"/.")) != NULL) {
  10704. !         /* If we have "/." or "/..", VMSify it and let the VMS code
  10705. !          * below expand it, rather than repeating the code to handle
  10706. !          * relative components of a filespec here */
  10707.           do {
  10708.             if (*(cp1+2) == '.') cp1++;
  10709.             if (*(cp1+2) == '/' || *(cp1+2) == '\0') {
  10710. !             if (do_tovmsspec(dir,vmsdir,0) == NULL) return NULL;
  10711. !             if (do_fileify_dirspec(vmsdir,trndir,0) == NULL) return NULL;
  10712. !             return do_tounixspec(trndir,buf,ts);
  10713.             }
  10714.             cp1++;
  10715.           } while ((cp1 = strstr(cp1,"/.")) != NULL);
  10716.         }
  10717.         else {
  10718.           if (!(lastdir = cp1 = strrchr(dir,'/'))) cp1 = dir;
  10719. ***************
  10720. *** 856,863 ****
  10721.               }
  10722.               dirlen = cp2 - dir;
  10723.             }
  10724. !           else {  /* There's a type, and it's not .dir.  Bzzt. */
  10725. !             set_errno(ENOTDIR);
  10726.               set_vaxc_errno(RMS$_DIR);
  10727.               return NULL;
  10728.             }
  10729. --- 863,870 ----
  10730.               }
  10731.               dirlen = cp2 - dir;
  10732.             }
  10733. !           else {   /* There's a type, and it's not .dir.  Bzzt. */
  10734. !             set_errno(ENOTDIR); 
  10735.               set_vaxc_errno(RMS$_DIR);
  10736.               return NULL;
  10737.             }
  10738. ***************
  10739. *** 894,901 ****
  10740.         return retspec;
  10741.       }
  10742.       else {  /* VMS-style directory spec */
  10743. !       char esa[NAM$C_MAXRSS+1], term;
  10744. !       unsigned long int sts, cmplen, hasdev, hasdir, hastype, hasver;
  10745.         struct FAB dirfab = cc$rms_fab;
  10746.         struct NAM savnam, dirnam = cc$rms_nam;
  10747.   
  10748. --- 901,908 ----
  10749.         return retspec;
  10750.       }
  10751.       else {  /* VMS-style directory spec */
  10752. !       char esa[NAM$C_MAXRSS+1], term, *cp;
  10753. !       unsigned long int sts, cmplen, haslower = 0;
  10754.         struct FAB dirfab = cc$rms_fab;
  10755.         struct NAM savnam, dirnam = cc$rms_nam;
  10756.   
  10757. ***************
  10758. *** 906,911 ****
  10759. --- 913,921 ----
  10760.         dirfab.fab$b_dns = 6;
  10761.         dirnam.nam$b_ess = NAM$C_MAXRSS;
  10762.         dirnam.nam$l_esa = esa;
  10763. + 
  10764. +       for (cp = dir; *cp; cp++)
  10765. +         if (islower(*cp)) { haslower = 1; break; }
  10766.         if (!((sts = sys$parse(&dirfab))&1)) {
  10767.           if (dirfab.fab$l_sts == RMS$_DIR) {
  10768.             dirnam.nam$b_nop |= NAM$M_SYNCHK;
  10769. ***************
  10770. *** 1029,1034 ****
  10771. --- 1039,1048 ----
  10772.         /* We've set up the string up through the filename.  Add the
  10773.            type and version, and we're done. */
  10774.         strcat(retspec,".DIR;1");
  10775. + 
  10776. +       /* $PARSE may have upcased filespec, so convert output to lower
  10777. +        * case if input contained any lowercase characters. */
  10778. +       if (haslower) __mystrtolower(retspec);
  10779.         return retspec;
  10780.       }
  10781.   }  /* end of do_fileify_dirspec() */
  10782. ***************
  10783. *** 1074,1080 ****
  10784.           retlen = 2 + (*(dir+1) != '\0');
  10785.         else {
  10786.           if (!(cp1 = strrchr(dir,'/'))) cp1 = dir;
  10787. !         if ((cp2 = strchr(cp1,'.')) && *(cp2+1) != '.') {
  10788.             if (toupper(*(cp2+1)) == 'D' &&  /* They specified .dir. */
  10789.                 toupper(*(cp2+2)) == 'I' &&  /* Trim it off. */
  10790.                 toupper(*(cp2+3)) == 'R') {
  10791. --- 1088,1094 ----
  10792.           retlen = 2 + (*(dir+1) != '\0');
  10793.         else {
  10794.           if (!(cp1 = strrchr(dir,'/'))) cp1 = dir;
  10795. !         if ((cp2 = strchr(cp1,'.')) && (*(cp2+1) != '.' && *(cp2+1) != '\0')) {
  10796.             if (toupper(*(cp2+1)) == 'D' &&  /* They specified .dir. */
  10797.                 toupper(*(cp2+2)) == 'I' &&  /* Trim it off. */
  10798.                 toupper(*(cp2+3)) == 'R') {
  10799. ***************
  10800. *** 1101,1108 ****
  10801.         else retpath[retlen-1] = '\0';
  10802.       }
  10803.       else {  /* VMS-style directory spec */
  10804. !       char esa[NAM$C_MAXRSS+1];
  10805. !       unsigned long int sts, cmplen;
  10806.         struct FAB dirfab = cc$rms_fab;
  10807.         struct NAM savnam, dirnam = cc$rms_nam;
  10808.   
  10809. --- 1115,1122 ----
  10810.         else retpath[retlen-1] = '\0';
  10811.       }
  10812.       else {  /* VMS-style directory spec */
  10813. !       char esa[NAM$C_MAXRSS+1], *cp;
  10814. !       unsigned long int sts, cmplen, haslower;
  10815.         struct FAB dirfab = cc$rms_fab;
  10816.         struct NAM savnam, dirnam = cc$rms_nam;
  10817.   
  10818. ***************
  10819. *** 1122,1128 ****
  10820.         dirfab.fab$l_nam = &dirnam;
  10821.         dirnam.nam$b_ess = (unsigned char) sizeof esa - 1;
  10822.         dirnam.nam$l_esa = esa;
  10823. !       if (!((sts = sys$parse(&dirfab))&1)) {
  10824.           if (dirfab.fab$l_sts == RMS$_DIR) {
  10825.             dirnam.nam$b_nop |= NAM$M_SYNCHK;
  10826.             sts = sys$parse(&dirfab) & 1;
  10827. --- 1136,1146 ----
  10828.         dirfab.fab$l_nam = &dirnam;
  10829.         dirnam.nam$b_ess = (unsigned char) sizeof esa - 1;
  10830.         dirnam.nam$l_esa = esa;
  10831. ! 
  10832. !       for (cp = dir; *cp; cp++)
  10833. !         if (islower(*cp)) { haslower = 1; break; }
  10834. ! 
  10835. !       if (!(sts = (sys$parse(&dirfab)&1))) {
  10836.           if (dirfab.fab$l_sts == RMS$_DIR) {
  10837.             dirnam.nam$b_nop |= NAM$M_SYNCHK;
  10838.             sts = sys$parse(&dirfab) & 1;
  10839. ***************
  10840. *** 1168,1173 ****
  10841. --- 1186,1194 ----
  10842.         else if (ts) New(7014,retpath,retlen,char);
  10843.         else retpath = __pathify_retbuf;
  10844.         strcpy(retpath,esa);
  10845. +       /* $PARSE may have upcased filespec, so convert output to lower
  10846. +        * case if input contained any lowercase characters. */
  10847. +       if (haslower) __mystrtolower(retpath);
  10848.       }
  10849.   
  10850.       return retpath;
  10851. ***************
  10852. *** 1222,1241 ****
  10853.         strcpy(rslt,"./");
  10854.         return rslt;
  10855.       }
  10856. !     else if (*cp2 == '-') {
  10857. !       while (*cp2 == '-') {
  10858. !         *(cp1++) = '.'; *(cp1++) = '.'; *(cp1++) = '/';
  10859. !         cp2++;
  10860. !       }
  10861. !       if (*cp2 != '.' && *cp2 != ']' && *cp2 != '>') { /* we don't allow */
  10862. !         if (ts) Safefree(rslt);                        /* filespecs like */
  10863. !         set_errno(EINVAL); set_vaxc_errno(RMS$_SYN);   /* [--foo.bar] */
  10864. !         return NULL;
  10865. !       }
  10866. !       cp2++;
  10867. !     }
  10868. !     else if ( *(cp2) != '.') { /* add the implied device into the Unix spec */
  10869. !       *(cp1++) = '/';
  10870.         if (getcwd(tmp,sizeof tmp,1) == NULL) {
  10871.           if (ts) Safefree(rslt);
  10872.           return NULL;
  10873. --- 1243,1250 ----
  10874.         strcpy(rslt,"./");
  10875.         return rslt;
  10876.       }
  10877. !     else if ( *cp2 != '.' && *cp2 != '-') {
  10878. !       *(cp1++) = '/';           /* add the implied device into the Unix spec */
  10879.         if (getcwd(tmp,sizeof tmp,1) == NULL) {
  10880.           if (ts) Safefree(rslt);
  10881.           return NULL;
  10882. ***************
  10883. *** 1258,1264 ****
  10884.           cp1 = rslt + offset;
  10885.         }
  10886.       }
  10887. !     else cp2++;
  10888.     }
  10889.     for (; cp2 <= dirend; cp2++) {
  10890.       if (*cp2 == ':') {
  10891. --- 1267,1273 ----
  10892.           cp1 = rslt + offset;
  10893.         }
  10894.       }
  10895. !     else if (*cp2 == '.') cp2++;
  10896.     }
  10897.     for (; cp2 <= dirend; cp2++) {
  10898.       if (*cp2 == ':') {
  10899. ***************
  10900. *** 1283,1292 ****
  10901.           }
  10902.           if (*cp2 != '.' && *cp2 != ']' && *cp2 != '>') { /* we don't allow */
  10903.             if (ts) Safefree(rslt);                        /* filespecs like */
  10904. !           set_errno(EINVAL); set_vaxc_errno(RMS$_SYN);   /* [--foo.bar] */
  10905.             return NULL;
  10906.           }
  10907. -         cp2++;
  10908.         }
  10909.         else *(cp1++) = *cp2;
  10910.       }
  10911. --- 1292,1300 ----
  10912.           }
  10913.           if (*cp2 != '.' && *cp2 != ']' && *cp2 != '>') { /* we don't allow */
  10914.             if (ts) Safefree(rslt);                        /* filespecs like */
  10915. !           set_errno(EINVAL); set_vaxc_errno(RMS$_SYN);   /* [fred.--foo.bar] */
  10916.             return NULL;
  10917.           }
  10918.         }
  10919.         else *(cp1++) = *cp2;
  10920.       }
  10921. ***************
  10922. *** 1335,1340 ****
  10923. --- 1343,1349 ----
  10924.       int islnm, rooted;
  10925.       STRLEN trnend;
  10926.   
  10927. +     while (*(++cp2) == '/') ;  /* Skip multiple /s */
  10928.       while (*(++cp2) != '/' && *cp2) *(cp1++) = *cp2;
  10929.       *cp1 = '\0';
  10930.       islnm =  my_trnlnm(rslt,trndev,0);
  10931. ***************
  10932. *** 1380,1391 ****
  10933.     }
  10934.     for (; cp2 < dirend; cp2++) {
  10935.       if (*cp2 == '/') {
  10936.         if (*(cp1-1) != '.') *(cp1++) = '.';
  10937.         infront = 0;
  10938.       }
  10939.       else if (!infront && *cp2 == '.') {
  10940. !       if (*(cp2+1) == '/') cp2++;   /* skip over "./" - it's redundant */
  10941. !       else if (*(cp2+1) == '\0') { cp2++; break; }
  10942.         else if (*(cp2+1) == '.' && (*(cp2+2) == '/' || *(cp2+2) == '\0')) {
  10943.           if (*(cp1-1) == '-' || *(cp1-1) == '[') *(cp1++) = '-'; /* handle "../" */
  10944.           else if (*(cp1-2) == '[') *(cp1-1) = '-';
  10945. --- 1389,1401 ----
  10946.     }
  10947.     for (; cp2 < dirend; cp2++) {
  10948.       if (*cp2 == '/') {
  10949. +       if (*(cp2-1) == '/') continue;
  10950.         if (*(cp1-1) != '.') *(cp1++) = '.';
  10951.         infront = 0;
  10952.       }
  10953.       else if (!infront && *cp2 == '.') {
  10954. !       if (cp2+1 == dirend || *(cp2+1) == '\0') { cp2++; break; }
  10955. !       else if (*(cp2+1) == '/') cp2++;   /* skip over "./" - it's redundant */
  10956.         else if (*(cp2+1) == '.' && (*(cp2+2) == '/' || *(cp2+2) == '\0')) {
  10957.           if (*(cp1-1) == '-' || *(cp1-1) == '[') *(cp1++) = '-'; /* handle "../" */
  10958.           else if (*(cp1-2) == '[') *(cp1-1) = '-';
  10959. ***************
  10960. *** 1398,1414 ****
  10961.             }
  10962.           }
  10963.           cp2 += 2;
  10964. !         if (cp2 == dirend) {
  10965. !           if (*(cp1-1) == '.') cp1--;
  10966. !           break;
  10967. !         }
  10968.         }
  10969.         else *(cp1++) = '_';  /* fix up syntax - '.' in name not allowed */
  10970.       }
  10971.       else {
  10972.         if (!infront && *(cp1-1) == '-')  *(cp1++) = '.';
  10973. !       if (*cp2 == '/')      *(cp1++) = '.';
  10974. !       else if (*cp2 == '.') *(cp1++) = '_';
  10975.         else                  *(cp1++) =  *cp2;
  10976.         infront = 1;
  10977.       }
  10978. --- 1408,1420 ----
  10979.             }
  10980.           }
  10981.           cp2 += 2;
  10982. !         if (cp2 == dirend) break;
  10983.         }
  10984.         else *(cp1++) = '_';  /* fix up syntax - '.' in name not allowed */
  10985.       }
  10986.       else {
  10987.         if (!infront && *(cp1-1) == '-')  *(cp1++) = '.';
  10988. !       if (*cp2 == '.')      *(cp1++) = '_';
  10989.         else                  *(cp1++) =  *cp2;
  10990.         infront = 1;
  10991.       }
  10992. ***************
  10993. *** 2655,2666 ****
  10994.   static struct passwd __pwdcache;
  10995.   static char __pw_namecache[UAI$S_IDENT+1];
  10996.   
  10997. - static char *_mystrtolower(char *str)
  10998. - {
  10999. -   if (str) for (; *str; ++str) *str= tolower(*str);
  11000. -   return str;
  11001. - }
  11002. - 
  11003.   /*
  11004.    * This routine does most of the work extracting the user information.
  11005.    */
  11006. --- 2661,2666 ----
  11007. ***************
  11008. *** 2737,2743 ****
  11009.       }
  11010.       else
  11011.           strcpy(pwd->pw_unixdir, pwd->pw_dir);
  11012. !     _mystrtolower(pwd->pw_unixdir);
  11013.       return 1;
  11014.   }
  11015.   
  11016. --- 2737,2743 ----
  11017.       }
  11018.       else
  11019.           strcpy(pwd->pw_unixdir, pwd->pw_dir);
  11020. !     __mystrtolower(pwd->pw_unixdir);
  11021.       return 1;
  11022.   }
  11023.   
  11024. ***************
  11025. *** 2817,2823 ****
  11026.         else { _ckvmssts(status); }
  11027.       }
  11028.       __pw_namecache[lname]= '\0';
  11029. !     _mystrtolower(__pw_namecache);
  11030.   
  11031.       __pwdcache = __passwd_empty;
  11032.       __pwdcache.pw_name = __pw_namecache;
  11033. --- 2817,2823 ----
  11034.         else { _ckvmssts(status); }
  11035.       }
  11036.       __pw_namecache[lname]= '\0';
  11037. !     __mystrtolower(__pw_namecache);
  11038.   
  11039.       __pwdcache = __passwd_empty;
  11040.       __pwdcache.pw_name = __pw_namecache;
  11041. ***************
  11042. *** 3067,3072 ****
  11043. --- 3067,3078 ----
  11044.            {0,0,0,0}};
  11045.   
  11046.     if (!fname || !*fname) return FALSE;
  11047. +   /* Make sure we expand logical names, since sys$check_access doesn't */
  11048. +   if (!strpbrk(fname,"/]>:")) {
  11049. +     strcpy(fileified,fname);
  11050. +     while (!strpbrk(fileified,"/]>:>") && my_trnlnm(fileified,fileified,0)) ;
  11051. +     fname = fileified;
  11052. +   }
  11053.     if (!do_tovmsspec(fname,vmsname,1)) return FALSE;
  11054.     retlen = namdsc.dsc$w_length = strlen(vmsname);
  11055.     namdsc.dsc$a_pointer = vmsname;
  11056. ***************
  11057. *** 3231,3240 ****
  11058.    *
  11059.    *  Copyright 1996 by Charles Bailey <bailey@genetics.upenn.edu>.
  11060.    *  Incorporates, with permission, some code from EZCOPY by Tim Adye
  11061. !  *  <T.J.Adye@rl.ac.uk>.  Permission is given to use and distribute this
  11062. !  *  code under the same terms as Perl itself.  (See the GNU General Public
  11063. !  *  License or the Perl Artistic License supplied as part of the Perl
  11064. !  *  distribution.)
  11065.    */
  11066.   /*{{{int rmscopy(char *src, char *dst, int preserve_dates)*/
  11067.   int
  11068. --- 3237,3246 ----
  11069.    *
  11070.    *  Copyright 1996 by Charles Bailey <bailey@genetics.upenn.edu>.
  11071.    *  Incorporates, with permission, some code from EZCOPY by Tim Adye
  11072. !  *  <T.J.Adye@rl.ac.uk>.  Permission is given to distribute this code
  11073. !  * as part of the Perl standard distribution under the terms of the
  11074. !  * GNU General Public License or the Perl Artistic License.  Copies
  11075. !  * of each may be found in the Perl standard distribution.
  11076.    */
  11077.   /*{{{int rmscopy(char *src, char *dst, int preserve_dates)*/
  11078.   int
  11079. ***************
  11080. *** 3403,3408 ****
  11081. --- 3409,3463 ----
  11082.    */
  11083.   
  11084.   void
  11085. + rmsexpand_fromperl(CV *cv)
  11086. + {
  11087. +   dXSARGS;
  11088. +   char esa[NAM$C_MAXRSS], rsa[NAM$C_MAXRSS], *cp, *out;
  11089. +   struct FAB myfab = cc$rms_fab;
  11090. +   struct NAM mynam = cc$rms_nam;
  11091. +   STRLEN speclen;
  11092. +   unsigned long int retsts, haslower = 0;
  11093. + 
  11094. +   myfab.fab$l_fna = SvPV(ST(0),speclen);
  11095. +   myfab.fab$b_fns = speclen;
  11096. +   myfab.fab$l_nam = &mynam;
  11097. + 
  11098. +   mynam.nam$l_esa = esa;
  11099. +   mynam.nam$b_ess = sizeof esa;
  11100. +   mynam.nam$l_rsa = rsa;
  11101. +   mynam.nam$b_rss = sizeof rsa;
  11102. + 
  11103. +   retsts = sys$parse(&myfab,0,0);
  11104. +   if (!(retsts & 1)) {
  11105. +     set_vaxc_errno(retsts);
  11106. +     if      (retsts == RMS$_PRV) set_errno(EACCES);
  11107. +     else if (retsts == RMS$_DEV) set_errno(ENODEV);
  11108. +     else if (retsts == RMS$_DIR) set_errno(ENOTDIR);
  11109. +     else                         set_errno(EVMSERR);
  11110. +     XSRETURN_UNDEF;
  11111. +   }
  11112. +   retsts = sys$search(&myfab,0,0);
  11113. +   if (!(retsts & 1) && retsts != RMS$_FNF) {
  11114. +     set_vaxc_errno(retsts);
  11115. +     if      (retsts == RMS$_PRV) set_errno(EACCES);
  11116. +     else                         set_errno(EVMSERR);
  11117. +     XSRETURN_UNDEF;
  11118. +   }
  11119. +   /* If the input filespec contained any lowercase characters,
  11120. +    * downcase the result for compatibility with Unix-minded code. */
  11121. +   for (out = myfab.fab$l_fna; *out; out++)
  11122. +     if (islower(*out)) { haslower = 1; break; }
  11123. +   if (mynam.nam$b_rsl) { out = rsa; speclen = mynam.nam$b_rsl; }
  11124. +   else                 { out = esa; speclen = mynam.nam$b_esl; }
  11125. +   if (!(mynam.nam$l_fnb & NAM$M_EXP_VER))
  11126. +     speclen = mynam.nam$l_type - out;
  11127. +   out[speclen] = '\0';
  11128. +   if (haslower) __mystrtolower(out);
  11129. + 
  11130. +   ST(0) = sv_2mortal(newSVpv(out, speclen));
  11131. + }
  11132. + 
  11133. + void
  11134.   vmsify_fromperl(CV *cv)
  11135.   {
  11136.     dXSARGS;
  11137. ***************
  11138. *** 3569,3574 ****
  11139. --- 3624,3630 ----
  11140.   {
  11141.     char* file = __FILE__;
  11142.   
  11143. +   newXSproto("VMS::Filespec::rmsexpand",rmsexpand_fromperl,file,"$");
  11144.     newXSproto("VMS::Filespec::vmsify",vmsify_fromperl,file,"$");
  11145.     newXSproto("VMS::Filespec::unixify",unixify_fromperl,file,"$");
  11146.     newXSproto("VMS::Filespec::pathify",pathify_fromperl,file,"$");
  11147.  
  11148. #:  End of patch  :#
  11149.