home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1k < prev    next >
Text File  |  1995-06-06  |  123KB  |  3,662 lines
  1. # This is my patch  patch.1k for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4.  
  5. # Please execute the following command before applying this patch.
  6. # (You can feed this patch to 'sh' to do so.)
  7.  
  8. # This is not needed.
  9. rm -f ext/Fcntl/MANIFEST
  10. exit
  11.  
  12. This is my patch  patch.1k  for perl5.001.
  13.  
  14. This patch brings you MakeMaker-4.15.  This is MakeMaker-4.13 plus
  15. patches to provide the LD_RUN_PATH environment variable for building
  16. shared libraries, and the appropriate -I flags for running xsubpp
  17. while building perl.
  18.  
  19. To apply, change to your perl directory, run the command above, then
  20. apply with
  21.     patch -p1 -N  < thispatch.
  22.  
  23. After you apply this patch, you should apply patch.1l.
  24.  
  25. Patch and enjoy,
  26.     
  27.     Andy Dougherty        doughera@lafcol.lafayette.edu
  28.     Dept. of Physics
  29.     Lafayette College, Easton PA 18042
  30.  
  31.  
  32. Index: MANIFEST
  33. *** perl5.001j/MANIFEST    Mon Jun  5 14:14:23 1995
  34. --- perl5.001k/MANIFEST    Tue Jun  6 14:17:58 1995
  35. ***************
  36. *** 98,104 ****
  37.   ext/DynaLoader/dlutils.c    Dynamic loader utilities for dl_*.xs files
  38.   ext/Fcntl/Fcntl.pm        Fcntl extension Perl module
  39.   ext/Fcntl/Fcntl.xs        Fcntl extension external subroutines
  40. - ext/Fcntl/MANIFEST        Fcntl extension file list
  41.   ext/Fcntl/Makefile.PL        Fcntl extension makefile writer
  42.   ext/GDBM_File/GDBM_File.pm    GDBM extension Perl module
  43.   ext/GDBM_File/GDBM_File.xs    GDBM extension external subroutines
  44. --- 98,103 ----
  45. ***************
  46. *** 249,255 ****
  47. --- 248,257 ----
  48.   lib/English.pm        Readable aliases for short variables
  49.   lib/Env.pm        Map environment into ordinary variables
  50.   lib/Exporter.pm        Exporter base class
  51. + lib/ExtUtils/Liblist.pm    Locates libraries
  52.   lib/ExtUtils/MakeMaker.pm    Write Makefiles for extensions
  53. + lib/ExtUtils/Manifest.pm    Utilities to write MANIFEST files
  54. + lib/ExtUtils/Mkbootstrap.pm    Writes a bootstrap file (see MakeMaker)
  55.   lib/ExtUtils/typemap        Extension interface types
  56.   lib/ExtUtils/xsubpp        External subroutine preprocessor
  57.   lib/File/Basename.pm    A module to emulate the basename program
  58. Index: ext/DynaLoader/Makefile.PL
  59. *** perl5.001j/ext/DynaLoader/Makefile.PL    Thu Jan 19 18:58:50 1995
  60. --- perl5.001k/ext/DynaLoader/Makefile.PL    Tue Jun  6 12:24:37 1995
  61. ***************
  62. *** 11,23 ****
  63.   sub MY::postamble {
  64.       '
  65.   DynaLoader.c: $(DLSRC)
  66. !     $(PERL) $(XSUBPP) $(XSUBPPARGS) $(DLSRC) >tmp && mv tmp $@
  67.   
  68.   # Perform very simple tests just to check for major gaffs.
  69.   # We can\'t do much more for platforms we are not executing on.
  70.   test-xs:
  71.       for i in dl_*xs; \
  72. !         do $(PERL) $(XSUBPP) $(XSUBPPARGS) $$i > /dev/null; \
  73.       done
  74.   ';
  75.   }
  76. --- 11,23 ----
  77.   sub MY::postamble {
  78.       '
  79.   DynaLoader.c: $(DLSRC)
  80. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSUBPPARGS) $(DLSRC) >tmp && mv tmp $@
  81.   
  82.   # Perform very simple tests just to check for major gaffs.
  83.   # We can\'t do much more for platforms we are not executing on.
  84.   test-xs:
  85.       for i in dl_*xs; \
  86. !         do $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSUBPPARGS) $$i > /dev/null; \
  87.       done
  88.   ';
  89.   }
  90. Index: lib/ExtUtils/Liblist.pm
  91. *** /dev/null    Mon Jun  5 17:45:32 1995
  92. --- perl5.001k/lib/ExtUtils/Liblist.pm    Mon Jun  5 17:01:51 1995
  93. ***************
  94. *** 0 ****
  95. --- 1,151 ----
  96. + package ExtUtils::Liblist;
  97. + require ExtUtils::MakeMaker; # currently for MM_Unix::lsdir
  98. + 
  99. + # Broken out of MakeMaker from version 4.11
  100. + 
  101. + use Config;
  102. + use Cwd;
  103. + # --- Determine libraries to use and how to use them ---
  104. + 
  105. + sub ext {
  106. +     my($potential_libs, $Verbose) = @_;
  107. +     return ("", "", "") unless $potential_libs;
  108. +     print STDOUT "Potential libraries are '$potential_libs':" if $Verbose;
  109. + 
  110. +     my($so)   = $Config{'so'};
  111. +     my($libs) = $Config{'libs'};
  112. + 
  113. +     # compute $extralibs, $bsloadlibs and $ldloadlibs from
  114. +     # $potential_libs
  115. +     # this is a rewrite of Andy Dougherty's extliblist in perl
  116. +     # its home is in <distribution>/ext/util
  117. + 
  118. +     my(@searchpath); # from "-L/path" entries in $potential_libs
  119. +     my(@libpath) = split " ", $Config{'libpth'};
  120. +     my(@ldloadlibs, @bsloadlibs, @extralibs);
  121. +     my($fullname, $thislib, $thispth, @fullname);
  122. +     my($pwd) = fastcwd(); # from Cwd.pm
  123. +     my($found) = 0;
  124. + 
  125. +     foreach $thislib (split ' ', $potential_libs){
  126. + 
  127. +     # Handle possible linker path arguments.
  128. +     if ($thislib =~ s/^(-[LR])//){    # save path flag type
  129. +         my($ptype) = $1;
  130. +         unless (-d $thislib){
  131. +         print STDOUT "$ptype$thislib ignored, directory does not exist\n"
  132. +             if $Verbose;
  133. +         next;
  134. +         }
  135. +         if ($thislib !~ m|^/|) {
  136. +           print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
  137. +           $thislib = "$pwd/$thislib";
  138. +         }
  139. +         push(@searchpath, $thislib);
  140. +         push(@extralibs,  "$ptype$thislib");
  141. +         push(@ldloadlibs, "$ptype$thislib");
  142. +         next;
  143. +     }
  144. + 
  145. +     # Handle possible library arguments.
  146. +     unless ($thislib =~ s/^-l//){
  147. +       print STDOUT "Unrecognized argument in LIBS ignored: '$thislib'\n";
  148. +       next;
  149. +     }
  150. + 
  151. +     my($found_lib)=0;
  152. +     foreach $thispth (@searchpath, @libpath){
  153. + 
  154. +         # Try to find the full name of the library.  We need this to
  155. +         # determine whether it's a dynamically-loadable library or not.
  156. +         # This tends to be subject to various os-specific quirks.
  157. +         # For gcc-2.6.2 on linux (March 1995), DLD can not load
  158. +         # .sa libraries, with the exception of libm.sa, so we
  159. +         # deliberately skip them.
  160. +         if (@fullname = MM_Unix::lsdir($thispth,"^lib$thislib\.$so\.[0-9]+")){
  161. +         # Take care that libfoo.so.10 wins against libfoo.so.9.
  162. +         # Compare two libraries to find the most recent version
  163. +         # number.  E.g.  if you have libfoo.so.9.0.7 and
  164. +         # libfoo.so.10.1, first convert all digits into two
  165. +         # decimal places.  Then we'll add ".00" to the shorter
  166. +         # strings so that we're comparing strings of equal length
  167. +         # Thus we'll compare libfoo.so.09.07.00 with
  168. +         # libfoo.so.10.01.00.  Some libraries might have letters
  169. +         # in the version.  We don't know what they mean, but will
  170. +         # try to skip them gracefully -- we'll set any letter to
  171. +         # '0'.  Finally, sort in reverse so we can take the
  172. +         # first element.
  173. + 
  174. +         #TODO: iterate through the directory instead of sorting
  175. + 
  176. +         $fullname = "$thispth/" .
  177. +         (sort { my($ma) = $a;
  178. +             my($mb) = $b;
  179. +             $ma =~ tr/A-Za-z/0/s;
  180. +             $ma =~ s/\b(\d)\b/0$1/g;
  181. +             $mb =~ tr/A-Za-z/0/s;
  182. +             $mb =~ s/\b(\d)\b/0$1/g;
  183. +             while (length($ma) < length($mb)) { $ma .= ".00"; }
  184. +             while (length($mb) < length($ma)) { $mb .= ".00"; }
  185. +             # Comparison deliberately backwards
  186. +             $mb cmp $ma;} @fullname)[0];
  187. +         } elsif (-f ($fullname="$thispth/lib$thislib.$so")
  188. +          && (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
  189. +         } elsif (-f ($fullname="$thispth/lib${thislib}_s.a")
  190. +          && ($thislib .= "_s") ){ # we must explicitly use _s version
  191. +         } elsif (-f ($fullname="$thispth/lib$thislib.a")){
  192. +         } elsif (-f ($fullname="$thispth/Slib$thislib.a")){
  193. +         } else {
  194. +         print STDOUT "$thislib not found in $thispth" if $Verbose;
  195. +         next;
  196. +         }
  197. +         print STDOUT "'-l$thislib' found at $fullname" if $Verbose;
  198. +         $found++;
  199. +         $found_lib++;
  200. + 
  201. +         # Now update library lists
  202. + 
  203. +         # what do we know about this library...
  204. +         my $is_dyna = ($fullname !~ /\.a$/);
  205. +         my $in_perl = ($libs =~ /\B-l${thislib}\b/s);
  206. + 
  207. +         # Do not add it into the list if it is already linked in
  208. +         # with the main perl executable.
  209. +         # We have to special-case the NeXT, because all the math 
  210. +         # is also in libsys_s
  211. +         unless ($in_perl || 
  212. +             ($Config{'osname'} eq 'next' && $thislib eq 'm') ){
  213. +         push(@extralibs, "-l$thislib");
  214. +         }
  215. + 
  216. +         # We might be able to load this archive file dynamically
  217. +         if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
  218. +         # We push -l$thislib instead of $fullname because
  219. +         # it avoids hardwiring a fixed path into the .bs file.
  220. +         # Mkbootstrap will automatically add dl_findfile() to
  221. +         # the .bs file if it sees a name in the -l format.
  222. +         # USE THIS, when dl_findfile() is fixed: 
  223. +         # push(@bsloadlibs, "-l$thislib");
  224. +         # OLD USE WAS while checking results against old_extliblist
  225. +         push(@bsloadlibs, "$fullname");
  226. +         } else {
  227. +         if ($is_dyna){
  228. +                     # For SunOS4, do not add in this shared library if
  229. +                     # it is already linked in the main perl executable
  230. +             push(@ldloadlibs, "-l$thislib")
  231. +             unless ($in_perl and $Config{'osname'} eq 'sunos');
  232. +         } else {
  233. +             push(@ldloadlibs, "-l$thislib");
  234. +         }
  235. +         }
  236. +         last;    # found one here so don't bother looking further
  237. +     }
  238. +     print STDOUT "Warning (non-fatal): No library found for -l$thislib" 
  239. +         unless $found_lib>0;
  240. +     }
  241. +     return ('','','') unless $found;
  242. +     ("@extralibs", "@bsloadlibs", "@ldloadlibs");
  243. + }
  244. + 
  245. + 
  246. + 1;
  247. Index: lib/ExtUtils/MakeMaker.pm
  248. *** perl5.001j/lib/ExtUtils/MakeMaker.pm    Tue May 30 14:56:48 1995
  249. --- perl5.001k/lib/ExtUtils/MakeMaker.pm    Tue Jun  6 14:11:40 1995
  250. ***************
  251. *** 1,6 ****
  252.   package ExtUtils::MakeMaker;
  253.   
  254. ! $Version = 4.095; # Last edited 17 Apr 1995 by Andy Dougherty
  255.   
  256.   use Config;
  257.   use Carp;
  258. --- 1,11 ----
  259.   package ExtUtils::MakeMaker;
  260.   
  261. ! $Version = 4.15; # Last edited $Date: 1995/06/06 14:04:00 $ by Andreas Koenig
  262. ! 
  263. ! $Version_OK = 4.13;    # Makefiles older than $Version_OK will die
  264. !             # (Will be checked from MakeMaker version 4.13 onwards)
  265. ! 
  266. ! # $Id: MakeMaker.pm,v 1.21 1995/06/06 06:14:16 k Exp k $
  267.   
  268.   use Config;
  269.   use Carp;
  270. ***************
  271. *** 8,17 ****
  272.   
  273.   require Exporter;
  274.   @ISA = qw(Exporter);
  275. ! @EXPORT = qw(&WriteMakefile $Verbose);
  276. ! @EXPORT_OK = qw($Version %att %skip %Recognized_Att_Keys
  277.       @MM_Sections %MM_Sections
  278. !     &help &lsdir &neatvalue &mkbootstrap &mksymlists);
  279.   
  280.   $Is_VMS = $Config{'osname'} eq 'VMS';
  281.   require ExtUtils::MM_VMS if $Is_VMS;
  282. --- 13,22 ----
  283.   
  284.   require Exporter;
  285.   @ISA = qw(Exporter);
  286. ! @EXPORT = qw(&WriteMakefile $Verbose &prompt);
  287. ! @EXPORT_OK = qw($Version &Version_check %att %skip %Recognized_Att_Keys
  288.       @MM_Sections %MM_Sections
  289. !     &help &neatvalue &mkbootstrap &mksymlists);
  290.   
  291.   $Is_VMS = $Config{'osname'} eq 'VMS';
  292.   require ExtUtils::MM_VMS if $Is_VMS;
  293. ***************
  294. *** 22,278 ****
  295.   $Verbose = 0;
  296.   $^W=1;
  297.   
  298. ! =head1 NAME
  299. ! 
  300. ! ExtUtils::MakeMaker - create an extension Makefile
  301. ! 
  302. ! =head1 SYNOPSIS
  303. ! 
  304. ! C<use ExtUtils::MakeMaker;>
  305. ! 
  306. ! C<WriteMakefile( ATTRIBUTE =E<gt> VALUE [, ...] );>
  307. ! 
  308. ! =head1 DESCRIPTION
  309. ! 
  310. ! This utility is designed to write a Makefile for an extension module
  311. ! from a Makefile.PL. It is based on the Makefile.SH model provided by
  312. ! Andy Dougherty and the perl5-porters.
  313. ! 
  314. ! It splits the task of generating the Makefile into several subroutines
  315. ! that can be individually overridden.  Each subroutine returns the text
  316. ! it wishes to have written to the Makefile.
  317. ! 
  318. ! MakeMaker.pm uses the architecture specific information from
  319. ! Config.pm. In addition the extension may contribute to the C<%Config>
  320. ! hash table of Config.pm by supplying hints files in a C<hints/>
  321. ! directory. The hints files are expected to be named like their
  322. ! counterparts in C<PERL_SRC/hints>, but with an C<.pl> file name
  323. ! extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by MakeMaker
  324. ! within the WriteMakefile() subroutine, and can be used to execute
  325. ! commands as well as to include special variables. If there is no
  326. ! hintsfile for the actual system, but for some previous releases of the
  327. ! same operating system, the latest one of those is used.
  328. ! 
  329. ! =head2 Default Makefile Behaviour
  330. ! 
  331. ! The automatically generated Makefile enables the user of the extension
  332. ! to invoke
  333. ! 
  334. !   perl Makefile.PL
  335. !   make
  336. !   make test # optionally set TEST_VERBOSE=1
  337. !   make install # See below
  338. ! 
  339. ! The Makefile to be produced may be altered by adding arguments of the
  340. ! form C<KEY=VALUE>. If the user wants to have the extension installed
  341. ! into a directory different from C<$Config{"installprivlib"}> it can be
  342. ! done by specifying
  343. ! 
  344. !   perl Makefile.PL INST_LIB=~/myperllib INST_EXE=~/bin
  345. ! 
  346. ! Note, that in this example MakeMaker does the tilde expansion for you
  347. ! and INST_ARCHLIB is set to either C<INST_LIB/$Config{"archname"}> if
  348. ! that directory exists and otherwise to INST_LIB.
  349. ! 
  350. ! Other interesting targets in the generated Makefile are
  351. ! 
  352. !   make config     # to check if the Makefile is up-to-date
  353. !   make clean      # delete local temporary files (Makefile gets renamed)
  354. !   make realclean  # delete all derived files (including installed files)
  355. !   make dist       # produce a gzipped file ready for shipping
  356. ! 
  357. ! The macros in the produced Makefile may be overridden on the command
  358. ! line to the make call as in the following example:
  359. ! 
  360. !   make INST_LIB=/some/where INST_ARCHLIB=/some/where INST_EXE=/u/k/bin
  361. ! 
  362. ! Note, that this is a solution provided by C<make> in general, so tilde
  363. ! expansion will probably not be available and INST_ARCHLIB will not be
  364. ! set automatically when INST_LIB is given as argument.
  365. ! 
  366. ! The generated Makefile does not set any permissions. The installer has
  367. ! to decide, which umask should be in effect.
  368. ! 
  369. ! =head2 Special case C<make install>
  370. ! 
  371. ! The I<install> target of the generated Makefile is for system
  372. ! administrators only that have writing permissions on the
  373. ! system-specific directories $Config{installprivlib},
  374. ! $Config{installarchlib}, and $Config{installbin}. This works, because
  375. ! C<make> alone in fact puts all relevant files into directories that
  376. ! are named by the macros INST_LIB, INST_ARCHLIB, and INST_EXE. All
  377. ! three default to ./blib if you are not building below the perl source
  378. ! directory. C<make install> is just a recursive call to C<make> with
  379. ! the three relevant parameters set accordingly to the system-wide
  380. ! defaults.
  381. ! 
  382. ! C<make install> per default writes some documentation of what has been
  383. ! done into the file C<$Config{'installarchlib'}/perllocal.pod>. This is
  384. ! an experimental feature. It can be bypassed by calling C<make
  385. ! pure_install>.
  386. ! 
  387. ! Users that do not have privileges on the system but want to install
  388. ! the relevant files of the module into their private library or binary
  389. ! directories do not call C<make install>. In priciple they have the
  390. ! choice to either say
  391. ! 
  392. !     # case: trust the module
  393. !     perl Makefile.PL INST_LIB=~/perllib INST_EXE=~/bin
  394. !     make
  395. !     make test
  396. ! 
  397. ! or
  398. ! 
  399. !     # case: want to run tests before installation
  400. !     perl Makefile.PL
  401. !     make
  402. !     make test
  403. !     make INST_LIB=/some/where INST_ARCHLIB=/foo/bar INST_EXE=/somebin
  404. ! 
  405. ! (C<make test> is not necessarily supported for all modules.)
  406. ! 
  407. ! =head2 Support to Link a new Perl Binary
  408. ! 
  409. ! An extension that is built with the above steps is ready to use on
  410. ! systems supporting dynamic loading. On systems that do not support
  411. ! dynamic loading, any newly created extension has to be linked together
  412. ! with the available ressources. MakeMaker supports the linking process
  413. ! by creating appropriate targets in the Makefile whenever an extension
  414. ! is built. You can invoke the corresponding section of the makefile with
  415. ! 
  416. !     make perl
  417. ! 
  418. ! That produces a new perl binary in the current directory with all
  419. ! extensions linked in that can be found in INST_ARCHLIB and
  420. ! PERL_ARCHLIB.
  421. ! 
  422. ! The binary can be installed into the directory where perl normally
  423. ! resides on your machine with
  424. ! 
  425. !     make inst_perl
  426. ! 
  427. ! To produce a perl binary with a different name than C<perl>, either say
  428. ! 
  429. !     perl Makefile.PL MAP_TARGET=myperl
  430. !     make myperl
  431. !     make inst_perl
  432. ! 
  433. ! or say
  434. ! 
  435. !     perl Makefile.PL
  436. !     make myperl MAP_TARGET=myperl
  437. !     make inst_perl MAP_TARGET=myperl
  438. ! 
  439. ! In any case you will be prompted with the correct invocation of the
  440. ! C<inst_perl> target that installs the new binary into
  441. ! $Config{'installbin'}.
  442. ! 
  443. ! Note, that there is a C<makeaperl> scipt in the perl distribution,
  444. ! that supports the linking of a new perl binary in a similar fashion,
  445. ! but with more options.
  446. ! 
  447. ! C<make inst_perl> per default writes some documentation of what has been
  448. ! done into the file C<$Config{'installarchlib'}/perllocal.pod>. This
  449. ! can be bypassed by calling C<make pure_inst_perl>.
  450. ! 
  451. ! Warning: the inst_perl: target is rather mighty and will probably
  452. ! overwrite your existing perl binary. Use with care!
  453. ! 
  454. ! =head2 Determination of Perl Library and Installation Locations
  455. ! 
  456. ! MakeMaker needs to know, or to guess, where certain things are
  457. ! located.  Especially INST_LIB and INST_ARCHLIB (where to install files
  458. ! into), PERL_LIB and PERL_ARCHLIB (where to read existing modules
  459. ! from), and PERL_INC (header files and C<libperl*.*>).
  460. ! 
  461. ! Extensions may be built either using the contents of the perl source
  462. ! directory tree or from an installed copy of the perl library.
  463. ! 
  464. ! If an extension is being built below the C<ext/> directory of the perl
  465. ! source then MakeMaker will set PERL_SRC automatically (e.g., C<../..>).
  466. ! If PERL_SRC is defined then other variables default to the following:
  467. ! 
  468. !   PERL_INC     = PERL_SRC
  469. !   PERL_LIB     = PERL_SRC/lib
  470. !   PERL_ARCHLIB = PERL_SRC/lib
  471. !   INST_LIB     = PERL_LIB
  472. !   INST_ARCHLIB = PERL_ARCHLIB
  473. ! 
  474. ! If an extension is being built away from the perl source then MakeMaker
  475. ! will leave PERL_SRC undefined and default to using the installed copy
  476. ! of the perl library. The other variables default to the following:
  477. ! 
  478. !   PERL_INC     = $archlib/CORE
  479. !   PERL_LIB     = $privlib
  480. !   PERL_ARCHLIB = $archlib
  481. !   INST_LIB     = ./blib
  482. !   INST_ARCHLIB = ./blib
  483. ! 
  484. ! If perl has not yet been installed then PERL_SRC can be defined on the
  485. ! command line as shown in the previous section.
  486. ! 
  487. ! =head2 Useful Default Makefile Macros
  488. ! 
  489. ! FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  490. ! 
  491. ! BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  492. ! 
  493. ! ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)
  494. ! 
  495. ! PERL_LIB = Directory where we read the perl library files
  496. ! 
  497. ! PERL_ARCHLIB = Same as above for architecture dependent files
  498. ! 
  499. ! INST_LIB = Directory where we put library files of this extension
  500. ! while building it. If we are building below PERL_SRC/ext
  501. ! we default to PERL_SRC/lib, else we default to ./blib.
  502. ! 
  503. ! INST_ARCHLIB = Same as above for architecture dependent files
  504. ! 
  505. ! INST_LIBDIR = C<$(INST_LIB)$(ROOTEXT)>
  506. ! 
  507. ! INST_AUTODIR = C<$(INST_LIB)/auto/$(FULLEXT)>
  508. ! 
  509. ! INST_ARCHAUTODIR = C<$(INST_ARCHLIB)/auto/$(FULLEXT)>
  510. ! 
  511. ! =head2 Customizing The Generated Makefile
  512. ! 
  513. ! If the Makefile generated does not fit your purpose you can change it
  514. ! using the mechanisms described below.
  515. ! 
  516. ! =head2 Using Attributes (and Parameters)
  517. ! 
  518. ! The following attributes can be specified as arguments to WriteMakefile()
  519. ! or as NAME=VALUE pairs on the command line:
  520. ! 
  521. ! This description is not yet documented; you can get at the description
  522. ! with the command
  523. ! 
  524. ! C<perl Makefile.PL help>    (if you already have a basic Makefile.PL)
  525. ! 
  526. ! or
  527. ! 
  528. ! C<perl -e 'use ExtUtils::MakeMaker qw(&help); &help;'>
  529. ! 
  530. ! =head2 Overriding MakeMaker Methods
  531. ! 
  532. ! If you cannot achieve the desired Makefile behaviour by specifying
  533. ! attributes you may define private subroutines in the Makefile.PL.
  534. ! Each subroutines returns the text it wishes to have written to
  535. ! the Makefile. To override a section of the Makefile you can
  536. ! either say:
  537. ! 
  538. !     sub MY::c_o { "new literal text" }
  539. ! 
  540. ! or you can edit the default by saying something like:
  541. ! 
  542. !     sub MY::c_o { $_=MM->c_o; s/old text/new text/; $_ }
  543. ! 
  544. ! If you still need a different solution, try to develop another
  545. ! subroutine, that fits your needs and submit the diffs to
  546. ! F<perl5-porters@nicoh.com> or F<comp.lang.perl> as appropriate.
  547. ! 
  548. ! =cut
  549.   
  550.   sub check_hints {
  551.       # We allow extension-specific hints files.
  552. --- 27,44 ----
  553.   $Verbose = 0;
  554.   $^W=1;
  555.   
  556. ! sub prompt {
  557. !     my($mess,$def)=@_;
  558. !     local $\="";
  559. !     local $/="\n";
  560. !     local $|=1;
  561. !     die "prompt function called without an argument" unless defined $mess;
  562. !     $def = "" unless defined $def;
  563. !     my $dispdef = "[$def] ";
  564. !     print "$mess $dispdef";
  565. !     chop(my $ans = <STDIN>);
  566. !     $ans || $def;
  567. ! }
  568.   
  569.   sub check_hints {
  570.       # We allow extension-specific hints files.
  571. ***************
  572. *** 282,287 ****
  573. --- 48,54 ----
  574.       my($hint)="$Config{'osname'}_$Config{'osvers'}";
  575.       $hint =~ s/\./_/g;
  576.       $hint =~ s/_$//;
  577. +     local(*DIR);
  578.       opendir DIR, "hints";
  579.       while (defined ($_ = readdir DIR)) {
  580.       next if /^\./;
  581. ***************
  582. *** 331,349 ****
  583.    VERSION:    Your version number for distributing the package.
  584.           This defaults to 0.1.
  585.   
  586. !  INST_LIB:    Perl library directory to install the module into.
  587. !  INST_ARCHLIB:    Perl architecture-dependent library to install into
  588. !         (defaults to INST_LIB)
  589.   
  590.    PERL_LIB:    Directory containing the Perl library to use.
  591.    PERL_SRC:    Directory containing the Perl source code
  592.           (use of this should be avoided, it may be undefined)
  593.   
  594.    INC:        Include file dirs eg: '-I/usr/5include -I/path/to/inc'
  595.    DEFINE:    something like "-DHAVE_UNISTD_H"
  596.    OBJECT:    List of object files, defaults to '$(BASEEXT).o',
  597.           but can be a long string containing all object files,
  598.               e.g. "tkpBind.o tkpButton.o tkpCanvas.o"
  599.    MYEXTLIB:    If the extension links to a library that it builds
  600.           set this to the name of the library (see SDBM_File)
  601.   
  602. --- 98,134 ----
  603.    VERSION:    Your version number for distributing the package.
  604.           This defaults to 0.1.
  605.   
  606. !  INST_LIB:    Perl library directory to directly install
  607. !         into during 'make'.
  608. ! 
  609. !  INSTALLPRIVLIB:Used by 'make install', which sets INST_LIB to this value.
  610. ! 
  611. !  INST_ARCHLIB:    Perl architecture-dependent library to directly install
  612. !         into during 'make'.
  613. ! 
  614. !  INSTALLARCHLIB:Used by 'make install', which sets INST_ARCHLIB to this value.
  615. ! 
  616. !  INST_EXE:    Directory, where executable scripts should be installed during
  617. !         'make'. Defaults to "./blib", just to have a dummy location
  618. !         during testing. C<make install> will set INST_EXE to INSTALLBIN.
  619. ! 
  620. !  INSTALLBIN:    Used by 'make install' which sets INST_EXE to this value.
  621.   
  622.    PERL_LIB:    Directory containing the Perl library to use.
  623. + 
  624. +  PERL_ARCHLIB:    Architectur dependent directory containing the Perl library to use.
  625. + 
  626.    PERL_SRC:    Directory containing the Perl source code
  627.           (use of this should be avoided, it may be undefined)
  628.   
  629.    INC:        Include file dirs eg: '-I/usr/5include -I/path/to/inc'
  630. + 
  631.    DEFINE:    something like "-DHAVE_UNISTD_H"
  632. + 
  633.    OBJECT:    List of object files, defaults to '$(BASEEXT).o',
  634.           but can be a long string containing all object files,
  635.               e.g. "tkpBind.o tkpButton.o tkpCanvas.o"
  636. + 
  637.    MYEXTLIB:    If the extension links to a library that it builds
  638.           set this to the name of the library (see SDBM_File)
  639.   
  640. ***************
  641. *** 398,409 ****
  642.           produce output to the target files themselves.
  643.   
  644.    EXE_FILES:    Ref to array of executable files. The files will be copied to 
  645. !         the INST_EXE directory. The installed files will be deleted 
  646. !         by a make realclean.
  647. ! 
  648. !  INST_EXE:    Directory, where executable scripts should be installed. Defaults
  649. !         to "./blib", just to have a dummy location during testing.
  650. !         C<make install> will set INST_EXE to $Config{'installbin'}.
  651.   
  652.    LINKTYPE:    =>'static' or 'dynamic' (default unless usedl=undef in config.sh)
  653.           Should only be used to force static linking (also see linkext below).
  654. --- 183,190 ----
  655.           produce output to the target files themselves.
  656.   
  657.    EXE_FILES:    Ref to array of executable files. The files will be copied to 
  658. !         the INST_EXE directory. Make realclean will delete them from
  659. !         there again.
  660.   
  661.    LINKTYPE:    =>'static' or 'dynamic' (default unless usedl=undef in config.sh)
  662.           Should only be used to force static linking (also see linkext below).
  663. ***************
  664. *** 424,429 ****
  665. --- 205,211 ----
  666.           (e.g. [ qw( Foo_version Foo_numstreams Foo_tree ) ])
  667.   
  668.    CONFIG:    =>[qw(archname manext)] defines ARCHNAME & MANEXT from config.sh
  669. + 
  670.    SKIP:      =>[qw(name1 name2)] skip (do not write) sections of the Makefile
  671.   
  672.    MAP_TARGET:    If it is intended, that a new perl binary be produced, this variable
  673. ***************
  674. *** 439,450 ****
  675.   methods which implement that part of the Makefile. These are not
  676.   normally required:
  677.   
  678.    installpm:    {SPLITLIB => '$(INST_LIB)' (default) or '$(INST_ARCHLIB)'}
  679.    linkext:    {LINKTYPE => 'static', 'dynamic' or ''}
  680.    dynamic_lib:    {ARMAYBE => 'ar', OTHERLDFLAGS => '...'}
  681.    clean:        {FILES => "*.xyz foo"}
  682.    realclean:    {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
  683. !  dist:        {TARNAME=>'MyTarFile', TARFLAGS=>'cvfF', COMPRESS=>'gzip'}
  684.    tool_autosplit:    {MAXLEN => 8}
  685.   END
  686.   
  687. --- 221,233 ----
  688.   methods which implement that part of the Makefile. These are not
  689.   normally required:
  690.   
  691. +  macro:        {ANY_MACRO => ANY_VALUE, ...}
  692.    installpm:    {SPLITLIB => '$(INST_LIB)' (default) or '$(INST_ARCHLIB)'}
  693.    linkext:    {LINKTYPE => 'static', 'dynamic' or ''}
  694.    dynamic_lib:    {ARMAYBE => 'ar', OTHERLDFLAGS => '...'}
  695.    clean:        {FILES => "*.xyz foo"}
  696.    realclean:    {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
  697. !  dist:        {TARFLAGS=>'cvfF', COMPRESS=>'gzip', SUFFIX=>'gz', SHAR=>'shar -m'}
  698.    tool_autosplit:    {MAXLEN => 8}
  699.   END
  700.   
  701. ***************
  702. *** 459,464 ****
  703. --- 242,248 ----
  704.       'tool_autosplit'    => {},
  705.       'tool_xsubpp'    => {},
  706.       'tools_other'    => {},
  707. +     'macro'        => {},
  708.       'post_constants'    => {},
  709.       'pasthru'        => {},
  710.       'c_o'        => {},
  711. ***************
  712. *** 530,536 ****
  713.       %att = @_;
  714.       local($\)="\n";
  715.   
  716. !     print STDOUT "MakeMaker" if $Verbose;
  717.   
  718.       parse_args(\%att, @ARGV);
  719.       my(%initial_att) = %att; # record initial attributes
  720. --- 314,345 ----
  721.       %att = @_;
  722.       local($\)="\n";
  723.   
  724. !     print STDOUT "MakeMaker (v$Version)" if $Verbose;
  725. ! 
  726. !     if ( Carp::longmess("") =~ "runsubdirpl" ){
  727. !     $Correct_relativ_directories++;
  728. !     } else {
  729. !     $Correct_relativ_directories=0;
  730. !     }
  731. ! 
  732. !     if (-f "MANIFEST"){
  733. !     eval {require ExtUtils::Manifest};
  734. !     if ($@){
  735. !         print STDOUT "Warning: you have not installed the ExtUtils::Manifest
  736. !          module -- skipping check of the MANIFEST file";
  737. !     } else {
  738. !         print STDOUT "Checking if your kit is complete...";
  739. !         $ExtUtils::Manifest::Quiet=$ExtUtils::Manifest::Quiet=1; #avoid warning
  740. !         my(@missed)=ExtUtils::Manifest::manicheck();
  741. !         if (@missed){
  742. !         print STDOUT "Warning: the following files are missing in your kit:";
  743. !         print "\t", join "\n\t", @missed;
  744. !         print STDOUT "Please inform the author.\n";
  745. !         } else {
  746. !         print STDOUT "Looks good";
  747. !         }
  748. !     }
  749. !     }
  750.   
  751.       parse_args(\%att, @ARGV);
  752.       my(%initial_att) = %att; # record initial attributes
  753. ***************
  754. *** 543,548 ****
  755. --- 352,371 ----
  756.   
  757.       print STDOUT "Writing Makefile for $att{NAME}";
  758.   
  759. +     if (! $att{PERL_SRC} && 
  760. +     $INC{'Config.pm'} ne "$Config{'archlib'}/Config.pm"){
  761. +     (my $pthinks = $INC{'Config.pm'}) =~ s!/Config\.pm$!!;
  762. +     $pthinks =~ s!.*/!!;
  763. +     print STDOUT <<END;
  764. + Your perl and your Config.pm seem to have different ideas about the architecture
  765. + they are running on.
  766. + Perl thinks: $pthinks
  767. + Config says: $Config{"archname"}
  768. + This may or may not cause problems. Please check your installation of perl if you
  769. + have problems building this extension.
  770. + END
  771. +     }
  772. + 
  773.       MY->init_dirscan();
  774.       MY->init_others();
  775.   
  776. ***************
  777. *** 598,607 ****
  778.       1;
  779.   }
  780.   
  781. ! 
  782. ! sub mkbootstrap{
  783. !     parse_args(\%att, @ARGV);
  784. !     MY->mkbootstrap(@_);
  785.   }
  786.   
  787.   sub mksymlists{
  788. --- 421,432 ----
  789.       1;
  790.   }
  791.   
  792. ! sub Version_check {
  793. !     my($checkversion) = @_;
  794. !     die "Your Makefile was built with ExtUtils::MakeMaker v $checkversion.
  795. ! Current Version is $Version. There have been considerable changes in the meantime.
  796. ! Please rerun 'perl Makefile.PL' to regenerate the Makefile.\n" if $checkversion < $Version_OK;
  797. !     print STDOUT "Makefile built with ExtUtils::MakeMaker v $checkversion. Current Version is $Version." unless $checkversion == $Version;
  798.   }
  799.   
  800.   sub mksymlists{
  801. ***************
  802. *** 610,615 ****
  803. --- 435,454 ----
  804.       MY->mksymlists(@_);
  805.   }
  806.   
  807. + # The following mkbootstrap() is only for installations that are calling
  808. + # the pre-4.1 mkbootstrap() from their old Makefiles. This MakeMaker
  809. + # write Makefiles, that use ExtUtils::Mkbootstrap directly.
  810. + sub mkbootstrap{
  811. +     parse_args(\%att, @ARGV);
  812. +     MY->init_main() unless defined $att{BASEEXT};
  813. +     eval {require ExtUtils::Mkbootstrap};
  814. +     if ($@){
  815. +     # Very difficult to arrive here, I suppose
  816. +     carp "Error: $@\nVersion mismatch: This MakeMaker (v$Version) needs the ExtUtils::Mkbootstrap package. Please check your installation.";
  817. +     }
  818. +     ExtUtils::Mkbootstrap::Mkbootstrap($att{BASEEXT},@_);
  819. + }
  820. + 
  821.   sub parse_args{
  822.       my($attr, @args) = @_;
  823.       foreach (@args){
  824. ***************
  825. *** 620,628 ****
  826.       }
  827.       my($name, $value) = ($1, $2);
  828.       if ($value =~ m/^~(\w+)?/){ # tilde with optional username
  829. !         my($home) = ($1) ? (getpwnam($1))[7] : (getpwuid($>))[7];
  830. !         $value =~ s/^~(\w+)?/$home/;
  831.       }
  832.       $$attr{$name} = $value;
  833.       }
  834.       # catch old-style 'potential_libs' and inform user how to 'upgrade'
  835. --- 459,480 ----
  836.       }
  837.       my($name, $value) = ($1, $2);
  838.       if ($value =~ m/^~(\w+)?/){ # tilde with optional username
  839. !         $value =~ s [^~(\w*)]
  840. !         [$1 ? 
  841. !          ((getpwnam($1))[7] || "~$1") : 
  842. !          (getpwuid($>))[7]
  843. !          ]ex;
  844. !     }
  845. !     if ($Correct_relativ_directories){
  846. !         # This is experimental, so we don't care for efficiency
  847. !         my @dirs = qw(INST_LIB INST_ARCHLIB INST_EXE);
  848. !         my %dirs;
  849. !         @dirs{@dirs}=@dirs;
  850. !         if ($dirs{$name} && $value !~ m!^/!){ # a relativ directory
  851. !         $value = "../$value";
  852. !         }
  853.       }
  854. + 
  855.       $$attr{$name} = $value;
  856.       }
  857.       # catch old-style 'potential_libs' and inform user how to 'upgrade'
  858. ***************
  859. *** 692,721 ****
  860.   
  861.   
  862.   sub init_main {
  863.       # Find out directory name.  This may contain the extension name.
  864.       my($pwd) = fastcwd(); # from Cwd.pm
  865.   
  866. !     # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  867. ! 
  868. !     # *Real* information: where did we get these two from? ...
  869. !     my $inc_config_dir = dirname($INC{'Config.pm'});
  870. !     my $inc_carp_dir   = dirname($INC{'Carp.pm'});
  871. ! 
  872. !     # Typically PERL_* and INST_* will be identical but that need
  873. !     # not be the case (e.g., installing into project libraries etc).
  874. ! 
  875. !     # Perl Macro:    With source    No source
  876.       # PERL_LIB       ../../lib      /usr/local/lib/perl5
  877.       # PERL_ARCHLIB   ../../lib      /usr/local/lib/perl5/sun4-sunos
  878.       # PERL_SRC       ../..          (undefined)
  879.   
  880. !     # INST Macro:    Locally        Publically
  881.       # INST_LIB       ../../lib      ./blib
  882.       # INST_ARCHLIB   ../../lib      ./blib
  883.   
  884.       unless ($att{PERL_SRC}){
  885. !     foreach(qw(../.. ../../.. ../../../..)){
  886. !         if ( -f "$_/config.sh" && -f "$_/perl.h" && -f "$_/lib/Exporter.pm") {
  887.           $att{PERL_SRC}=$_ ;
  888.           last;
  889.           }
  890. --- 544,599 ----
  891.   
  892.   
  893.   sub init_main {
  894. +     my($self) = @_;
  895. + 
  896.       # Find out directory name.  This may contain the extension name.
  897.       my($pwd) = fastcwd(); # from Cwd.pm
  898. +     # --- Initialize Module Name and Paths
  899.   
  900. !     # NAME    = The perl module name for this extension (eg DBD::Oracle).
  901. !     # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  902. !     # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  903. !     # ROOTEXT = Directory part of FULLEXT with leading /.
  904. !     unless($att{NAME}){ # we have to guess our name
  905. !     my($name) = $pwd;
  906. !     if ($Is_VMS) {
  907. !       $name =~ s:.*?([^.\]]+)\]:$1: unless ($name =~ s:.*[.\[]ext\.(.*)\]:$1:i);
  908. !       ($att{NAME}=$name) =~ s#[.\]]#::#g;
  909. !     } else {
  910. !       $name =~ s:.*/:: unless ($name =~ s:^.*/ext/::);
  911. !       ($att{NAME} =$name) =~ s#/#::#g;
  912. !     }
  913. !     }
  914. !     ($att{FULLEXT} =$att{NAME}) =~ s#::#/#g ;        #eg. BSD/Foo/Socket
  915. !     ($att{BASEEXT} =$att{NAME}) =~ s#.*::##;        #eg. Socket
  916. !     ($att{ROOTEXT} =$att{FULLEXT}) =~ s#/?\Q$att{BASEEXT}\E$## ; # eg. /BSD/Foo
  917. !     $att{ROOTEXT} = ($Is_VMS ? '' : '/') . $att{ROOTEXT} if $att{ROOTEXT};
  918. ! 
  919. ! 
  920. !     # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
  921. ! 
  922. !     # *Real* information: where did we get these two from? ...
  923. !     my $inc_config_dir = dirname($INC{'Config.pm'});
  924. !     my $inc_carp_dir   = dirname($INC{'Carp.pm'});
  925. ! 
  926. !     # Typically PERL_* and INST_* will be identical but that need
  927. !     # not be the case (e.g., installing into project libraries etc).
  928. ! 
  929. !     # Perl Macro:    With source    No source
  930.       # PERL_LIB       ../../lib      /usr/local/lib/perl5
  931.       # PERL_ARCHLIB   ../../lib      /usr/local/lib/perl5/sun4-sunos
  932.       # PERL_SRC       ../..          (undefined)
  933.   
  934. !     # INST Macro:    For standard   for any other
  935. !     #                modules        module
  936.       # INST_LIB       ../../lib      ./blib
  937.       # INST_ARCHLIB   ../../lib      ./blib
  938.   
  939.       unless ($att{PERL_SRC}){
  940. !     foreach (qw(../.. ../../.. ../../../..)){
  941. !         if ( -f "$_/config.sh" 
  942. !         && -f "$_/perl.h" 
  943. !         && -f "$_/lib/Exporter.pm") {
  944.           $att{PERL_SRC}=$_ ;
  945.           last;
  946.           }
  947. ***************
  948. *** 726,735 ****
  949.       $att{PERL_LIB}     = $Config{'privlib'} unless $att{PERL_LIB};
  950.       $att{PERL_ARCHLIB} = $Config{'archlib'} unless $att{PERL_ARCHLIB};
  951.       $att{PERL_INC}     = "$att{PERL_ARCHLIB}/CORE"; # wild guess for now
  952. !     die "Unable to locate Perl source. Try setting PERL_SRC in Makefile.PL or on command line.\n"
  953. !         unless (-f "$att{PERL_INC}/perl.h");
  954. !     print STDOUT "Using header files found in $att{PERL_INC}" if $Verbose;
  955. !     } else {
  956.       $att{PERL_LIB}     = "$att{PERL_SRC}/lib" unless $att{PERL_LIB};
  957.       $att{PERL_ARCHLIB} = $att{PERL_LIB};
  958.       $att{PERL_INC}     = $att{PERL_SRC};
  959. --- 604,625 ----
  960.       $att{PERL_LIB}     = $Config{'privlib'} unless $att{PERL_LIB};
  961.       $att{PERL_ARCHLIB} = $Config{'archlib'} unless $att{PERL_ARCHLIB};
  962.       $att{PERL_INC}     = "$att{PERL_ARCHLIB}/CORE"; # wild guess for now
  963. !     die <<EOM unless (-f "$att{PERL_INC}/perl.h");
  964. ! Error: Unable to locate installed Perl libraries or Perl source code.
  965. ! 
  966. ! It is recommended that you install perl in a standard location before
  967. ! building extensions. You can say:
  968. ! 
  969. !     $^X Makefile.PL PERL_SRC=/path/to/perl/source/directory
  970. ! 
  971. ! if you have not yet installed perl but still want to build this
  972. ! extension now.
  973. ! EOM
  974. ! 
  975. !     print STDOUT "Using header files found in $att{PERL_INC}" if $Verbose && $self->needs_linking;
  976. ! 
  977. !     } else { # PERL_SRC is defined here...
  978. ! 
  979.       $att{PERL_LIB}     = "$att{PERL_SRC}/lib" unless $att{PERL_LIB};
  980.       $att{PERL_ARCHLIB} = $att{PERL_LIB};
  981.       $att{PERL_INC}     = $att{PERL_SRC};
  982. ***************
  983. *** 750,759 ****
  984.   
  985.       # INST_LIB typically pre-set if building an extension after
  986.       # perl has been built and installed. Setting INST_LIB allows
  987. !     # you to build directly into privlib and avoid installperl.
  988.       unless ($att{INST_LIB}){
  989.       if (defined $att{PERL_SRC}) {
  990. !         $att{INST_LIB} = $att{PERL_LIB};
  991.       } else {
  992.           $att{INST_LIB} = "./blib";
  993.       }
  994. --- 640,675 ----
  995.   
  996.       # INST_LIB typically pre-set if building an extension after
  997.       # perl has been built and installed. Setting INST_LIB allows
  998. !     # you to build directly into, say $Config{'privlib'}.
  999.       unless ($att{INST_LIB}){
  1000.       if (defined $att{PERL_SRC}) {
  1001. ! #        require ExtUtils::Manifest;
  1002. ! #        my $file;
  1003. !         my $standard = 0;
  1004. ! #        my $mani = ExtUtils::Manifest::maniread("$att{PERL_SRC}/MANIFEST");
  1005. ! #        foreach $file (keys %$mani){
  1006. ! #        if ($file =~ m!^ext/\Q$att{FULLEXT}!){
  1007. ! #            $standard++;
  1008. ! #            last;
  1009. ! #        }
  1010. ! #        }
  1011. ! 
  1012. ! #### Temporary solution for perl5.001f:
  1013. ! $standard = 1;
  1014. ! #### This is just the same as was MakeMaker 4.094, but everything's prepared to
  1015. ! #### switch to a different behaviour after 5.001f
  1016. ! 
  1017. !         if ($standard){
  1018. !         $att{INST_LIB} = $att{PERL_LIB};
  1019. !         } else {
  1020. !         $att{INST_LIB} = "./blib";
  1021. !         print STDOUT <<END;
  1022. ! Warning: The $att{NAME} extension will not be installed by 'make install' in the
  1023. ! perl source directory. Please install it with 'make install' from the
  1024. !     $pwd
  1025. ! directory.
  1026. ! END
  1027. !         }
  1028.       } else {
  1029.           $att{INST_LIB} = "./blib";
  1030.       }
  1031. ***************
  1032. *** 764,770 ****
  1033.           "./blib"        => "./blib", # our private build lib
  1034.           $att{PERL_LIB}    => $att{PERL_ARCHLIB},
  1035.           $Config{'privlib'}    => $Config{'archlib'},
  1036. -         $Config{'installprivlib'}    => $Config{'installarchlib'},
  1037.           $inc_carp_dir    => $inc_config_dir,
  1038.       );
  1039.       $att{INST_ARCHLIB} = $archmap{$att{INST_LIB}};
  1040. --- 680,685 ----
  1041. ***************
  1042. *** 780,818 ****
  1043.               "(not architecture independent).\n";
  1044.           }
  1045.       }
  1046. -     $att{INST_EXE} = "./blib" unless $att{INST_EXE};
  1047. -     $att{MAP_TARGET} = "perl" unless $att{MAP_TARGET};
  1048. -     $att{LIBPERL_A} = $Is_VMS ? 'libperl.olb' : 'libperl.a'
  1049. -         unless $att{LIBPERL_A};
  1050.       }
  1051.   
  1052. !     # make a few simple checks
  1053. !     die "PERL_LIB ($att{PERL_LIB}) is not a perl library directory"
  1054. !     unless (-f "$att{PERL_LIB}/Exporter.pm");
  1055. ! 
  1056. !     # --- Initialize Module Name and Paths
  1057. ! 
  1058. !     # NAME    = The perl module name for this extension (eg DBD::Oracle).
  1059. !     # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  1060. !     # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  1061. !     # ROOTEXT = Directory part of FULLEXT with leading /.
  1062. !     unless($att{NAME}){ # we have to guess our name
  1063. !     my($name) = $pwd;
  1064. !     if ($Is_VMS) {
  1065. !       $name =~ s:.*?([^.\]]+)\]:$1: unless ($name =~ s:.*[.\[]ext\.(.*)\]:$1:i);
  1066. !       ($att{NAME}=$name) =~ s#[.\]]#::#g;
  1067.       } else {
  1068. !       $name =~ s:.*/:: unless ($name =~ s:^.*/ext/::);
  1069. !       ($att{NAME} =$name) =~ s#/#::#g;
  1070.       }
  1071.       }
  1072. !     ($att{FULLEXT} =$att{NAME}) =~ s#::#/#g ;        #eg. BSD/Foo/Socket
  1073. !     ($att{BASEEXT} =$att{NAME}) =~ s#.*::##;        #eg. Socket
  1074. !     ($att{ROOTEXT} =$att{FULLEXT}) =~ s#/?\Q$att{BASEEXT}\E$## ; # eg. /BSD/Foo
  1075. !     $att{ROOTEXT} = ($Is_VMS ? '' : '/') . $att{ROOTEXT} if $att{ROOTEXT};
  1076.   
  1077.       ($att{DISTNAME}=$att{NAME}) =~ s#(::)#-#g unless $att{DISTNAME};
  1078.       $att{VERSION} = "0.1" unless $att{VERSION};
  1079.   
  1080.   
  1081.       # --- Initialize Perl Binary Locations
  1082. --- 695,730 ----
  1083.               "(not architecture independent).\n";
  1084.           }
  1085.       }
  1086.       }
  1087. +     $att{INST_EXE} = "./blib" unless $att{INST_EXE};
  1088.   
  1089. !     if( $att{INSTALLPRIVLIB} && ! $att{INSTALLARCHLIB} ){
  1090. !     my($archname) = $Config{'archname'};
  1091. !     if (-d "$att{INSTALLPRIVLIB}/$archname"){
  1092. !         $att{INSTALLARCHLIB} = "$att{INSTALLPRIVLIB}/$archname";
  1093. !         print STDOUT "Defaulting INSTALLARCHLIB to INSTALLPRIVLIB/$archname\n";
  1094.       } else {
  1095. !         $att{INSTALLARCHLIB} = $att{INSTALLPRIVLIB};
  1096. !         print STDOUT "Warning: Defaulting INSTALLARCHLIB to INSTALLPRIVLIB ",
  1097. !         "(not architecture independent).\n";
  1098.       }
  1099.       }
  1100. !     $att{INSTALLPRIVLIB} ||= $Config{'installprivlib'};
  1101. !     $att{INSTALLARCHLIB} ||= $Config{'installarchlib'};
  1102. !     $att{INSTALLBIN}     ||= $Config{'installbin'};
  1103. ! 
  1104. !     $att{MAP_TARGET} = "perl" unless $att{MAP_TARGET};
  1105. !     $att{LIBPERL_A} = $Is_VMS ? 'libperl.olb' : 'libperl.a'
  1106. !     unless $att{LIBPERL_A};
  1107. ! 
  1108. !     # make a few simple checks
  1109. !     warn "Warning: PERL_LIB ($att{PERL_LIB}) seems not to be a perl library directory
  1110. !         (Exporter.pm not found)"
  1111. !     unless (-f "$att{PERL_LIB}/Exporter.pm");
  1112.   
  1113.       ($att{DISTNAME}=$att{NAME}) =~ s#(::)#-#g unless $att{DISTNAME};
  1114.       $att{VERSION} = "0.1" unless $att{VERSION};
  1115. +     ($att{VERSION_SYM} = $att{VERSION}) =~ s/\W/_/g;
  1116.   
  1117.   
  1118.       # --- Initialize Perl Binary Locations
  1119. ***************
  1120. *** 820,828 ****
  1121.       # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  1122.       # will be working versions of perl 5. miniperl has priority over perl
  1123.       # for PERL to ensure that $(PERL) is usable while building ./ext/*
  1124. !     $att{'PERL'} = MY->find_perl(5.0, [ qw(miniperl perl) ],
  1125. !         [ grep defined $_, $att{PERL_SRC}, split(":", $ENV{PATH}), $Config{'bin'} ], $Verbose )
  1126. !     unless ($att{'PERL'} && -x $att{'PERL'});
  1127.   
  1128.       # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  1129.       ($att{'FULLPERL'} = $att{'PERL'}) =~ s/miniperl/perl/
  1130. --- 732,743 ----
  1131.       # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
  1132.       # will be working versions of perl 5. miniperl has priority over perl
  1133.       # for PERL to ensure that $(PERL) is usable while building ./ext/*
  1134. !     $att{'PERL'} =
  1135. !       MY->find_perl(5.0, ['miniperl','perl','perl5',"perl$]" ],
  1136. !             [ grep defined $_, $att{PERL_SRC}, split(":", $ENV{PATH}),
  1137. !              $Config{'bin'} ], $Verbose )
  1138. !     unless ($att{'PERL'});    # don't check, if perl is executable, maybe they
  1139. !                 # they have decided to supply switches with perl
  1140.   
  1141.       # Define 'FULLPERL' to be a non-miniperl (used in test: target)
  1142.       ($att{'FULLPERL'} = $att{'PERL'}) =~ s/miniperl/perl/
  1143. ***************
  1144. *** 924,930 ****
  1145.   
  1146.   
  1147.   sub libscan {
  1148. !     return undef if m:/RCS/: ;
  1149.       $_;
  1150.   }
  1151.   
  1152. --- 839,845 ----
  1153.   
  1154.   
  1155.   sub libscan {
  1156. !     return '' if m:/RCS/: ; # return undef triggered warnings with $Verbose>=2
  1157.       $_;
  1158.   }
  1159.   
  1160. ***************
  1161. *** 941,951 ****
  1162. --- 856,870 ----
  1163.       # undefined. In any case we turn it into an anon array:
  1164.       $att{LIBS}=[] unless $att{LIBS};
  1165.       $att{LIBS}=[$att{LIBS}] if ref \$att{LIBS} eq SCALAR;
  1166. +     $att{LD_RUN_PATH} = "";
  1167.       foreach ( @{$att{'LIBS'}} ){
  1168.       s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
  1169.       my(@libs) = MY->extliblist($_);
  1170.       if ($libs[0] or $libs[1] or $libs[2]){
  1171.           @att{EXTRALIBS, BSLOADLIBS, LDLOADLIBS} = @libs;
  1172. +         if ($libs[2]) {
  1173. +         $att{LD_RUN_PATH} = join(":",grep($_=~s/^-L//,split(" ", $libs[2])));
  1174. +         }
  1175.           last;
  1176.       }
  1177.       }
  1178. ***************
  1179. *** 954,961 ****
  1180.       if ($att{CONFIG} and ref $att{CONFIG} ne 'ARRAY');
  1181.       $att{CONFIG} = [] unless (ref $att{CONFIG});
  1182.       push(@{$att{CONFIG}},
  1183. !     qw( cc libc ldflags lddlflags ccdlflags cccdlflags
  1184. !         ranlib so dlext dlsrc installprivlib installarchlib
  1185.       ));
  1186.       push(@{$att{CONFIG}}, 'shellflags') if $Config{'shellflags'};
  1187.   
  1188. --- 873,880 ----
  1189.       if ($att{CONFIG} and ref $att{CONFIG} ne 'ARRAY');
  1190.       $att{CONFIG} = [] unless (ref $att{CONFIG});
  1191.       push(@{$att{CONFIG}},
  1192. !     qw(cc libc ldflags lddlflags ccdlflags cccdlflags
  1193. !        ranlib so dlext dlsrc
  1194.       ));
  1195.       push(@{$att{CONFIG}}, 'shellflags') if $Config{'shellflags'};
  1196.   
  1197. ***************
  1198. *** 989,994 ****
  1199. --- 908,914 ----
  1200.       $att{TOUCH} = "touch";
  1201.       $att{CP} = "cp";
  1202.       $att{MV} = "mv";
  1203. +     $att{CHMOD} = "chmod";
  1204.   }
  1205.   
  1206.   
  1207. ***************
  1208. *** 1029,1035 ****
  1209.             $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  1210.           }
  1211.           if ($out =~ /VER_OK/) {
  1212. !         print "Using $dir/$name" if $trace;
  1213.           return "$dir/$name";
  1214.           }
  1215.       }
  1216. --- 949,955 ----
  1217.             $out = `$dir/$name -e 'require $ver; print "VER_OK\n" ' 2>&1`;
  1218.           }
  1219.           if ($out =~ /VER_OK/) {
  1220. !         print "Using PERL=$dir/$name" if $trace;
  1221.           return "$dir/$name";
  1222.           }
  1223.       }
  1224. ***************
  1225. *** 1043,1072 ****
  1226.       "";
  1227.   }
  1228.   
  1229.   
  1230.   sub constants {
  1231.       my(@m);
  1232.   
  1233.       push @m, "
  1234.   NAME = $att{NAME}
  1235.   DISTNAME = $att{DISTNAME}
  1236.   VERSION = $att{VERSION}
  1237.   
  1238. ! # In which library should we install this extension?
  1239. ! # This is typically the same as PERL_LIB.
  1240.   # (also see INST_LIBDIR and relationship to ROOTEXT)
  1241.   INST_LIB = $att{INST_LIB}
  1242.   INST_ARCHLIB = $att{INST_ARCHLIB}
  1243.   INST_EXE = $att{INST_EXE}
  1244.   
  1245.   # Perl library to use when building the extension
  1246.   PERL_LIB = $att{PERL_LIB}
  1247.   PERL_ARCHLIB = $att{PERL_ARCHLIB}
  1248.   LIBPERL_A = $att{LIBPERL_A}
  1249.   ";
  1250.   
  1251.       # Define I_PERL_LIBS to include the required -Ipaths
  1252.       # To be cute we only include PERL_ARCHLIB if different
  1253.       # To be portable we add quotes for VMS
  1254.       my(@i_perl_libs) = qw{-I$(PERL_ARCHLIB) -I$(PERL_LIB)};
  1255.       shift(@i_perl_libs) if ($att{PERL_ARCHLIB} eq $att{PERL_LIB});
  1256. --- 963,1012 ----
  1257.       "";
  1258.   }
  1259.   
  1260. + sub needs_linking {    # Does this module need linking?
  1261. +     return 1 if $att{OBJECT} or @{$att{C} || []} or $att{MYEXTLIB};
  1262. +     return 0;
  1263. + }
  1264.   
  1265.   sub constants {
  1266. +     my($self) = @_;
  1267.       my(@m);
  1268.   
  1269.       push @m, "
  1270.   NAME = $att{NAME}
  1271.   DISTNAME = $att{DISTNAME}
  1272.   VERSION = $att{VERSION}
  1273. + VERSION_SYM = $att{VERSION_SYM}
  1274.   
  1275. ! # In which directory should we put this extension during 'make'?
  1276. ! # This is typically ./blib.
  1277.   # (also see INST_LIBDIR and relationship to ROOTEXT)
  1278.   INST_LIB = $att{INST_LIB}
  1279.   INST_ARCHLIB = $att{INST_ARCHLIB}
  1280.   INST_EXE = $att{INST_EXE}
  1281.   
  1282. + # AFS users will want to set the installation directories for
  1283. + # the final 'make install' early without setting INST_LIB,
  1284. + # INST_ARCHLIB, and INST_EXE for the testing phase
  1285. + INSTALLPRIVLIB = $att{INSTALLPRIVLIB}
  1286. + INSTALLARCHLIB = $att{INSTALLARCHLIB}
  1287. + INSTALLBIN = $att{INSTALLBIN}
  1288. + 
  1289.   # Perl library to use when building the extension
  1290.   PERL_LIB = $att{PERL_LIB}
  1291.   PERL_ARCHLIB = $att{PERL_ARCHLIB}
  1292.   LIBPERL_A = $att{LIBPERL_A}
  1293. + 
  1294. + MAKEMAKER = \$(PERL_LIB)/ExtUtils/MakeMaker.pm
  1295. + MM_VERSION = $ExtUtils::MakeMaker::Version
  1296.   ";
  1297.   
  1298.       # Define I_PERL_LIBS to include the required -Ipaths
  1299.       # To be cute we only include PERL_ARCHLIB if different
  1300. + 
  1301. +     #### Deprecated from Version 4.11: We want to avoid different
  1302. +     #### behavior for variables with make(1) and perl(1)
  1303. + 
  1304.       # To be portable we add quotes for VMS
  1305.       my(@i_perl_libs) = qw{-I$(PERL_ARCHLIB) -I$(PERL_LIB)};
  1306.       shift(@i_perl_libs) if ($att{PERL_ARCHLIB} eq $att{PERL_LIB});
  1307. ***************
  1308. *** 1112,1117 ****
  1309. --- 1052,1059 ----
  1310.   
  1311.   .PRECIOUS: Makefile
  1312.   
  1313. + .NO_PARALLEL:
  1314. + 
  1315.   .PHONY: all config static dynamic test linkext
  1316.   
  1317.   # This extension may link to it's own library (see SDBM_File)
  1318. ***************
  1319. *** 1130,1139 ****
  1320.   INST_ARCHAUTODIR  = $(INST_ARCHLIB)/auto/$(FULLEXT)
  1321.   ';
  1322.   
  1323. !     push @m, '
  1324.   INST_STATIC  = $(INST_ARCHAUTODIR)/$(BASEEXT).a
  1325.   INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(BASEEXT).$(DLEXT)
  1326.   INST_BOOT    = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
  1327.   INST_PM = '.join(" \\\n\t", sort values %{$att{PM}}).'
  1328.   ';
  1329.   
  1330. --- 1072,1092 ----
  1331.   INST_ARCHAUTODIR  = $(INST_ARCHLIB)/auto/$(FULLEXT)
  1332.   ';
  1333.   
  1334. !     if ($self->needs_linking) {
  1335. !     push @m, '
  1336.   INST_STATIC  = $(INST_ARCHAUTODIR)/$(BASEEXT).a
  1337.   INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(BASEEXT).$(DLEXT)
  1338.   INST_BOOT    = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
  1339. + ';
  1340. +     } else {
  1341. +     push @m, '
  1342. + INST_STATIC  =
  1343. + INST_DYNAMIC =
  1344. + INST_BOOT    =
  1345. + ';
  1346. +     }
  1347. + 
  1348. +     push @m, '
  1349.   INST_PM = '.join(" \\\n\t", sort values %{$att{PM}}).'
  1350.   ';
  1351.   
  1352. ***************
  1353. *** 1220,1232 ****
  1354.       }
  1355.   
  1356.       my($new) = "$cc -c $ccflags $optimize $perltype $large $split";
  1357. !     if (defined($old) and $new ne $old) {
  1358. !     print STDOUT "Warning (non-fatal): cflags evaluation in MakeMaker differs from shell output\n"
  1359. !     ."   package: $att{NAME}\n"
  1360. !     ."   old: $old\n"
  1361. !     ."   new: $new\n"
  1362. !     ."   Using 'old' set.\n"
  1363. !     ."Please notify perl5-porters\@nicoh.com\n";
  1364.       }
  1365.       my($cccmd)=($old) ? $old : $new;
  1366.       $cccmd =~ s/^\s*\Q$Config{'cc'}\E\s/\$(CC) /;
  1367. --- 1173,1192 ----
  1368.       }
  1369.   
  1370.       my($new) = "$cc -c $ccflags $optimize $perltype $large $split";
  1371. !     $new =~ s/^\s+//; $new =~ s/\s+/ /g; $new =~ s/\s+$//;
  1372. !     if (defined($old)){
  1373. !     $old =~ s/^\s+//; $old =~ s/\s+/ /g; $old =~ s/\s+$//;
  1374. !     if ($new ne $old) {
  1375. !         print STDOUT "Warning (non-fatal): cflags evaluation in "
  1376. !           ."MakeMaker ($ExtUtils::MakeMaker::Version) "
  1377. !           ."differs from shell output\n"
  1378. !           ."   package: $att{NAME}\n"
  1379. !           ."   old: $old\n"
  1380. !           ."   new: $new\n"
  1381. !           ."   Using 'old' set.\n"
  1382. !           . Config::myconfig()
  1383. !           ."\nPlease send these details to perl5-porters\@nicoh.com\n";
  1384. !     }
  1385.       }
  1386.       my($cccmd)=($old) ? $old : $new;
  1387.       $cccmd =~ s/^\s*\Q$Config{'cc'}\E\s/\$(CC) /;
  1388. ***************
  1389. *** 1275,1280 ****
  1390. --- 1235,1243 ----
  1391.   # LDLOADLIBS =    List of those libraries which can or must be linked into
  1392.   #        the shared library when created using ld. These may be
  1393.   #        static or dynamic libraries.
  1394. + #        LD_RUN_PATH is a colon separated list of the directories
  1395. + #        in LDLOADLIBS. It is passed as an environment variable to
  1396. + #        the process that links the shared library.
  1397.   #
  1398.   # BSLOADLIBS =    List of those libraries that are needed but can be
  1399.   #        linked in dynamically at run time on this platform.
  1400. ***************
  1401. *** 1285,1290 ****
  1402. --- 1248,1254 ----
  1403.   EXTRALIBS  = $att{'EXTRALIBS'}
  1404.   LDLOADLIBS = $att{'LDLOADLIBS'}
  1405.   BSLOADLIBS = $att{'BSLOADLIBS'}
  1406. + LD_RUN_PATH= $att{'LD_RUN_PATH'}
  1407.   ";
  1408.   }
  1409.   
  1410. ***************
  1411. *** 1297,1303 ****
  1412.       $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
  1413.       q{
  1414.   # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
  1415. ! AUTOSPLITFILE = $(PERL) $(I_PERL_LIBS) -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
  1416.   };
  1417.   }
  1418.   
  1419. --- 1261,1267 ----
  1420.       $asl = "\$AutoSplit::Maxlen=$attribs{MAXLEN};" if $attribs{MAXLEN};
  1421.       q{
  1422.   # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
  1423. ! AUTOSPLITFILE = $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e 'use AutoSplit;}.$asl.q{autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
  1424.   };
  1425.   }
  1426.   
  1427. ***************
  1428. *** 1327,1332 ****
  1429. --- 1291,1297 ----
  1430.   MV = $att{MV}
  1431.   RM_F  = $att{RM_F}
  1432.   RM_RF = $att{RM_RF}
  1433. + CHMOD = $att{CHMOD}
  1434.   ".q{
  1435.   # The following is a portable way to say mkdir -p
  1436.   MKPATH = $(PERL) -wle '$$"="/"; foreach $$p (@ARGV){ next if -d $$p; my(@p); foreach(split(/\//,$$p)){ push(@p,$$_); next if -d "@p/"; print "mkdir @p"; mkdir("@p",0777)||die $$! }} exit 0;'
  1437. ***************
  1438. *** 1338,1354 ****
  1439.       "";
  1440.   }
  1441.   
  1442.   sub pasthru {
  1443. !     my(@m,@pasthru,$key);
  1444. !     # It has to be considered carefully, which variables are apt to be passed through, e.g. PERL_SRC
  1445. !     # is not suited for subdirectories, as it might be relativ to the parent directory.
  1446. !     # Probably we need a PASTHRU2 variable. PASTHRU1 is a conservative approach, that hardly changes
  1447.       # MakeMaker between version 4.086 and 4.09.
  1448. !     push @m, "\nPASTHRU1 = ";
  1449. !     foreach $key (qw(INST_ARCHLIB INST_EXE INST_LIB LIBPERL_A LINKTYPE)){
  1450. !     push @pasthru, "$key=\"\$($key)\"";
  1451.       }
  1452. !     push @m, join "\\\n\t", @pasthru;
  1453.       join "", @m;
  1454.   }
  1455.   
  1456. --- 1303,1345 ----
  1457.       "";
  1458.   }
  1459.   
  1460. + sub macro {
  1461. +     my($self,%attribs) = @_;
  1462. +     my(@m,$key,$val);
  1463. +     while (($key,$val) = each %attribs){
  1464. +     push @m, "$key = $val\n";
  1465. +     }
  1466. +     join "", @m;
  1467. + }
  1468. + 
  1469.   sub pasthru {
  1470. !     my(@m,$key);
  1471. !     # It has to be considered carefully, which variables are apt 
  1472. !     # to be passed through, e.g. ALL RELATIV DIRECTORIES are
  1473. !     # not suited for PASTHRU to subdirectories.
  1474. !     # Moreover: No directories at all have a chance, because we
  1475. !     # don't know yet, if the directories are absolute or relativ
  1476. ! 
  1477. !     # PASTHRU2 is a conservative approach, that hardly changed
  1478.       # MakeMaker between version 4.086 and 4.09.
  1479. ! 
  1480. !     # PASTHRU1 is a revolutionary approach :), it cares for having
  1481. !     # a prepended "../" whenever runsubdirpl is called, but only
  1482. !     # for the three crucial INST_* directories.
  1483. ! 
  1484. !     my(@pasthru1,@pasthru2); # 1 for runsubdirpl, 2 for the rest
  1485. ! 
  1486. !     foreach $key (qw(INST_LIB INST_ARCHLIB INST_EXE)){
  1487. !     push @pasthru1, "$key=\"\$($key)\"";
  1488.       }
  1489. ! 
  1490. !     foreach $key (qw(INSTALLPRIVLIB INSTALLARCHLIB INSTALLBIN LIBPERL_A LINKTYPE)){
  1491. !     push @pasthru1, "$key=\"\$($key)\"";
  1492. !     push @pasthru2, "$key=\"\$($key)\"";
  1493. !     }
  1494. ! 
  1495. !     push @m, "\nPASTHRU1 = ", join ("\\\n\t", @pasthru1), "\n";
  1496. !     push @m, "\nPASTHRU2 = ", join ("\\\n\t", @pasthru2), "\n";
  1497.       join "", @m;
  1498.   }
  1499.   
  1500. ***************
  1501. *** 1366,1379 ****
  1502.   sub xs_c {
  1503.       '
  1504.   .xs.c:
  1505. !     $(PERL) $(XSUBPP) $(XSUBPPARGS) $*.xs >$*.tc && mv $*.tc $@
  1506.   ';
  1507.   }
  1508.   
  1509.   sub xs_o {    # many makes are too dumb to use xs_c then c_o
  1510.       '
  1511.   .xs.o:
  1512. !     $(PERL) $(XSUBPP) $(XSUBPPARGS) $*.xs >xstmp.c && mv xstmp.c $*.c
  1513.       $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $(INC) $*.c
  1514.   ';
  1515.   }
  1516. --- 1357,1370 ----
  1517.   sub xs_c {
  1518.       '
  1519.   .xs.c:
  1520. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSUBPPARGS) $*.xs >$*.tc && mv $*.tc $@
  1521.   ';
  1522.   }
  1523.   
  1524.   sub xs_o {    # many makes are too dumb to use xs_c then c_o
  1525.       '
  1526.   .xs.o:
  1527. !     $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSUBPPARGS) $*.xs >xstmp.c && mv xstmp.c $*.c
  1528.       $(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $(INC) $*.c
  1529.   ';
  1530.   }
  1531. ***************
  1532. *** 1387,1407 ****
  1533.   all ::    config linkext $(INST_PM)
  1534.   '.$att{NOOP}.'
  1535.   
  1536. ! config :: '.$att{MAKEFILE}.' $(INST_LIBDIR)/.exists $(INST_ARCHAUTODIR)/.exists
  1537.   ';
  1538.   
  1539. !     push @m, MM->dir_target('$(INST_LIBDIR)', '$(INST_ARCHAUTODIR)');
  1540.   
  1541.       push @m, '
  1542.   $(O_FILES): $(H_FILES)
  1543.   ' if @{$att{O_FILES} || []} && @{$att{H} || []};
  1544.       join('',@m);
  1545.   }
  1546.   
  1547.   sub linkext {
  1548.       my($self, %attribs) = @_;
  1549. !     # LINKTYPE => static or dynamic
  1550. !     my($linktype) = $attribs{LINKTYPE} || '$(LINKTYPE)';
  1551.       "
  1552.   linkext :: $linktype
  1553.   $att{NOOP}
  1554. --- 1378,1411 ----
  1555.   all ::    config linkext $(INST_PM)
  1556.   '.$att{NOOP}.'
  1557.   
  1558. ! config :: '.$att{MAKEFILE}.' $(INST_LIBDIR)/.exists $(INST_ARCHAUTODIR)/.exists Version_check
  1559.   ';
  1560.   
  1561. !     push @m, MM->dir_target('$(INST_LIBDIR)', '$(INST_ARCHAUTODIR)', '$(INST_EXE)');
  1562.   
  1563.       push @m, '
  1564.   $(O_FILES): $(H_FILES)
  1565.   ' if @{$att{O_FILES} || []} && @{$att{H} || []};
  1566. + 
  1567. +     push @m, q{
  1568. + help:
  1569. +     $(PERL) -I$(PERL_LIB) -e 'use ExtUtils::MakeMaker "&help"; &help;'
  1570. + };
  1571. + 
  1572. +     push @m, q{
  1573. + Version_check:
  1574. +     @$(PERL) -I$(PERL_LIB) -e 'use ExtUtils::MakeMaker qw($$Version &Version_check);' \
  1575. +         -e '&Version_check($(MM_VERSION))'
  1576. + };
  1577. + 
  1578.       join('',@m);
  1579.   }
  1580.   
  1581.   sub linkext {
  1582.       my($self, %attribs) = @_;
  1583. !     # LINKTYPE => static or dynamic or ''
  1584. !     my($linktype) = defined $attribs{LINKTYPE} ? 
  1585. !       $attribs{LINKTYPE} : '$(LINKTYPE)';
  1586.       "
  1587.   linkext :: $linktype
  1588.   $att{NOOP}
  1589. ***************
  1590. *** 1429,1435 ****
  1591.   
  1592.       push(@m,"
  1593.   $att{BASEEXT}.exp: Makefile.PL
  1594. ! ",'    $(PERL) $(I_PERL_LIBS) -e \'use ExtUtils::MakeMaker qw(&mksymlists); \\
  1595.       &mksymlists(DL_FUNCS => ',
  1596.       %$funcs ? neatvalue($funcs) : '""',', DL_VARS => ',
  1597.       @$vars  ? neatvalue($vars)  : '""', ", NAME => \"$att{NAME}\")'
  1598. --- 1433,1439 ----
  1599.   
  1600.       push(@m,"
  1601.   $att{BASEEXT}.exp: Makefile.PL
  1602. ! ",'    $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::MakeMaker qw(&mksymlists); \\
  1603.       &mksymlists(DL_FUNCS => ',
  1604.       %$funcs ? neatvalue($funcs) : '""',', DL_VARS => ',
  1605.       @$vars  ? neatvalue($vars)  : '""', ", NAME => \"$att{NAME}\")'
  1606. ***************
  1607. *** 1451,1472 ****
  1608.   
  1609.   sub dynamic_bs {
  1610.       my($self, %attribs) = @_;
  1611.       '
  1612.   BOOTSTRAP = '."$att{BASEEXT}.bs".'
  1613.   
  1614. ! # As MakeMaker mkbootstrap might not write a file (if none is required)
  1615.   # we use touch to prevent make continually trying to remake it.
  1616.   # The DynaLoader only reads a non-empty file.
  1617.   $(BOOTSTRAP): '."$att{MAKEFILE} $att{BOOTDEP}".'
  1618. !     @ echo "Running mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  1619. !     @ $(PERL) $(I_PERL_LIBS) \
  1620. !         -e \'use ExtUtils::MakeMaker qw(&mkbootstrap); &mkbootstrap("$(BSLOADLIBS)");\' \
  1621. !         INST_LIB=$(INST_LIB) INST_ARCHLIB=$(INST_ARCHLIB) PERL_SRC=$(PERL_SRC) NAME=$(NAME)
  1622.       @ $(TOUCH) $(BOOTSTRAP)
  1623.   
  1624.   $(INST_BOOT): $(BOOTSTRAP)
  1625.       @ '.$att{RM_RF}.' $(INST_BOOT)
  1626.       -'.$att{CP}.' $(BOOTSTRAP) $(INST_BOOT)
  1627.   ';
  1628.   }
  1629.   
  1630. --- 1455,1481 ----
  1631.   
  1632.   sub dynamic_bs {
  1633.       my($self, %attribs) = @_;
  1634. +     return '' unless $self->needs_linking;
  1635.       '
  1636.   BOOTSTRAP = '."$att{BASEEXT}.bs".'
  1637.   
  1638. ! # As Mkbootstrap might not write a file (if none is required)
  1639.   # we use touch to prevent make continually trying to remake it.
  1640.   # The DynaLoader only reads a non-empty file.
  1641.   $(BOOTSTRAP): '."$att{MAKEFILE} $att{BOOTDEP}".'
  1642. !     @ echo "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
  1643. !     @ $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \
  1644. !         -e \'use ExtUtils::Mkbootstrap;\' \
  1645. !         -e \'Mkbootstrap("$(BASEEXT)","$(BSLOADLIBS)");\'
  1646.       @ $(TOUCH) $(BOOTSTRAP)
  1647. +     $(CHMOD) 644 $@
  1648. +     @echo $@ >> $(INST_ARCHAUTODIR)/.packlist
  1649.   
  1650.   $(INST_BOOT): $(BOOTSTRAP)
  1651.       @ '.$att{RM_RF}.' $(INST_BOOT)
  1652.       -'.$att{CP}.' $(BOOTSTRAP) $(INST_BOOT)
  1653. +     $(CHMOD) 644 $@
  1654. +     @echo $@ >> $(INST_ARCHAUTODIR)/.packlist
  1655.   ';
  1656.   }
  1657.   
  1658. ***************
  1659. *** 1476,1481 ****
  1660. --- 1485,1491 ----
  1661.       my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
  1662.       my($armaybe) = $attribs{ARMAYBE} || $att{ARMAYBE} || ":";
  1663.       my($ldfrom) = '$(LDFROM)';
  1664. +     return '' unless $self->needs_linking;
  1665.       my($osname) = $Config{'osname'};
  1666.       $armaybe = 'ar' if ($osname eq 'dec_osf' and $armaybe eq ':');
  1667.       my(@m);
  1668. ***************
  1669. *** 1493,1500 ****
  1670.       push(@m,'    $(RANLIB) '."$ldfrom\n");
  1671.       }
  1672.       $ldfrom = "-all $ldfrom -none" if ($osname eq 'dec_osf');
  1673. !     push(@m,'    $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
  1674. !             ' $(OTHERLDFLAGS) $(MYEXTLIB) $(LDLOADLIBS)'."\n");
  1675.   
  1676.       push @m, MM->dir_target('$(INST_ARCHAUTODIR)');
  1677.       join('',@m);
  1678. --- 1503,1514 ----
  1679.       push(@m,'    $(RANLIB) '."$ldfrom\n");
  1680.       }
  1681.       $ldfrom = "-all $ldfrom -none" if ($osname eq 'dec_osf');
  1682. !     push(@m,'    LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ $(LDDLFLAGS) '.$ldfrom.
  1683. !             ' $(OTHERLDFLAGS) $(MYEXTLIB) $(LDLOADLIBS)');
  1684. !     push @m, '
  1685. !     $(CHMOD) 755 $@
  1686. !     @echo $@ >> $(INST_ARCHAUTODIR)/.packlist
  1687. ! ';
  1688.   
  1689.       push @m, MM->dir_target('$(INST_ARCHAUTODIR)');
  1690.       join('',@m);
  1691. ***************
  1692. *** 1513,1518 ****
  1693. --- 1527,1534 ----
  1694.   }
  1695.   
  1696.   sub static_lib{
  1697. +     my($self) = @_;
  1698. +     return '' unless $self->needs_linking;
  1699.       my(@m);
  1700.       push(@m, <<'END');
  1701.   $(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)/.exists
  1702. ***************
  1703. *** 1524,1529 ****
  1704. --- 1540,1547 ----
  1705.       push(@m, <<'END');
  1706.       ar cr $@ $(OBJECT) && $(RANLIB) $@
  1707.       @echo "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
  1708. +     $(CHMOD) 755 $@
  1709. +     @echo $@ >> $(INST_ARCHAUTODIR)/.packlist
  1710.   END
  1711.   
  1712.   # Old mechanism - still available:
  1713. ***************
  1714. *** 1531,1536 ****
  1715. --- 1549,1555 ----
  1716.       push(@m, <<'END') if $att{PERL_SRC};
  1717.       @ echo "$(EXTRALIBS)" >> $(PERL_SRC)/ext.libs
  1718.   END
  1719. + 
  1720.       push @m, MM->dir_target('$(INST_ARCHAUTODIR)');
  1721.       join('', "\n",@m);
  1722.   }
  1723. ***************
  1724. *** 1558,1569 ****
  1725.   
  1726.   sub installpm_x { # called by installpm per file
  1727.       my($self, $dist, $inst, $splitlib) = @_;
  1728.       my($instdir) = $inst =~ m|(.*)/|;
  1729.       my(@m);
  1730.       push(@m,"
  1731. ! $inst: $dist Makefile $instdir/.exists
  1732.   ".'    @ '.$att{RM_F}.' $@
  1733.       '."$att{CP} $dist".' $@
  1734.   ');
  1735.       push(@m, "\t\@\$(AUTOSPLITFILE) \$@ $splitlib/auto\n")
  1736.       if ($splitlib and $inst =~ m/\.pm$/);
  1737. --- 1577,1592 ----
  1738.   
  1739.   sub installpm_x { # called by installpm per file
  1740.       my($self, $dist, $inst, $splitlib) = @_;
  1741. +     warn "Warning: Most probably 'make' will have problems processing this file: $inst\n"
  1742. +     if $inst =~ m![:#]!;
  1743.       my($instdir) = $inst =~ m|(.*)/|;
  1744.       my(@m);
  1745.       push(@m,"
  1746. ! $inst: $dist $att{MAKEFILE} $instdir/.exists
  1747.   ".'    @ '.$att{RM_F}.' $@
  1748.       '."$att{CP} $dist".' $@
  1749. +     $(CHMOD) 644 $@
  1750. +     @echo $@ >> $(INST_ARCHAUTODIR)/.packlist
  1751.   ');
  1752.       push(@m, "\t\@\$(AUTOSPLITFILE) \$@ $splitlib/auto\n")
  1753.       if ($splitlib and $inst =~ m/\.pm$/);
  1754. ***************
  1755. *** 1606,1613 ****
  1756.   ");
  1757.   
  1758.       while (($from,$to) = each %fromto) {
  1759.       push @m, "
  1760. ! $to: $from $att{MAKEFILE}
  1761.       $att{CP} $from $to
  1762.   ";
  1763.       }
  1764. --- 1629,1637 ----
  1765.   ");
  1766.   
  1767.       while (($from,$to) = each %fromto) {
  1768. +     my $todir = dirname($to);
  1769.       push @m, "
  1770. ! $to: $from $att{MAKEFILE} $todir/.exists
  1771.       $att{CP} $from $to
  1772.   ";
  1773.       }
  1774. ***************
  1775. *** 1647,1652 ****
  1776. --- 1671,1677 ----
  1777.       my($self,$subdir) = @_;
  1778.       chdir($subdir) or die "chdir($subdir): $!";
  1779.       ExtUtils::MakeMaker::check_hints();
  1780. +     package main;
  1781.       require "Makefile.PL";
  1782.   }
  1783.   
  1784. ***************
  1785. *** 1660,1677 ****
  1786.       # MY::subdir_x() method to override this one.
  1787.       qq{
  1788.   config :: $subdir/$att{MAKEFILE}
  1789. !     cd $subdir && \$(MAKE) config \$(PASTHRU1) \$(SUBDIR_MAKEFILE_PL_ARGS)
  1790.   
  1791.   $subdir/$att{MAKEFILE}: $subdir/Makefile.PL \$(CONFIGDEP)
  1792.   }.'    @echo "Rebuilding $@ ..."
  1793. !     $(PERL) $(I_PERL_LIBS) \\
  1794.           -e "use ExtUtils::MakeMaker; MM->runsubdirpl(qw('.$subdir.'))" \\
  1795.           $(PASTHRU1) $(SUBDIR_MAKEFILE_PL_ARGS)
  1796.       @echo "Rebuild of $@ complete."
  1797.   '.qq{
  1798.   
  1799.   subdirs ::
  1800. !     cd $subdir && \$(MAKE) all \$(PASTHRU1)
  1801.   
  1802.   };
  1803.   }
  1804. --- 1685,1702 ----
  1805.       # MY::subdir_x() method to override this one.
  1806.       qq{
  1807.   config :: $subdir/$att{MAKEFILE}
  1808. !     cd $subdir && \$(MAKE) config \$(PASTHRU2) \$(SUBDIR_MAKEFILE_PL_ARGS)
  1809.   
  1810.   $subdir/$att{MAKEFILE}: $subdir/Makefile.PL \$(CONFIGDEP)
  1811.   }.'    @echo "Rebuilding $@ ..."
  1812. !     @$(PERL) -I"$(PERL_ARCHLIB)" -I"$(PERL_LIB)" \\
  1813.           -e "use ExtUtils::MakeMaker; MM->runsubdirpl(qw('.$subdir.'))" \\
  1814.           $(PASTHRU1) $(SUBDIR_MAKEFILE_PL_ARGS)
  1815.       @echo "Rebuild of $@ complete."
  1816.   '.qq{
  1817.   
  1818.   subdirs ::
  1819. !     cd $subdir && \$(MAKE) all \$(PASTHRU2)
  1820.   
  1821.   };
  1822.   }
  1823. ***************
  1824. *** 1728,1748 ****
  1825.   
  1826.   sub dist {
  1827.       my($self, %attribs) = @_;
  1828.       # VERSION should be sanitised before use as a file name
  1829. !     my($tarname)  = $attribs{TARNAME}  || '$(DISTNAME)-$(VERSION)';
  1830. !     my($tarflags) = $attribs{TARFLAGS} || 'cvf';
  1831. !     my($compress) = $attribs{COMPRESS} || 'compress'; # eg gzip
  1832. !     my($preop)    = $attribs{PREOP}  || '@:'; # e.g., update MANIFEST
  1833. !     my($postop)   = $attribs{POSTOP} || '@:';
  1834. !     my($mkfiles)  = join(' ', map("$_/$att{MAKEFILE} $_/$att{MAKEFILE}.old", ".", @{$att{DIR}}));
  1835. !     "
  1836. ! dist:     clean
  1837. !     $preop
  1838. !     $att{RM_F} $mkfiles
  1839. !     cd .. && tar $tarflags $tarname.tar \$(BASEEXT)
  1840. !     cd .. && $compress $tarname.tar
  1841. !     $postop
  1842.   ";
  1843.   }
  1844.   
  1845.   
  1846. --- 1753,1836 ----
  1847.   
  1848.   sub dist {
  1849.       my($self, %attribs) = @_;
  1850. +     my(@m);
  1851.       # VERSION should be sanitised before use as a file name
  1852. !     if ($attribs{TARNAME}){
  1853. !     print STDOUT "Error (fatal): Attribute TARNAME for target dist is deprecated
  1854. ! Please use DISTNAME and VERSION";
  1855. !     }
  1856. !     my($name)     = $attribs{NAME}     || '$(DISTNAME)-$(VERSION)';            
  1857. !     my($tar)      = $attribs{TAR}      || 'tar';        # eg /usr/bin/gnutar   
  1858. !     my($tarflags) = $attribs{TARFLAGS} || 'cvf';                               
  1859. !     my($compress) = $attribs{COMPRESS} || 'compress';   # eg gzip              
  1860. !     my($suffix)   = $attribs{SUFFIX}   || 'Z';          # eg gz                
  1861. !     my($shar)     = $attribs{SHAR}     || 'shar';       # eg "shar --gzip"     
  1862. !     my($preop)    = $attribs{PREOP}    || '@ :';         # eg update MANIFEST   
  1863. !     my($postop)   = $attribs{POSTOP}   || '@ :';         # eg remove the distdir
  1864. !     my($ci)       = $attribs{CI}       || 'ci -u';
  1865. !     my($rcs)      = $attribs{RCS}      || 'rcs -Nv$(VERSION_SYM):';
  1866. !     my($dist_default) = $attribs{DIST_DEFAULT} || 'tardist';
  1867. ! 
  1868. !     push @m, "
  1869. ! TAR  = $tar
  1870. ! TARFLAGS = $tarflags
  1871. ! COMPRESS = $compress
  1872. ! SUFFIX = $suffix
  1873. ! SHAR = $shar
  1874. ! PREOP = $preop
  1875. ! POSTOP = $postop
  1876. ! CI = $ci
  1877. ! RCS = $rcs
  1878. ! DIST_DEFAULT = $dist_default
  1879.   ";
  1880. + 
  1881. +     push @m, q{
  1882. + distclean :: realclean distcheck
  1883. + 
  1884. + distcheck :
  1885. +     $(PERL) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&fullcheck";' \\
  1886. +         -e 'fullcheck();'
  1887. + 
  1888. + manifest :
  1889. +     $(PERL) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&mkmanifest";' \\
  1890. +         -e 'mkmanifest();'
  1891. + 
  1892. + dist : $(DIST_DEFAULT)
  1893. + 
  1894. + tardist : $(DISTNAME)-$(VERSION).tar.$(SUFFIX)
  1895. + 
  1896. + $(DISTNAME)-$(VERSION).tar.$(SUFFIX) : distdir
  1897. +     $(PREOP)
  1898. +     $(TAR) $(TARFLAGS) $(DISTNAME)-$(VERSION).tar $(DISTNAME)-$(VERSION)
  1899. +     $(COMPRESS) $(DISTNAME)-$(VERSION).tar
  1900. +     $(RM_RF) $(DISTNAME)-$(VERSION)
  1901. +     $(POSTOP)
  1902. + 
  1903. + uutardist : $(DISTNAME)-$(VERSION).tar.$(SUFFIX)
  1904. +     uuencode $(DISTNAME)-$(VERSION).tar.$(SUFFIX) \\
  1905. +         $(DISTNAME)-$(VERSION).tar.$(SUFFIX) > \\
  1906. +         $(DISTNAME)-$(VERSION).tar.$(SUFFIX).uu
  1907. + 
  1908. + shdist : distdir
  1909. +     $(PREOP)
  1910. +     $(SHAR) $(DISTNAME)-$(VERSION) > $(DISTNAME)-$(VERSION).shar
  1911. +     $(RM_RF) $(DISTNAME)-$(VERSION)
  1912. +     $(POSTOP)
  1913. + 
  1914. + distdir :
  1915. +     $(RM_RF) $(DISTNAME)-$(VERSION)
  1916. +     $(PERL) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "/mani/";' \\
  1917. +         -e 'manicopy(maniread(),"$(DISTNAME)-$(VERSION)");'
  1918. + 
  1919. + 
  1920. + ci :
  1921. +     $(PERL) -I$(PERL_LIB) -e 'use ExtUtils::Manifest "&maniread";' \\
  1922. +         -e '@all = keys %{maniread()};' \\
  1923. +         -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \\
  1924. +         -e 'print("Executing $(RCS) ...\n"); system("$(RCS) @all");'
  1925. + 
  1926. + };
  1927. +     join "", @m;
  1928.   }
  1929.   
  1930.   
  1931. ***************
  1932. *** 1763,1769 ****
  1933.       push(@m, <<'END') if -f "test.pl";
  1934.       $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  1935.   END
  1936. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test \$(PASTHRU)\n",
  1937.            @{$att{DIR}}));
  1938.       push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n") unless @m > 1;
  1939.       join("", @m);
  1940. --- 1851,1857 ----
  1941.       push(@m, <<'END') if -f "test.pl";
  1942.       $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  1943.   END
  1944. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test \$(PASTHRU2)\n",
  1945.            @{$att{DIR}}));
  1946.       push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n") unless @m > 1;
  1947.       join("", @m);
  1948. ***************
  1949. *** 1775,1799 ****
  1950.       my(@m);
  1951.       push @m, q{
  1952.   doc_install ::
  1953.       @ $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB)  \\
  1954.           -e "use ExtUtils::MakeMaker; MM->writedoc('Module', '$(NAME)', \\
  1955. !         'LINKTYPE=$(LINKTYPE)', 'VERSION=$(VERSION)', 'EXE_FILES=$(EXE_FILES)')"
  1956.   };
  1957.   
  1958.       push(@m, "
  1959.   install :: pure_install doc_install
  1960.   
  1961. ! pure_install :: all
  1962.   ");
  1963.       # install subdirectories first
  1964. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) install\n",@{$att{DIR}}));
  1965.   
  1966. !     push(@m, "\t: perl5.000 and MM pre 3.8 autosplit into INST_ARCHLIB, we delete these old files here
  1967. !     $att{RM_F} $Config{'installarchlib'}/auto/\$(FULLEXT)/*.al
  1968. !     $att{RM_F} $Config{'installarchlib'}/auto/\$(FULLEXT)/*.ix
  1969. !     \$(MAKE) INST_LIB=$Config{'installprivlib'} INST_ARCHLIB=$Config{'installarchlib'} INST_EXE=$Config{'installbin'}
  1970.   ");
  1971.   
  1972.       join("",@m);
  1973.   }
  1974.   
  1975. --- 1863,1902 ----
  1976.       my(@m);
  1977.       push @m, q{
  1978.   doc_install ::
  1979. +     @ echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  1980.       @ $(PERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB)  \\
  1981.           -e "use ExtUtils::MakeMaker; MM->writedoc('Module', '$(NAME)', \\
  1982. !         'LINKTYPE=$(LINKTYPE)', 'VERSION=$(VERSION)', \\
  1983. !         'EXE_FILES=$(EXE_FILES)')" >> $(INSTALLARCHLIB)/perllocal.pod
  1984.   };
  1985.   
  1986.       push(@m, "
  1987.   install :: pure_install doc_install
  1988.   
  1989. ! pure_install ::
  1990.   ");
  1991.       # install subdirectories first
  1992. !     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) install\n",
  1993. !          @{$att{DIR}}));
  1994.   
  1995. !     push(@m, "\t\@\$(PERL) -e 'foreach (\@ARGV){die qq{You do not have permissions to install into \$\$_\\n} unless -w \$\$_}' \$(INSTALLPRIVLIB) \$(INSTALLARCHLIB)
  1996. !     : perl5.000 and MM pre 3.8 autosplit into INST_ARCHLIB, we delete these old files here
  1997. !     $att{RM_F} \$(INSTALLARCHLIB)/auto/\$(FULLEXT)/*.al
  1998. !     $att{RM_F} \$(INSTALLARCHLIB)/auto/\$(FULLEXT)/*.ix
  1999. !     \$(MAKE) INST_LIB=\$(INSTALLPRIVLIB) INST_ARCHLIB=\$(INSTALLARCHLIB) INST_EXE=\$(INSTALLBIN)
  2000. !     \@\$(PERL) -i.bak -lne 'print unless \$\$seen{\$\$_}++' \$(INSTALLARCHLIB)/auto/\$(FULLEXT)/.packlist
  2001.   ");
  2002.   
  2003. +     push @m, '
  2004. + #### UNINSTALL IS STILL EXPERIMENTAL ####
  2005. + uninstall ::
  2006. + ';
  2007. + 
  2008. +     push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) uninstall\n",
  2009. +          @{$att{DIR}}));
  2010. +     push @m, "\t".'$(RM_RF) `cat $(INSTALLARCHLIB)/auto/$(FULLEXT)/.packlist`
  2011. + ';
  2012. + 
  2013.       join("",@m);
  2014.   }
  2015.   
  2016. ***************
  2017. *** 1805,1811 ****
  2018.   
  2019.   
  2020.   sub perldepend {
  2021. !     my(@m);
  2022.       push(@m,'
  2023.   PERL_HDRS = $(PERL_INC)/EXTERN.h $(PERL_INC)/INTERN.h \
  2024.       $(PERL_INC)/XSUB.h    $(PERL_INC)/av.h    $(PERL_INC)/cop.h \
  2025. --- 1908,1914 ----
  2026.   
  2027.   
  2028.   sub perldepend {
  2029. !     my(@m);
  2030.       push(@m,'
  2031.   PERL_HDRS = $(PERL_INC)/EXTERN.h $(PERL_INC)/INTERN.h \
  2032.       $(PERL_INC)/XSUB.h    $(PERL_INC)/av.h    $(PERL_INC)/cop.h \
  2033. ***************
  2034. *** 1818,1826 ****
  2035.       $(PERL_INC)/scope.h    $(PERL_INC)/sv.h    $(PERL_INC)/unixish.h \
  2036.       $(PERL_INC)/util.h    $(PERL_INC)/config.h
  2037.   
  2038. - $(OBJECT) : $(PERL_HDRS)
  2039.   ');
  2040.   
  2041.       push(@m,'
  2042.   # Check for unpropogated config.sh changes. Should never happen.
  2043.   # We do NOT just update config.h because that is not sufficient.
  2044. --- 1921,1932 ----
  2045.       $(PERL_INC)/scope.h    $(PERL_INC)/sv.h    $(PERL_INC)/unixish.h \
  2046.       $(PERL_INC)/util.h    $(PERL_INC)/config.h
  2047.   
  2048.   ');
  2049.   
  2050. +     push @m, '
  2051. + $(OBJECT) : $(PERL_HDRS)
  2052. + ' if $att{OBJECT};
  2053. + 
  2054.       push(@m,'
  2055.   # Check for unpropogated config.sh changes. Should never happen.
  2056.   # We do NOT just update config.h because that is not sufficient.
  2057. ***************
  2058. *** 1840,1861 ****
  2059.   
  2060.   
  2061.   sub makefile {
  2062.       # We do not know what target was originally specified so we
  2063.       # must force a manual rerun to be sure. But as it should only
  2064.       # happen very rarely it is not a significant problem.
  2065. !     '
  2066.   $(OBJECT) : '.$att{MAKEFILE}.'
  2067.   
  2068.   # We take a very conservative approach here, but it\'s worth it.
  2069.   # We move Makefile to Makefile.old here to avoid gnu make looping.
  2070. ! '.$att{MAKEFILE}.':    Makefile.PL $(CONFIGDEP)
  2071.       @echo "Makefile out-of-date with respect to $?"
  2072.       @echo "Cleaning current config before rebuilding Makefile..."
  2073.       -@mv '."$att{MAKEFILE} $att{MAKEFILE}.old".'
  2074.       -$(MAKE) -f '.$att{MAKEFILE}.'.old clean >/dev/null 2>&1 || true
  2075. !     $(PERL) $(I_PERL_LIBS) Makefile.PL '."@ARGV".'
  2076.       @echo "Now you must rerun make."; false
  2077.   ';
  2078.   }
  2079.   
  2080.   sub postamble{
  2081. --- 1946,1970 ----
  2082.   
  2083.   
  2084.   sub makefile {
  2085. +     my @m;
  2086.       # We do not know what target was originally specified so we
  2087.       # must force a manual rerun to be sure. But as it should only
  2088.       # happen very rarely it is not a significant problem.
  2089. !     push @m, '
  2090.   $(OBJECT) : '.$att{MAKEFILE}.'
  2091.   
  2092.   # We take a very conservative approach here, but it\'s worth it.
  2093.   # We move Makefile to Makefile.old here to avoid gnu make looping.
  2094. ! '.$att{MAKEFILE}.' :    Makefile.PL $(CONFIGDEP)
  2095.       @echo "Makefile out-of-date with respect to $?"
  2096.       @echo "Cleaning current config before rebuilding Makefile..."
  2097.       -@mv '."$att{MAKEFILE} $att{MAKEFILE}.old".'
  2098.       -$(MAKE) -f '.$att{MAKEFILE}.'.old clean >/dev/null 2>&1 || true
  2099. !     $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" Makefile.PL '."@ARGV".'
  2100.       @echo "Now you must rerun make."; false
  2101.   ';
  2102. + 
  2103. +     join "", @m;
  2104.   }
  2105.   
  2106.   sub postamble{
  2107. ***************
  2108. *** 1872,1878 ****
  2109.   %Dir_Target = (); # package global
  2110.   
  2111.   sub dir_target {
  2112. !     my($self,@dirs)=@_;
  2113.       my(@m,$dir);
  2114.       foreach $dir (@dirs) {
  2115.       next if $Dir_Target{$dir};
  2116. --- 1981,1987 ----
  2117.   %Dir_Target = (); # package global
  2118.   
  2119.   sub dir_target {
  2120. !     my($self,@dirs) = @_;
  2121.       my(@m,$dir);
  2122.       foreach $dir (@dirs) {
  2123.       next if $Dir_Target{$dir};
  2124. ***************
  2125. *** 1963,1971 ****
  2126.   ";
  2127.   
  2128.       unless ($libperl && -f $libperl) {
  2129. !     my $dir = (defined $att{PERL_SRC}) ? $att{PERL_SRC}
  2130. !                        : "$Config{'installarchlib'}/CORE";
  2131. !     $libperl = "libperl.a" unless $libperl;
  2132.       $libperl = "$dir/$libperl";
  2133.       print STDOUT "Warning: $libperl not found"
  2134.           unless (-f $libperl || defined($att{PERL_SRC}));
  2135. --- 2072,2079 ----
  2136.   ";
  2137.   
  2138.       unless ($libperl && -f $libperl) {
  2139. !     my $dir = $att{PERL_SRC} || "$att{PERL_ARCHLIB}/CORE";
  2140. !     $libperl ||= "libperl.a";
  2141.       $libperl = "$dir/$libperl";
  2142.       print STDOUT "Warning: $libperl not found"
  2143.           unless (-f $libperl || defined($att{PERL_SRC}));
  2144. ***************
  2145. *** 2008,2265 ****
  2146.   # We write EXTRA outside the perl program to have it eval'd by the shell
  2147.       push @m, q{
  2148.   doc_inst_perl:
  2149.       @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary",' \\
  2150.           -e '"$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)",' \\
  2151. !         -e '"MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' -- `cat extralibs.ld`
  2152.   };
  2153.   
  2154.       push @m, qq{
  2155.   inst_perl: pure_inst_perl doc_inst_perl
  2156.   
  2157.   pure_inst_perl: \$(MAP_TARGET)
  2158. !     $att{CP} \$(MAP_TARGET) $Config{'installbin'}/\$(MAP_TARGET)
  2159.   
  2160.   realclean :: map_clean
  2161.   
  2162. - distclean :: realclean
  2163. - 
  2164.   map_clean :
  2165. !     $att{RM_F} $tmp/perlmain.o $tmp/perlmain.c $makefilename
  2166.   };
  2167.   
  2168.       join '', @m;
  2169.   }
  2170.   
  2171. ! # --- Determine libraries to use and how to use them ---
  2172. ! 
  2173. ! sub extliblist{
  2174. !     my($self, $potential_libs)=@_;
  2175. !     return ("", "", "") unless $potential_libs;
  2176. !     print STDOUT "Potential libraries are '$potential_libs':" if $Verbose;
  2177. ! 
  2178. !     my($so)   = $Config{'so'};
  2179. !     my($libs) = $Config{'libs'};
  2180. ! 
  2181. !     # compute $extralibs, $bsloadlibs and $ldloadlibs from
  2182. !     # $potential_libs
  2183. !     # this is a rewrite of Andy Dougherty's extliblist in perl
  2184. !     # its home is in <distribution>/ext/util
  2185. ! 
  2186. !     my(@searchpath); # from "-L/path" entries in $potential_libs
  2187. !     my(@libpath) = split " ", $Config{'libpth'};
  2188. !     my(@ldloadlibs, @bsloadlibs, @extralibs);
  2189. !     my($fullname, $thislib, $thispth, @fullname);
  2190. !     my($pwd) = fastcwd(); # from Cwd.pm
  2191. !     my($found) = 0;
  2192. ! 
  2193. !     foreach $thislib (split ' ', $potential_libs){
  2194. ! 
  2195. !     # Handle possible linker path arguments.
  2196. !     if ($thislib =~ s/^(-[LR])//){    # save path flag type
  2197. !         my($ptype) = $1;
  2198. !         unless (-d $thislib){
  2199. !         print STDOUT "$ptype$thislib ignored, directory does not exist\n"
  2200. !             if $Verbose;
  2201. !         next;
  2202. !         }
  2203. !         if ($thislib !~ m|^/|) {
  2204. !           print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
  2205. !           $thislib = "$pwd/$thislib";
  2206. !         }
  2207. !         push(@searchpath, $thislib);
  2208. !         push(@extralibs,  "$ptype$thislib");
  2209. !         push(@ldloadlibs, "$ptype$thislib");
  2210. !         next;
  2211. !     }
  2212. ! 
  2213. !     # Handle possible library arguments.
  2214. !     unless ($thislib =~ s/^-l//){
  2215. !       print STDOUT "Unrecognized argument in LIBS ignored: '$thislib'\n";
  2216. !       next;
  2217. !     }
  2218. ! 
  2219. !     my($found_lib)=0;
  2220. !     foreach $thispth (@searchpath, @libpath){
  2221. ! 
  2222. !         # Try to find the full name of the library.  We need this to
  2223. !         # determine whether it's a dynamically-loadable library or not.
  2224. !         # This tends to be subject to various os-specific quirks.
  2225. !         # For gcc-2.6.2 on linux (March 1995), DLD can not load
  2226. !         # .sa libraries, with the exception of libm.sa, so we
  2227. !         # deliberately skip them.
  2228. !         if (@fullname = lsdir($thispth,"^lib$thislib\.$so\.[0-9]+")){
  2229. !         # Take care that libfoo.so.10 wins against libfoo.so.9.
  2230. !         # Compare two libraries to find the most recent version
  2231. !         # number.  E.g.  if you have libfoo.so.9.0.7 and
  2232. !         # libfoo.so.10.1, first convert all digits into two
  2233. !         # decimal places.  Then we'll add ".00" to the shorter
  2234. !         # strings so that we're comparing strings of equal length
  2235. !         # Thus we'll compare libfoo.so.09.07.00 with
  2236. !         # libfoo.so.10.01.00.  Some libraries might have letters
  2237. !         # in the version.  We don't know what they mean, but will
  2238. !         # try to skip them gracefully -- we'll set any letter to
  2239. !         # '0'.  Finally, sort in reverse so we can take the
  2240. !         # first element.
  2241. !         $fullname = "$thispth/" .
  2242. !         (sort { my($ma) = $a;
  2243. !             my($mb) = $b;
  2244. !             $ma =~ tr/A-Za-z/0/s;
  2245. !             $ma =~ s/\b(\d)\b/0$1/g;
  2246. !             $mb =~ tr/A-Za-z/0/s;
  2247. !             $mb =~ s/\b(\d)\b/0$1/g;
  2248. !             while (length($ma) < length($mb)) { $ma .= ".00"; }
  2249. !             while (length($mb) < length($ma)) { $mb .= ".00"; }
  2250. !             # Comparison deliberately backwards
  2251. !             $mb cmp $ma;} @fullname)[0];
  2252. !         } elsif (-f ($fullname="$thispth/lib$thislib.$so")
  2253. !          && (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
  2254. !         } elsif (-f ($fullname="$thispth/lib${thislib}_s.a")
  2255. !          && ($thislib .= "_s") ){ # we must explicitly use _s version
  2256. !         } elsif (-f ($fullname="$thispth/lib$thislib.a")){
  2257. !         } elsif (-f ($fullname="$thispth/Slib$thislib.a")){
  2258. !         } else {
  2259. !         print STDOUT "$thislib not found in $thispth" if $Verbose;
  2260. !         next;
  2261. !         }
  2262. !         print STDOUT "'-l$thislib' found at $fullname" if $Verbose;
  2263. !         $found++;
  2264. !         $found_lib++;
  2265. ! 
  2266. !         # Now update library lists
  2267. ! 
  2268. !         # what do we know about this library...
  2269. !         my $is_dyna = ($fullname !~ /\.a$/);
  2270. !         my $in_perl = ($libs =~ /\B-l${thislib}\b/s);
  2271. ! 
  2272. !         # Do not add it into the list if it is already linked in
  2273. !         # with the main perl executable.
  2274. !         # We have to special-case the NeXT, because all the math 
  2275. !         # is also in libsys_s
  2276. !         unless ($in_perl || 
  2277. !             ($Config{'osname'} eq 'next' && $thislib eq 'm') ){
  2278. !         push(@extralibs, "-l$thislib");
  2279. !         }
  2280. ! 
  2281. !         # We might be able to load this archive file dynamically
  2282. !         if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
  2283. !         # We push -l$thislib instead of $fullname because
  2284. !         # it avoids hardwiring a fixed path into the .bs file.
  2285. !         # mkbootstrap will automatically add dl_findfile() to
  2286. !         # the .bs file if it sees a name in the -l format.
  2287. !         # USE THIS, when dl_findfile() is fixed: 
  2288. !         # push(@bsloadlibs, "-l$thislib");
  2289. !         # OLD USE WAS while checking results against old_extliblist
  2290. !         push(@bsloadlibs, "$fullname");
  2291. !         } else {
  2292. !         if ($is_dyna){
  2293. !                     # For SunOS4, do not add in this shared library if
  2294. !                     # it is already linked in the main perl executable
  2295. !             push(@ldloadlibs, "-l$thislib")
  2296. !             unless ($in_perl and $Config{'osname'} eq 'sunos');
  2297. !         } else {
  2298. !             push(@ldloadlibs, "-l$thislib");
  2299. !         }
  2300. !         }
  2301. !         last;    # found one here so don't bother looking further
  2302. !     }
  2303. !     print STDOUT "Warning (non-fatal): No library found for -l$thislib" 
  2304. !         unless $found_lib>0;
  2305. !     }
  2306. !     return ('','','') unless $found;
  2307. !     ("@extralibs", "@bsloadlibs", "@ldloadlibs");
  2308. ! }
  2309. ! 
  2310. ! 
  2311. ! # --- Write a DynaLoader bootstrap file if required
  2312. ! 
  2313. ! sub mkbootstrap {
  2314. ! 
  2315. ! =head1 USEFUL SUBROUTINES
  2316. ! 
  2317. ! =head2 mkbootstrap()
  2318. ! 
  2319. ! Make a bootstrap file for use by this system's DynaLoader.  It
  2320. ! typically gets called from an extension Makefile.
  2321. ! 
  2322. ! There is no C<*.bs> file supplied with the extension. Instead a
  2323. ! C<*_BS> file which has code for the special cases, like posix for
  2324. ! berkeley db on the NeXT.
  2325. ! 
  2326. ! This file will get parsed, and produce a maybe empty
  2327. ! C<@DynaLoader::dl_resolve_using> array for the current architecture.
  2328. ! That will be extended by $BSLOADLIBS, which was computed by Andy's
  2329. ! extliblist script. If this array still is empty, we do nothing, else
  2330. ! we write a .bs file with an C<@DynaLoader::dl_resolve_using> array, but
  2331. ! without any C<if>s, because there is no longer a need to deal with
  2332. ! special cases.
  2333. ! 
  2334. ! The C<*_BS> file can put some code into the generated C<*.bs> file by placing
  2335. ! it in C<$bscode>. This is a handy 'escape' mechanism that may prove
  2336. ! useful in complex situations.
  2337. ! 
  2338. ! If @DynaLoader::dl_resolve_using contains C<-L*> or C<-l*> entries then
  2339. ! mkbootstrap will automatically add a dl_findfile() call to the
  2340. ! generated C<*.bs> file.
  2341. ! 
  2342. ! =cut
  2343. ! 
  2344. !     my($self, @bsloadlibs)=@_;
  2345. ! 
  2346. !     @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs
  2347. ! 
  2348. !     print STDOUT "    bsloadlibs=@bsloadlibs\n" if $Verbose;
  2349. ! 
  2350. !     # We need DynaLoader here because we and/or the *_BS file may
  2351. !     # call dl_findfile(). We don't say `use' here because when
  2352. !     # first building perl extensions the DynaLoader will not have
  2353. !     # been built when MakeMaker gets first used.
  2354. !     require DynaLoader;
  2355. !     import DynaLoader;
  2356. ! 
  2357. !     init_main() unless defined $att{'BASEEXT'};
  2358. ! 
  2359. !     rename "$att{BASEEXT}.bs", "$att{BASEEXT}.bso";
  2360. ! 
  2361. !     if (-f "$att{BASEEXT}_BS"){
  2362. !     $_ = "$att{BASEEXT}_BS";
  2363. !     package DynaLoader; # execute code as if in DynaLoader
  2364. !     local($osname, $dlsrc) = (); # avoid warnings
  2365. !     ($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)};
  2366. !     $bscode = "";
  2367. !     unshift @INC, ".";
  2368. !     require $_;
  2369. !     shift @INC;
  2370. !     }
  2371. ! 
  2372. !     if ($Config{'dlsrc'} =~ /^dl_dld/){
  2373. !     package DynaLoader;
  2374. !     push(@dl_resolve_using, dl_findfile('-lc'));
  2375. !     }
  2376. ! 
  2377. !     my(@all) = (@bsloadlibs, @DynaLoader::dl_resolve_using);
  2378. !     my($method) = '';
  2379. !     if (@all){
  2380. !     open BS, ">$att{BASEEXT}.bs"
  2381. !         or die "Unable to open $att{BASEEXT}.bs: $!";
  2382. !     print STDOUT "Writing $att{BASEEXT}.bs\n";
  2383. !     print STDOUT "    containing: @all" if $Verbose;
  2384. !     print BS "# $att{BASEEXT} DynaLoader bootstrap file for $Config{'osname'} architecture.\n";
  2385. !     print BS "# Do not edit this file, changes will be lost.\n";
  2386. !     print BS "# This file was automatically generated by the\n";
  2387. !     print BS "# mkbootstrap routine in ExtUtils/MakeMaker.pm.\n";
  2388. !     print BS "\@DynaLoader::dl_resolve_using = ";
  2389. !     # If @all contains names in the form -lxxx or -Lxxx then it's asking for
  2390. !     # runtime library location so we automatically add a call to dl_findfile()
  2391. !     if (" @all" =~ m/ -[lLR]/){
  2392. !         print BS "  dl_findfile(qw(\n  @all\n  ));\n";
  2393. !     }else{
  2394. !         print BS "  qw(@all);\n";
  2395. !     }
  2396. !     # write extra code if *_BS says so
  2397. !     print BS $DynaLoader::bscode if $DynaLoader::bscode;
  2398. !     print BS "\n1;\n";
  2399. !     close BS;
  2400. !     }
  2401.   }
  2402.   
  2403.   sub mksymlists {
  2404. --- 2116,2147 ----
  2405.   # We write EXTRA outside the perl program to have it eval'd by the shell
  2406.       push @m, q{
  2407.   doc_inst_perl:
  2408. +     @ echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
  2409.       @ $(FULLPERL) -e 'use ExtUtils::MakeMaker; MM->writedoc("Perl binary",' \\
  2410.           -e '"$(MAP_TARGET)", "MAP_STATIC=$(MAP_STATIC)",' \\
  2411. !         -e '"MAP_EXTRA=@ARGV", "MAP_LIBPERL=$(MAP_LIBPERL)")' \\
  2412. !         -- `cat extralibs.ld` >> $(INSTALLARCHLIB)/perllocal.pod
  2413.   };
  2414.   
  2415.       push @m, qq{
  2416.   inst_perl: pure_inst_perl doc_inst_perl
  2417.   
  2418.   pure_inst_perl: \$(MAP_TARGET)
  2419. !     $att{CP} \$(MAP_TARGET) \$(INSTALLBIN)/\$(MAP_TARGET)
  2420.   
  2421.   realclean :: map_clean
  2422.   
  2423.   map_clean :
  2424. !     $att{RM_F} $tmp/perlmain.o $tmp/perlmain.c $makefilename extralibs.ld
  2425.   };
  2426.   
  2427.       join '', @m;
  2428.   }
  2429.   
  2430. ! sub extliblist {
  2431. !     my($self,$libs) = @_;
  2432. !     require ExtUtils::Liblist;
  2433. !     ExtUtils::Liblist::ext($libs, $Verbose);
  2434.   }
  2435.   
  2436.   sub mksymlists {
  2437. ***************
  2438. *** 2301,2523 ****
  2439.   # --- perllocal.pod section ---
  2440.   sub writedoc {
  2441.       my($self,$what,$name,@attribs)=@_;
  2442. !     -w $Config{'installarchlib'} or die "No write permission to $Config{'installarchlib'}";
  2443. !     my($localpod) = "$Config{'installarchlib'}/perllocal.pod";
  2444.       my($time);
  2445. !     if (-f $localpod) {
  2446. !     print "Appending installation info to $localpod\n";
  2447. !     open POD, ">>$localpod" or die "Couldn't open $localpod";
  2448. !     } else {
  2449. !     print "Writing new file $localpod\n";
  2450. !     open POD, ">$localpod" or die "Couldn't open $localpod";
  2451. !     print POD "=head1 NAME
  2452. ! 
  2453. ! perllocal - locally installed modules and perl binaries
  2454. ! \n=head1 HISTORY OF LOCAL INSTALLATIONS
  2455. ! 
  2456. ! ";
  2457. !     }
  2458.       require "ctime.pl";
  2459.       chop($time = ctime(time));
  2460. !     print POD "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
  2461. !     print POD join "\n\n=item *\n\n", map("C<$_>",@attribs);
  2462. !     print POD "\n\n=back\n\n";
  2463. !     close POD;
  2464.   }
  2465.   
  2466.   
  2467.   =head1 AUTHORS
  2468.   
  2469.   Andy Dougherty F<E<lt>doughera@lafcol.lafayette.eduE<gt>>, Andreas
  2470.   Koenig F<E<lt>k@franz.ww.TU-Berlin.DEE<gt>>, Tim Bunce
  2471.   F<E<lt>Tim.Bunce@ig.co.ukE<gt>>.  VMS support by Charles Bailey
  2472. ! F<E<lt>bailey@HMIVAX.HUMGEN.UPENN.EDUE<gt>>.
  2473.   
  2474.   =head1 MODIFICATION HISTORY
  2475.   
  2476.   v1, August 1994; by Andreas Koenig. Based on Andy Dougherty's Makefile.SH.
  2477. - 
  2478.   v2, September 1994 by Tim Bunce.
  2479. - 
  2480.   v3.0 October  1994 by Tim Bunce.
  2481. - 
  2482.   v3.1 November 11th 1994 by Tim Bunce.
  2483. - 
  2484.   v3.2 November 18th 1994 by Tim Bunce.
  2485. - 
  2486.   v3.3 November 27th 1994 by Andreas Koenig.
  2487. - 
  2488.   v3.4 December  7th 1994 by Andreas Koenig and Tim Bunce.
  2489. - 
  2490.   v3.5 December 15th 1994 by Tim Bunce.
  2491. - 
  2492.   v3.6 December 15th 1994 by Tim Bunce.
  2493. - 
  2494.   v3.7 December 30th 1994 By Tim Bunce
  2495. - 
  2496.   v3.8 January  17th 1995 By Andreas Koenig and Tim Bunce
  2497. - 
  2498.   v3.9 January 19th 1995 By Tim Bunce
  2499. - 
  2500.   v3.10 January 23rd 1995 By Tim Bunce
  2501. - 
  2502.   v3.11 January 24th 1995 By Andreas Koenig
  2503. - 
  2504.   v4.00 January 24th 1995 By Tim Bunce
  2505. - 
  2506.   v4.01 January 25th 1995 By Tim Bunce
  2507. - 
  2508.   v4.02 January 29th 1995 By Andreas Koenig
  2509. - 
  2510.   v4.03 January 30th 1995 By Andreas Koenig
  2511. - 
  2512.   v4.04 Februeary 5th 1995 By Andreas Koenig
  2513. - 
  2514.   v4.05 February 8th 1995 By Andreas Koenig
  2515. - 
  2516.   v4.06 February 10th 1995 By Andreas Koenig
  2517. - 
  2518.   v4.061 February 12th 1995 By Andreas Koenig
  2519. - 
  2520.   v4.08 - 4.085  February 14th-21st 1995 by Andreas Koenig
  2521.   
  2522. ! Introduces EXE_FILES and INST_EXE for installing executable scripts 
  2523. ! and fixes documentation to reflect the new variable.
  2524.   
  2525. ! Introduces the automated documentation of the installation history. Every
  2526. !   make install
  2527. ! and
  2528. !   make inst_perl
  2529. ! add some documentation to the file C<$installarchlib/perllocal.pod>.
  2530. ! This is done by the writedoc() routine in the MM_Unix class. The
  2531. ! documentation is rudimentary until we find an agreement, what 
  2532. ! information is supposed to go into the pod.
  2533.   
  2534. ! Added ability to specify the another name than C<perl> for a new binary.
  2535.   
  2536. ! Both C<make perl> and C<makeaperl> now prompt the user, how to install
  2537. ! the new binary after the build.
  2538.   
  2539. ! Reduced noise during the make.
  2540.   
  2541. ! Variable LIBPERL_A enables indirect setting of the switches -DEMBED,
  2542. ! -DDEBUGGING and -DMULTIPLICITY in the same way as done by cflags.
  2543.   
  2544. ! old_extliblist() code deleted, new_extliblist() renamed to extliblist().
  2545.   
  2546. ! Improved algorithm in extliblist, that returns ('','','') if no
  2547. ! library has been found, even if a C<-L> directory has been found.
  2548.   
  2549. ! Fixed a bug that didn't allow lib/ directory work as documented.
  2550.   
  2551. ! Allowed C<make test TEST_VERBOSE=1>
  2552.   
  2553. ! v4.086 March 9 1995 by Andy Dougherty
  2554.   
  2555. ! Fixed some AIX buglets.  Fixed DLD support for Linux with gcc 2.6.2.
  2556.   
  2557. ! v4.09 March 31 1995 by Andreas Koenig
  2558.   
  2559. ! Patches from Tim (/usr/local/lib/perl5/hpux/CORE/libperl.a not found
  2560. ! message eliminated, and a small makeaperl patch).
  2561.   
  2562. ! blib now is a relative directory (./blib).
  2563.   
  2564. ! Documentation bug fixed.
  2565.   
  2566. ! Chdir in the Makefile always followed by "&&", not by ";".
  2567.   
  2568. ! The output of cflags is no longer directed to /dev/null, but the shell
  2569. ! version of cflags is now only called once.
  2570.   
  2571. ! The result of MakeMaker's cflags takes precedence over
  2572. ! shell-cflags.
  2573.   
  2574. ! Introduced a $(PASTHRU) variable, that doesn't have much effect yet,
  2575. ! but now it's easier to add variables that have to be passed to
  2576. ! recursive makes.
  2577.   
  2578. ! 'make config' will now always reapply the original arguments to the
  2579. ! 'perl Makefile.PL'.
  2580.   
  2581. ! MKPATH will be called only once for any directory (should speed up Tk
  2582. ! building and installation considerably).
  2583.   
  2584. ! "Subroutine mkbootstrap redefined" message eliminated. It was
  2585. ! necessary to move &mkbootstrap and &mksymlists from @EXPORT to
  2586. ! @EXPORT_OK.
  2587.   
  2588. ! C<*.PL> files will be processed by C<$(PERL)>.
  2589.   
  2590. ! Turned some globals into my() variables, where it was obvious to be an
  2591. ! oversight.
  2592.   
  2593. ! Changed some continuation lines so that they work on Solaris and Unicos.
  2594.   
  2595. ! v4.091 April 3 1995 by Andy Dougherty
  2596.   
  2597. ! Another attempt to fix writedoc() from Dean Roehrich.
  2598.   
  2599. ! v4.092 April 11 1995 by Andreas Koenig
  2600. ! 
  2601. ! Fixed a docu bug in hint file description. Added printing of a warning
  2602. ! from eval in the hintfile section if the eval has errors.  Moved
  2603. ! check_hints() into the WriteMakefile() subroutine to avoid evaling
  2604. ! hintsfiles for other uses of the module (mkbootstrap, mksymlists).
  2605.   
  2606. ! Eliminated csh globbing to work around buggy Linux csh.
  2607.   
  2608. ! In extliblist() libfoo.so.10 now wins against libfoo.so.9.
  2609.   
  2610. ! Use $(CC) instead of $Config{'cc'} everywhere to allow overriding
  2611. ! according to a patch by Dean Roehrich.
  2612.   
  2613. ! Introduce a ./extralibs.ld file that contains the contents of all
  2614. ! relevant extralibs.ld files for a static build to shorten the command
  2615. ! line for the linking of a new static perl.
  2616.   
  2617. ! Minor cosmetics.
  2618.   
  2619. ! v4.093 April 12 1995 by Andy Dougherty
  2620.   
  2621. ! Rename distclean target to plain dist.  Insert a dummy distclean
  2622. ! target that's the same as realclean.  This is more consistent with the
  2623. ! main perl makefile.
  2624.   
  2625. ! Fix up extliblist() so even bizarre names like libfoo.so.10.0.1
  2626. ! are handled.
  2627.   
  2628. ! Include Tim's suggestions about $verbose and more careful substitution
  2629. ! of $(CC) for $Config{'cc'}.
  2630.   
  2631. ! v4.094 April 12 1995 by Andy Dougherty
  2632.   
  2633. ! Include Andreas' improvement of $(CC) detection.
  2634.   
  2635. ! v4.095 May 30 1995 by Andy Dougherty
  2636.   
  2637. ! Include installation of .pod and .pm files.
  2638.   
  2639. ! Space out documentation for better printing with pod2man.
  2640. ! 
  2641. ! =head1 NOTES
  2642. ! 
  2643. ! MakeMaker development work still to be done:
  2644.   
  2645.   Needs more complete documentation.
  2646.   
  2647. ! Add a html: target when there has been found a general solution to
  2648.   installing html files.
  2649.   
  2650. - Add an uninstall target.
  2651. - 
  2652.   Add a FLAVOR variable that makes it easier to build debugging,
  2653. ! embedded or multiplicity perls.
  2654.   
  2655.   =cut
  2656. - 
  2657. - # the following keeps AutoSplit happy
  2658. - package ExtUtils::MakeMaker;
  2659. - 1;
  2660. - 
  2661. - __END__
  2662. --- 2183,2807 ----
  2663.   # --- perllocal.pod section ---
  2664.   sub writedoc {
  2665.       my($self,$what,$name,@attribs)=@_;
  2666. ! # the following would have to move to a ExtUtils::Perllocal.pm, if we want it
  2667. ! # it's dangerous wrt AFS, and it's against the philosophy that MakeMaker
  2668. ! # should never write to files. We write to stdout and append to the file
  2669. ! # during make install, but we cannot rely on '-f $Config{"installarchlib"},
  2670. ! # as there is a time window between the WriteMakefile and the make.
  2671. ! #    -w $Config{'installarchlib'} or die "No write permission to $Config{'installarchlib'}";
  2672. ! #    my($localpod) = "$Config{'installarchlib'}/perllocal.pod";
  2673.       my($time);
  2674. ! #    if (-f $localpod) {
  2675. ! #    print "Appending installation info to $localpod\n";
  2676. ! #    open POD, ">>$localpod" or die "Couldn't open $localpod";
  2677. ! #    } else {
  2678. ! #    print "Writing new file $localpod\n";
  2679. ! #    open POD, ">$localpod" or die "Couldn't open $localpod";
  2680. ! #    print POD "=head1 NAME
  2681. ! #
  2682. ! #perllocal - locally installed modules and perl binaries
  2683. ! #\n=head1 HISTORY OF LOCAL INSTALLATIONS
  2684. ! #
  2685. ! #";
  2686. ! #    }
  2687.       require "ctime.pl";
  2688.       chop($time = ctime(time));
  2689. !     print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
  2690. !     print join "\n\n=item *\n\n", map("C<$_>",@attribs);
  2691. !     print "\n\n=back\n\n";
  2692. ! #    close POD;
  2693.   }
  2694.   
  2695.   
  2696. + 
  2697. + # the following keeps AutoSplit happy
  2698. + package ExtUtils::MakeMaker;
  2699. + 1;
  2700. + 
  2701. + __END__
  2702. + 
  2703. + =head1 NAME
  2704. + 
  2705. + ExtUtils::MakeMaker - create an extension Makefile
  2706. + 
  2707. + =head1 SYNOPSIS
  2708. + 
  2709. + C<use ExtUtils::MakeMaker;>
  2710. + 
  2711. + C<WriteMakefile( ATTRIBUTE =E<gt> VALUE [, ...] );>
  2712. + 
  2713. + =head1 DESCRIPTION
  2714. + 
  2715. + This utility is designed to write a Makefile for an extension module
  2716. + from a Makefile.PL. It is based on the Makefile.SH model provided by
  2717. + Andy Dougherty and the perl5-porters.
  2718. + 
  2719. + It splits the task of generating the Makefile into several subroutines
  2720. + that can be individually overridden.  Each subroutine returns the text
  2721. + it wishes to have written to the Makefile.
  2722. + 
  2723. + MakeMaker.pm uses the architecture specific information from
  2724. + Config.pm. In addition the extension may contribute to the C<%Config>
  2725. + hash table of Config.pm by supplying hints files in a C<hints/>
  2726. + directory. The hints files are expected to be named like their
  2727. + counterparts in C<PERL_SRC/hints>, but with an C<.pl> file name
  2728. + extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by MakeMaker
  2729. + within the WriteMakefile() subroutine, and can be used to execute
  2730. + commands as well as to include special variables. If there is no
  2731. + hintsfile for the actual system, but for some previous releases of the
  2732. + same operating system, the latest one of those is used.
  2733. + 
  2734. + =head2 Default Makefile Behaviour
  2735. + 
  2736. + The automatically generated Makefile enables the user of the extension
  2737. + to invoke
  2738. + 
  2739. +   perl Makefile.PL # optionally "perl Makefile.PL verbose"
  2740. +   make
  2741. +   make test # optionally set TEST_VERBOSE=1
  2742. +   make install # See below
  2743. + 
  2744. + The Makefile to be produced may be altered by adding arguments of the
  2745. + form C<KEY=VALUE>. If the user wants to work with a different perl
  2746. + than the default, this is achieved by specifying
  2747. + 
  2748. +   perl Makefile.PL PERL=/tmp/myperl5
  2749. + 
  2750. + Other interesting targets in the generated Makefile are
  2751. + 
  2752. +   make config     # to check if the Makefile is up-to-date
  2753. +   make clean      # delete local temporary files (Makefile gets renamed)
  2754. +   make realclean  # delete all derived files (including installed files)
  2755. +   make dist       # see below the Distribution Support section
  2756. + 
  2757. + =head2 Special case C<make install>
  2758. + 
  2759. + C<make> alone puts all relevant files into directories that are named
  2760. + by the macros INST_LIB, INST_ARCHLIB, and INST_EXE. All three default
  2761. + to ./blib if you are I<not> building below the perl source directory. If
  2762. + you I<are> building below the perl source, INST_LIB and INST_ARCHLIB
  2763. + default to ../../lib, and INST_EXE is not defined.
  2764. + 
  2765. + The I<install> target of the generated Makefile is a recursive call to
  2766. + make which sets
  2767. + 
  2768. +     INST_LIB     to INSTALLPRIVLIB
  2769. +     INST_ARCHLIB to INSTALLARCHLIB
  2770. +     INST_EXE     to INSTALLBIN
  2771. + 
  2772. + The three INSTALL... macros in turn default to
  2773. + $Config{installprivlib}, $Config{installarchlib}, and
  2774. + $Config{installbin} respectively.
  2775. + 
  2776. + The recommended way to proceed is to set only the INSTALL* macros, not
  2777. + the INST_* targets. In doing so, you give room to the compilation
  2778. + process without affecting important directories. Usually a 'make test'
  2779. + will succeed after the make, and a 'make install' can finish the game.
  2780. + 
  2781. + MakeMaker gives you much more freedom than needed to configure
  2782. + internal variables and get different results. It is worth to mention,
  2783. + that make(1) also lets you configure most of the variables that are
  2784. + used in the Makefile. But in the majority of situations this will not
  2785. + be necessary, and should only be done, if the author of a package
  2786. + recommends it.
  2787. + 
  2788. + The usual relationship between INSTALLPRIVLIB and INSTALLARCHLIB is
  2789. + that the latter is a subdirectory of the former with the name
  2790. + C<$Config{'archname'}>, MakeMaker supports the user who sets
  2791. + INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not, then
  2792. + MakeMaker defaults the latter to be INSTALLPRIVLIB/ARCHNAME if that
  2793. + directory exists, otherwise it defaults to INSTALLPRIVLIB.
  2794. + 
  2795. + Previous versions of MakeMaker suggested to use the INST_* macros. For
  2796. + backwards compatibility, these are still supported but deprecated in
  2797. + favor of the INSTALL* macros.
  2798. + 
  2799. + Here is the description, what they are used for: If the user specifies
  2800. + the final destination for the INST_... macros, then there is no need
  2801. + to call 'make install', because 'make' will already put all files in
  2802. + place.
  2803. + 
  2804. + If there is a need to first build everything in the C<./blib>
  2805. + directory and test the product, then it's appropriate to use the
  2806. + INSTALL... macros. So the users have the choice to either say
  2807. + 
  2808. +     # case: trust the module
  2809. +     perl Makefile.PL INST_LIB=~/perllib INST_EXE=~/bin
  2810. +     make
  2811. +     make test
  2812. + 
  2813. + or
  2814. + 
  2815. +     perl Makefile.PL INSTALLPRIVLIB=~/foo \
  2816. +             INSTALLARCHLIB=~/foo/bar  INSTALLBIN=~/bin
  2817. +     make
  2818. +     make test
  2819. +     make install
  2820. + 
  2821. + Note, that the tilde expansion is done by MakeMaker, not by perl by
  2822. + default, nor by make. So be careful to use the tilde only with the
  2823. + C<perl Makefile.PL> call.
  2824. + 
  2825. + It is important to know, that the INSTALL* macros should be absolute
  2826. + paths, never relativ ones. Packages with multiple Makefile.PLs in
  2827. + different directories get the contents of the INSTALL* macros
  2828. + propagated verbatim. (The INST_* macros will be corrected, if they are
  2829. + relativ paths, but not the INSTALL* macros.)
  2830. + 
  2831. + If the user has superuser privileges, and is not working on AFS
  2832. + (Andrew File System) or relatives, then the defaults for
  2833. + INSTALLPRIVLIB, INSTALLARCHLIB, and INSTALLBIN will be appropriate,
  2834. + and this incantation will be the best:
  2835. + 
  2836. +     perl Makefile.PL; make; make test
  2837. +     make install
  2838. + 
  2839. + (I<make test> is not necessarily supported for all modules.)
  2840. + 
  2841. + C<make install> per default writes some documentation of what has been
  2842. + done into the file C<$Config{'installarchlib'}/perllocal.pod>. This is
  2843. + an experimental feature. It can be bypassed by calling C<make
  2844. + pure_install>.
  2845. + 
  2846. + =head2 Support to Link a new Perl Binary (eg dynamic loading not available)
  2847. + 
  2848. + An extension that is built with the above steps is ready to use on
  2849. + systems supporting dynamic loading. On systems that do not support
  2850. + dynamic loading, any newly created extension has to be linked together
  2851. + with the available resources. MakeMaker supports the linking process
  2852. + by creating appropriate targets in the Makefile whenever an extension
  2853. + is built. You can invoke the corresponding section of the makefile with
  2854. + 
  2855. +     make perl
  2856. + 
  2857. + That produces a new perl binary in the current directory with all
  2858. + extensions linked in that can be found in INST_ARCHLIB (usually
  2859. + C<./blib>) and PERL_ARCHLIB.
  2860. + 
  2861. + The binary can be installed into the directory where perl normally
  2862. + resides on your machine with
  2863. + 
  2864. +     make inst_perl
  2865. + 
  2866. + To produce a perl binary with a different name than C<perl>, either say
  2867. + 
  2868. +     perl Makefile.PL MAP_TARGET=myperl
  2869. +     make myperl
  2870. +     make inst_perl
  2871. + 
  2872. + or say
  2873. + 
  2874. +     perl Makefile.PL
  2875. +     make myperl MAP_TARGET=myperl
  2876. +     make inst_perl MAP_TARGET=myperl
  2877. + 
  2878. + In any case you will be prompted with the correct invocation of the
  2879. + C<inst_perl> target that installs the new binary into INSTALLBIN.
  2880. + 
  2881. + Note, that there is a C<makeaperl> scipt in the perl distribution,
  2882. + that supports the linking of a new perl binary in a similar fashion,
  2883. + but with more options.
  2884. + 
  2885. + C<make inst_perl> per default writes some documentation of what has been
  2886. + done into the file C<$Config{'installarchlib'}/perllocal.pod>. This
  2887. + can be bypassed by calling C<make pure_inst_perl>.
  2888. + 
  2889. + Warning: the inst_perl: target is rather mighty and will probably
  2890. + overwrite your existing perl binary. Use with care!
  2891. + 
  2892. + =head2 Determination of Perl Library and Installation Locations
  2893. + 
  2894. + MakeMaker needs to know, or to guess, where certain things are
  2895. + located.  Especially INST_LIB and INST_ARCHLIB (where to install files
  2896. + into), PERL_LIB and PERL_ARCHLIB (where to read existing modules
  2897. + from), and PERL_INC (header files and C<libperl*.*>).
  2898. + 
  2899. + Extensions may be built either using the contents of the perl source
  2900. + directory tree or from an installed copy of the perl library.
  2901. + 
  2902. + If an extension is being built below the C<ext/> directory of the perl
  2903. + source then MakeMaker will set PERL_SRC automatically (e.g., C<../..>).
  2904. + If PERL_SRC is defined then other variables default to the following:
  2905. + 
  2906. +   PERL_INC     = PERL_SRC
  2907. +   PERL_LIB     = PERL_SRC/lib
  2908. +   PERL_ARCHLIB = PERL_SRC/lib
  2909. +   INST_LIB     = PERL_LIB
  2910. +   INST_ARCHLIB = PERL_ARCHLIB
  2911. + 
  2912. + If an extension is being built away from the perl source then MakeMaker
  2913. + will leave PERL_SRC undefined and default to using the installed copy
  2914. + of the perl library. The other variables default to the following:
  2915. + 
  2916. +   PERL_INC     = $archlib/CORE
  2917. +   PERL_LIB     = $privlib
  2918. +   PERL_ARCHLIB = $archlib
  2919. +   INST_LIB     = ./blib
  2920. +   INST_ARCHLIB = ./blib
  2921. + 
  2922. + If perl has not yet been installed then PERL_SRC can be defined on the
  2923. + command line as shown in the previous section.
  2924. + 
  2925. + =head2 Useful Default Makefile Macros
  2926. + 
  2927. + FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  2928. + 
  2929. + BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  2930. + 
  2931. + ROOTEXT = Directory part of FULLEXT with leading slash (eg /DBD)
  2932. + 
  2933. + PERL_LIB = Directory where we read the perl library files
  2934. + 
  2935. + PERL_ARCHLIB = Same as above for architecture dependent files
  2936. + 
  2937. + INST_LIB = Directory where we put library files of this extension
  2938. + while building it. If we are building below PERL_SRC/ext
  2939. + we default to PERL_SRC/lib, else we default to ./blib.
  2940. + 
  2941. + INST_ARCHLIB = Same as above for architecture dependent files
  2942. + 
  2943. + INST_LIBDIR = C<$(INST_LIB)$(ROOTEXT)>
  2944. + 
  2945. + INST_AUTODIR = C<$(INST_LIB)/auto/$(FULLEXT)>
  2946. + 
  2947. + INST_ARCHAUTODIR = C<$(INST_ARCHLIB)/auto/$(FULLEXT)>
  2948. + 
  2949. + =head2 Customizing The Generated Makefile
  2950. + 
  2951. + If the Makefile generated does not fit your purpose you can change it
  2952. + using the mechanisms described below.
  2953. + 
  2954. + =head2 Using Attributes (and Parameters)
  2955. + 
  2956. + The following attributes can be specified as arguments to WriteMakefile()
  2957. + or as NAME=VALUE pairs on the command line:
  2958. + 
  2959. + This description is not yet documented; you can get at the description
  2960. + with one of the commands
  2961. + 
  2962. + =over 4
  2963. + 
  2964. + =item C<perl Makefile.PL help>
  2965. + (if you already have a basic Makefile.PL)
  2966. + 
  2967. + =item C<make help>
  2968. + (if you already have a Makefile)
  2969. + 
  2970. + =item C<perl -e 'use ExtUtils::MakeMaker "&help"; &help;'>
  2971. + (if you have neither nor)
  2972. + 
  2973. + =back
  2974. + 
  2975. + =head2 Overriding MakeMaker Methods
  2976. + 
  2977. + If you cannot achieve the desired Makefile behaviour by specifying
  2978. + attributes you may define private subroutines in the Makefile.PL.
  2979. + Each subroutines returns the text it wishes to have written to
  2980. + the Makefile. To override a section of the Makefile you can
  2981. + either say:
  2982. + 
  2983. +     sub MY::c_o { "new literal text" }
  2984. + 
  2985. + or you can edit the default by saying something like:
  2986. + 
  2987. +     sub MY::c_o { $_=MM->c_o; s/old text/new text/; $_ }
  2988. + 
  2989. + If you still need a different solution, try to develop another
  2990. + subroutine, that fits your needs and submit the diffs to
  2991. + F<perl5-porters@nicoh.com> or F<comp.lang.perl> as appropriate.
  2992. + 
  2993. + =head2 Distribution Support
  2994. + 
  2995. + For authors of extensions MakeMaker provides several Makefile
  2996. + targets. Most of the support comes from the ExtUtils::Manifest module,
  2997. + where additional documentation can be found.
  2998. + 
  2999. + =over 4
  3000. + 
  3001. + =item    make distcheck
  3002. + reports which files are below the build directory but not in the
  3003. + MANIFEST file and vice versa. (See ExtUtils::Manifest::fullcheck() for
  3004. + details)
  3005. + 
  3006. + =item    make distclean
  3007. + does a realclean first and then the distcheck. Note that this is not
  3008. + needed to build a new distribution as long as you are sure, that the
  3009. + MANIFEST file is ok.
  3010. + 
  3011. + =item    make manifest
  3012. + rewrites the MANIFEST file, adding all remaining files found (See
  3013. + ExtUtils::Manifest::mkmanifest() for details)
  3014. + 
  3015. + =item    make distdir
  3016. + Copies all the files that are in the MANIFEST file to a newly created
  3017. + directory with the name C<$(DISTNAME)-$(VERSION)>. If that directory
  3018. + exists, it will be removed first.
  3019. + 
  3020. + =item    make tardist
  3021. + First does a command $(PREOP) which defaults to a null command. Does a
  3022. + distdir next and runs C<tar> on that directory into a tarfile. Then
  3023. + deletes the distdir. Finishes with a command $(POSTOP) which defaults
  3024. + to a null command.
  3025. + 
  3026. + =item    make dist
  3027. + Defaults to $(DIST_DEFAULT) which in turn defaults to tardist.
  3028. + 
  3029. + =item    make uutardist
  3030. + Runs a tardist first and uuencodes the tarfile.
  3031. + 
  3032. + =item    make shdist
  3033. + First does a command $(PREOP) which defaults to a null command. Does a
  3034. + distdir next and runs C<shar> on that directory into a sharfile. Then
  3035. + deletes the distdir. Finishes with a command $(POSTOP) which defaults
  3036. + to a null command.  Note: For shdist to work properly a C<shar>
  3037. + program that can handle directories is mandatory.
  3038. + 
  3039. + =item    make ci
  3040. + Does a $(CI) (defaults to C<ci -u>) and a $(RCS) (C<rcs -q
  3041. + -Nv$(VERSION_SYM):>) on all files in the MANIFEST file
  3042. + 
  3043. + Customization of the dist targets can be done by specifying a hash
  3044. + reference to the dist attribute of the WriteMakefile call. The
  3045. + following parameters are recognized:
  3046. + 
  3047. +     TAR          ('tar')
  3048. +     TARFLAGS     ('cvf')
  3049. +     COMPRESS     ('compress')
  3050. +     SUFFIX       ('Z')
  3051. +     SHAR         ('shar')
  3052. +     PREOP        ('@ :')
  3053. +     POSTOP       ('@ :')
  3054. + 
  3055. + An example:
  3056. + 
  3057. +     WriteMakefile( 'dist' => { COMPRESS=>"gzip", SUFFIX=>"gz" })
  3058. + 
  3059. + =back
  3060. + 
  3061.   =head1 AUTHORS
  3062.   
  3063.   Andy Dougherty F<E<lt>doughera@lafcol.lafayette.eduE<gt>>, Andreas
  3064.   Koenig F<E<lt>k@franz.ww.TU-Berlin.DEE<gt>>, Tim Bunce
  3065.   F<E<lt>Tim.Bunce@ig.co.ukE<gt>>.  VMS support by Charles Bailey
  3066. ! F<E<lt>bailey@HMIVAX.HUMGEN.UPENN.EDUE<gt>>. Contact the makemaker
  3067. ! mailing list L<mailto:makemaker@franz.ww.tu-berlin.de>, if you have any
  3068. ! questions.
  3069.   
  3070.   =head1 MODIFICATION HISTORY
  3071.   
  3072.   v1, August 1994; by Andreas Koenig. Based on Andy Dougherty's Makefile.SH.
  3073.   v2, September 1994 by Tim Bunce.
  3074.   v3.0 October  1994 by Tim Bunce.
  3075.   v3.1 November 11th 1994 by Tim Bunce.
  3076.   v3.2 November 18th 1994 by Tim Bunce.
  3077.   v3.3 November 27th 1994 by Andreas Koenig.
  3078.   v3.4 December  7th 1994 by Andreas Koenig and Tim Bunce.
  3079.   v3.5 December 15th 1994 by Tim Bunce.
  3080.   v3.6 December 15th 1994 by Tim Bunce.
  3081.   v3.7 December 30th 1994 By Tim Bunce
  3082.   v3.8 January  17th 1995 By Andreas Koenig and Tim Bunce
  3083.   v3.9 January 19th 1995 By Tim Bunce
  3084.   v3.10 January 23rd 1995 By Tim Bunce
  3085.   v3.11 January 24th 1995 By Andreas Koenig
  3086.   v4.00 January 24th 1995 By Tim Bunce
  3087.   v4.01 January 25th 1995 By Tim Bunce
  3088.   v4.02 January 29th 1995 By Andreas Koenig
  3089.   v4.03 January 30th 1995 By Andreas Koenig
  3090.   v4.04 Februeary 5th 1995 By Andreas Koenig
  3091.   v4.05 February 8th 1995 By Andreas Koenig
  3092.   v4.06 February 10th 1995 By Andreas Koenig
  3093.   v4.061 February 12th 1995 By Andreas Koenig
  3094.   v4.08 - 4.085  February 14th-21st 1995 by Andreas Koenig
  3095. + v4.086 March 9 1995 by Andy Dougherty
  3096. + v4.09 March 31 1995 by Andreas Koenig
  3097. + v4.091 April 3 1995 by Andy Dougherty
  3098. + v4.092 April 11 1995 by Andreas Koenig
  3099. + v4.093 April 12 1995 by Andy Dougherty
  3100. + v4.094 April 12 1995 by Andy Dougherty
  3101.   
  3102. ! v4.100 May 10 1995 by Andreas Koenig
  3103.   
  3104. ! Broken out Mkbootstrap to make the file smaller and easier to manage,
  3105. ! and to speed up the build process.
  3106.   
  3107. ! Added ExtUtils::Manifest as an extra module that is used to streamline
  3108. ! distributions. (See pod section I<distribution support>).
  3109.   
  3110. ! Added a VERSION_SYM macro, that is derived from VERSION but all C<\W>
  3111. ! characters replaced by an underscore.
  3112.   
  3113. ! Moved the whole documentation below __END__ for easier maintanance.
  3114.   
  3115. ! linkext =E<gt> { LINKTYPE =E<gt> '' } should work now as expected.
  3116.   
  3117. ! Rechecked the use of INST_LIB, INST_ARCHLIB, and INST_EXE from the
  3118. ! perspective of an AFS user (thanks to Rudolph T Maceyko for the
  3119. ! hint). With full backward compatiblity it is now possible, to set
  3120. ! INSTALLPRIVLIB, INSTALLARCHLIB, and INSTALLBIN either with 'perl
  3121. ! Makefile.PL' or with 'make install'. A bare 'make' ignores these
  3122. ! settings.  The effect of this change is that it is no longer
  3123. ! recommended to set the INST_* attributes directly, although it doesn't
  3124. ! hurt, if they do so. The PASTHRU variables (now PASTHRU1 and PASTHRU2)
  3125. ! are fully aware of their duty: the INST_* attributes are only
  3126. ! propagated to runsubdirpl, not to 'cd subdir && make config' and 'cd
  3127. ! subdir && make all'.
  3128.   
  3129. ! Included Tim's "Unable to locate Perl library" patch.
  3130.   
  3131. ! Eliminated any excess of spaces in the $old/$new comparison in
  3132. ! const_cccmd().
  3133.   
  3134. ! Added a prompt function with usage $answer = prompt $message, $default.
  3135.   
  3136. ! Included Tim's patch that searches for perl5 and perl$] as well as
  3137. ! perl and miniperl.
  3138.   
  3139. ! Added .NO_PARALLEL for the time until I have a multiple cpu machine
  3140. ! myself :)
  3141.   
  3142. ! Introduced a macro() subroutine. WriteMakefile("macro" =E<gt> { FOO
  3143. ! =E<gt> BAR }) defines the macro FOO = BAR in the generated Makefile.
  3144.   
  3145. ! Rolled in Tim's patch for needs_linking.
  3146.   
  3147. ! writedoc now tries to be less clever. It was trying to determine, if a
  3148. ! perllocal.pod had to be created or appended to. As we have now the
  3149. ! possibility, that INSTALLARCHLIB is determined at make's runtime, we
  3150. ! cannot do this anymore. We append to that file in any case.
  3151.   
  3152. ! Added Kenneth's pod installation patch.
  3153.   
  3154. ! v4.110 May 19 1995 by Andreas Koenig
  3155.   
  3156. ! =head1 NEW in 4.11
  3157.   
  3158. ! MANIFEST.SKIP now contains only regular expressions. RCS directories
  3159. ! are no longer skipped by default, as this may be configured in the
  3160. ! SKIP file.
  3161.   
  3162. ! The manifest target now does no realclean anymore.
  3163.   
  3164. ! I_PERL_LIBS depreciated (no longer used). (unless you speak up, of
  3165. ! course)
  3166.   
  3167. ! I could not justify that we rebuild the Makefile when MakeMaker has
  3168. ! changed (as Kenneth suggested). If this is really a strong desire,
  3169. ! please convince me. But a minor change of the MakeMaker should not
  3170. ! trigger a 60 minutes rebuild of Tk, IMO.
  3171.   
  3172. ! Broken out extliblist into the new module ExtUtils::Liblist. Should
  3173. ! help extension writers for their own Configure scripts. The breaking
  3174. ! into pieces should be done now, I suppose.
  3175.   
  3176. ! Added an (experimenta!!) uninstall target that works with a
  3177. ! packlist. AutoSplit files are not yet in the packlist. This needs a
  3178. ! patch to AutoSplit, doesn't it? The packlist file is installed in
  3179. ! INST_ARCHAUTODIR/.packlist. It doesn't have means to decide, if a file
  3180. ! is architecture dependent or not, we just collect as much as we can
  3181. ! get. make -n recommended before actually executing. (I leave this
  3182. ! target undocumented in the pod section). Suggestions welcome!
  3183.   
  3184. ! Added basic chmod support. Nothing spectacular. *.so and *.a files get
  3185. ! permission 755, because I seem to recall, that some systems need
  3186. ! execute permissions in some weird constellations. The rest becomes
  3187. ! 644. What else do we need to make this flexible?
  3188.   
  3189. ! Then I took Tim's word serious: no bloat. No turning all packages into
  3190. ! perl scripts. Leaving shar, tar, uu be what they are... Sorry,
  3191. ! Kenneth, we still have to convince Larry that a growing MakeMaker
  3192. ! makes sense :)
  3193.   
  3194. ! Added an extra check whenever they install below the perl source tree:
  3195. ! is this extension a standard extension? If it is, everything behaves
  3196. ! as we are used to. If it is not, the three INST_ macros are set to
  3197. ! ./blib, and they get a warning that this extension has to be
  3198. ! installed manually with 'make install'.
  3199.   
  3200. ! Added a warning for targets that have a colon or a hashmark within
  3201. ! their names, because most make(1)s will not be able to process them.
  3202.   
  3203. ! Applied Hallvard's patch to ~user evaluation for cases where user does
  3204. ! not exist.
  3205.   
  3206. ! Added a ci target that checks in all files from the MANIFEST into rcs.
  3207.   
  3208. ! =head1 new in 4.12/4.13
  3209.   
  3210. ! "Please notify perl5-porters" message is now accompanied by
  3211. ! Config::myconfig().
  3212.   
  3213. ! (Manifest.pm) Change delimiter for the evaluation of the regexes from
  3214. ! MANIFEST.SKIP to from "!" to "/". I had overlooked the fact, that ! no
  3215. ! has a meaning in regular expressions.
  3216.   
  3217. ! Disabled the new logic that prevents non-standard extensions from
  3218. ! writing to PERL_SRC/lib to give Andy room for 5.001f.
  3219.   
  3220. ! Added a Version_check target that calls MakeMaker for a simple Version
  3221. ! control function on every invocation of 'make' in the future. Doesn't
  3222. ! have an effect currently.
  3223.   
  3224. ! Target dist is still defaulting to tardist, but the level of
  3225. ! indirection has changed. The Makefile macro DIST_DEFAULT takes it's
  3226. ! place. This allows me to make dist dependent from whatever I intend as
  3227. ! my standard distribution.
  3228.   
  3229. ! Made sure that INST_EXE is created for extensions that need it.
  3230.   
  3231. ! 4.13 is just a cleanup/documentation patch. And it adds a MakeMaker FAQ :)
  3232.   
  3233. ! =head v4.14 June 5, 1995, by Andreas Koenig
  3234.   
  3235. ! Reintroduces the LD_RUN_PATH macro. LD_RUN_PATH is passed as an
  3236. ! environment variable to the ld run. It is needed on Sun OS, and does
  3237. ! no harm on other systems. It is a colon seperated list of the
  3238. ! directories in LDLOADLIBS.
  3239.   
  3240. ! =head v4.15 June 6, 1995, by Andreas Koenig
  3241.   
  3242. ! Add -I$(PERL_ARCHLIB) -I$(PERL_LIB) to calls to xsubpp.
  3243.   
  3244. ! =head1 TODO
  3245.   
  3246.   Needs more complete documentation.
  3247.   
  3248. ! Add a C<html:> target when there has been found a general solution to
  3249.   installing html files.
  3250.   
  3251.   Add a FLAVOR variable that makes it easier to build debugging,
  3252. ! embedded or multiplicity perls. Currently the easiest way to produce a
  3253. ! debugging perl seems to be (after haveing built perl):
  3254. !     make clobber
  3255. !     ./Configure -D"archname=IP22-irix-d" -des
  3256. !     make perllib=libperld.a
  3257. !     make test perllib=libperld.a
  3258. !     mv /usr/local/bin/perl /usr/local/bin/perl/O_perl5.001e
  3259. !     make install perllib=libperld.a
  3260. !     cp /usr/local/bin/perl/O_perl5.001e /usr/local/bin/perl
  3261. ! It would be nice, if the Configure step could be dropped. Also nice, but 
  3262. ! maybe expensive, if 'make clobber' wouldn't be needed.
  3263. ! 
  3264. ! The uninstall target has to be completed, it's just a sketch.
  3265. ! 
  3266. ! Reconsider Makefile macros. The output of macro() should be the last
  3267. ! before PASTHRU and none should come after that -- tough work.
  3268. ! 
  3269. ! Think about Nick's desire, that the pTk subdirectory needs a special
  3270. ! treatment.
  3271. ! 
  3272. ! Find a way to have multiple MYEXTLIB archive files combined into
  3273. ! one. Actually I need some scenario, where this problem can be
  3274. ! illustrated. I currently don't see the problem.
  3275. ! 
  3276. ! Test if .NOPARALLEL can be omitted.
  3277. ! 
  3278. ! Don't let extensions write to PERL_SRC/lib anymore, build perl from
  3279. ! the extensions found below ext, run 'make test' and 'make install' on
  3280. ! each extension (giving room for letting them fail). Move some of the
  3281. ! tests from t/lib/* to the libraries.
  3282. ! 
  3283. ! Streamline the production of a new perl binary on systems that DO have
  3284. ! dynamic loading (especially make test needs further support, as test
  3285. ! most probably needs the new binary).
  3286.   
  3287.   =cut
  3288. Index: lib/ExtUtils/Manifest.pm
  3289. *** /dev/null    Mon Jun  5 17:45:32 1995
  3290. --- perl5.001k/lib/ExtUtils/Manifest.pm    Mon Jun  5 17:01:52 1995
  3291. ***************
  3292. *** 0 ****
  3293. --- 1,264 ----
  3294. + package ExtUtils::Manifest;
  3295. + 
  3296. + =head1 NAME
  3297. + 
  3298. + ExtUtils::Manifest - utilities to write and check a MANIFEST file
  3299. + 
  3300. + =head1 SYNOPSIS
  3301. + 
  3302. + C<require ExtUtils::Manifest;>
  3303. + 
  3304. + C<ExtUtils::Manifest::mkmanifest;>
  3305. + 
  3306. + C<ExtUtils::Manifest::manicheck;>
  3307. + 
  3308. + C<ExtUtils::Manifest::filecheck;>
  3309. + 
  3310. + C<ExtUtils::Manifest::fullcheck;>
  3311. + 
  3312. + C<ExtUtils::Manifest::maniread($file);>
  3313. + 
  3314. + C<ExtUtils::Manifest::manicopy($read,$target);>
  3315. + 
  3316. + =head1 DESCRIPTION
  3317. + 
  3318. + Mkmanifest() writes all files in and below the current directory to a
  3319. + file named C<MANIFEST> in the current directory. It works similar to
  3320. + 
  3321. +     find . -print
  3322. + 
  3323. + but in doing so checks each line in an existing C<MANIFEST> file and
  3324. + includes any comments that are found in the existing C<MANIFEST> file
  3325. + in the new one. Anything between white space and an end of line within
  3326. + a C<MANIFEST> file is considered to be a comment. Filenames and
  3327. + comments are seperated by one or more TAB characters in the
  3328. + output. All files that match any regular expression in a file
  3329. + C<MANIFEST.SKIP> (if such a file exists) are ignored.
  3330. + 
  3331. + Manicheck() checks if all the files within a C<MANIFEST> in the current
  3332. + directory really do exist.
  3333. + 
  3334. + Filecheck() finds files below the current directory that are not
  3335. + mentioned in the C<MANIFEST> file. An optional file C<MANIFEST.SKIP>
  3336. + will be consulted. Any file matching a regular expression in such a
  3337. + file will not be reported as missing in the C<MANIFEST> file.
  3338. + 
  3339. + Fullcheck() does both a manicheck() and a filecheck().
  3340. + 
  3341. + Maniread($file) reads a named C<MANIFEST> file (defaults to
  3342. + C<MANIFEST> in the current directory) and returns a HASH reference
  3343. + with files being the keys and comments being the values of the HASH.
  3344. + 
  3345. + I<Manicopy($read,$target)> copies the files that are the keys in the
  3346. + HASH I<%$read> to the named target directory. The HASH reference
  3347. + I<$read> is typically returned by the maniread() function. This
  3348. + function is useful for producing a directory tree identical to the
  3349. + intended distribution tree.
  3350. + 
  3351. + =head1 MANIFEST.SKIP
  3352. + 
  3353. + The file MANIFEST.SKIP may contain regular expressions of files that
  3354. + should be ignored by mkmanifest() and filecheck(). The regular
  3355. + expressions should appear one on each line. A typical example:
  3356. + 
  3357. +     \bRCS\b
  3358. +     ^MANIFEST\.
  3359. +     ^Makefile$
  3360. +     ~$
  3361. +     \.html$
  3362. +     \.old$
  3363. +     ^blib/
  3364. +     ^MakeMaker-\d
  3365. + 
  3366. + =head1 EXPORT_OK
  3367. + 
  3368. + C<&mkmanifest>, C<&manicheck>, C<&filecheck>, C<&fullcheck>,
  3369. + C<&maniread>, and C<&manicopy> are exportable.
  3370. + 
  3371. + =head1 DIAGNOSTICS
  3372. + 
  3373. + All diagnostic output is sent to C<STDERR>.
  3374. + 
  3375. + =over
  3376. +     
  3377. + =item C<Not in MANIFEST:> I<file>
  3378. + is reported if a file is found, that is missing in the C<MANIFEST>
  3379. + file which is excluded by a regular expression in the file
  3380. + C<MANIFEST.SKIP>.
  3381. + 
  3382. + =item C<No such file:> I<file>
  3383. + is reported if a file mentioned in a C<MANIFEST> file does not
  3384. + exist.
  3385. + 
  3386. + =item C<MANIFEST:> I<$!>
  3387. + is reported if C<MANIFEST> could not be opened.
  3388. + 
  3389. + =item C<Added to MANIFEST:> I<file>
  3390. + is reported by mkmanifest() if $Verbose is set and a file is added
  3391. + to MANIFEST. $Verbose is set to 1 by default.
  3392. + 
  3393. + =back
  3394. + 
  3395. + =head1 AUTHOR
  3396. + 
  3397. + Andreas Koenig F<E<lt>koenig@franz.ww.TU-Berlin.DEE<gt>>
  3398. + 
  3399. + =cut
  3400. + 
  3401. + require Exporter;
  3402. + @ISA=('Exporter');
  3403. + @EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck', 
  3404. +           'maniread', 'manicopy');
  3405. + 
  3406. + use File::Find;
  3407. + use Carp;
  3408. + 
  3409. + $Debug = 0;
  3410. + $Verbose = 1;
  3411. + 
  3412. + ($Version) = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
  3413. + $Version = $Version; #avoid warning
  3414. + 
  3415. + $Quiet = 0;
  3416. + 
  3417. + sub mkmanifest {
  3418. +     my $manimiss = 0;
  3419. +     my $read = maniread() or $manimiss++;
  3420. +     $read = {} if $manimiss;
  3421. +     my $matches = _maniskip();
  3422. +     my $found = manifind();
  3423. +     my($key,$val,$file,%all);
  3424. +     my %all = (%$found, %$read);
  3425. +     local *M;
  3426. +     rename "MANIFEST", "MANIFEST.bak" unless $manimiss;
  3427. +     open M, ">MANIFEST" or die "Could not open MANIFEST: $!";
  3428. +     foreach $file (sort keys %all) {
  3429. +     next if &$matches($file);
  3430. +     if ($Verbose){
  3431. +         warn "Added to MANIFEST: $file\n" unless exists $read->{$file};
  3432. +     }
  3433. +     my $tabs = (5 - (length($file)+1)/8);
  3434. +     $tabs = 1 if $tabs < 1;
  3435. +     $tabs = 0 unless $all{$file};
  3436. +     print M $file, "\t" x $tabs, $all{$file}, "\n";
  3437. +     }
  3438. +     close M;
  3439. + }
  3440. + 
  3441. + sub manifind {
  3442. +     local $found = {};
  3443. +     find(sub {return if -d $_;
  3444. +           (my $name = $File::Find::name) =~ s|./||;
  3445. +           warn "Debug: diskfile $name\n" if $Debug;
  3446. +           $found->{$name} = "";}, ".");
  3447. +     $found;
  3448. + }
  3449. + 
  3450. + sub fullcheck {
  3451. +     _manicheck(3);
  3452. + }
  3453. + 
  3454. + sub manicheck {
  3455. +     return @{(_manicheck(1))[0]};
  3456. + }
  3457. + 
  3458. + sub filecheck {
  3459. +     return @{(_manicheck(2))[1]};
  3460. + }
  3461. + 
  3462. + sub _manicheck {
  3463. +     my($arg) = @_;
  3464. +     my $read = maniread();
  3465. +     my $file;
  3466. +     my(@missfile,@missentry);
  3467. +     if ($arg & 1){
  3468. +     my $found = manifind();
  3469. +     foreach $file (sort keys %$read){
  3470. +         warn "Debug: manicheck checking from MANIFEST $file\n" if $Debug;
  3471. +         unless ( exists $found->{$file} ) {
  3472. +           warn "No such file: $file\n" unless $Quiet;
  3473. +           push @missfile, $file;
  3474. +         }
  3475. +     }
  3476. +     }
  3477. +     if ($arg & 2){
  3478. +     $read ||= {};
  3479. +     my $matches = _maniskip();
  3480. +     my $found = manifind();
  3481. +     foreach $file (sort keys %$found){
  3482. +         next if &$matches($file);
  3483. +         warn "Debug: manicheck checking from disk $file\n" if $Debug;
  3484. +         unless ( exists $read->{$file} ) {
  3485. +           warn "Not in MANIFEST: $file\n" unless $Quiet;
  3486. +           push @missentry, $file;
  3487. +         }
  3488. +     }
  3489. +     }
  3490. +     (\@missfile,\@missentry);
  3491. + }
  3492. + 
  3493. + sub maniread {
  3494. +     my ($mfile) = @_;
  3495. +     $mfile = "MANIFEST" unless defined $mfile;
  3496. +     my $read = {};
  3497. +     local *M;
  3498. +     unless (open M, $mfile){
  3499. +     warn "$mfile: $!";
  3500. +     return $read;
  3501. +     }
  3502. +     while (<M>){
  3503. +     chomp;
  3504. +     /^(\S+)\s*(.*)/ and $read->{$1}=$2;
  3505. +     }
  3506. +     close M;
  3507. +     $read;
  3508. + }
  3509. + 
  3510. + # returns an anonymous sub that decides if an argument matches
  3511. + sub _maniskip {
  3512. +     my ($mfile) = @_;
  3513. +     my $matches = sub {0};
  3514. +     my @skip ;
  3515. +     my $mfile = "MANIFEST.SKIP" unless defined $mfile;
  3516. +     local *M;
  3517. +     return $matches unless -f $mfile;
  3518. +     open M, $mfile or return $matches;
  3519. +     while (<M>){
  3520. +     chomp;
  3521. +     next if /^\s*$/;
  3522. +     push @skip, $_;
  3523. +     }
  3524. +     close M;
  3525. +     my $sub = "\$matches = "
  3526. +     . "sub { my(\$arg)=\@_; return 1 if "
  3527. +     . join (" || ",  (map {s!/!\\/!g; "\$arg =~ m/$_/o "} @skip), 0)
  3528. +     . " }";
  3529. +     eval $sub;
  3530. +     print "Debug: $sub\n" if $Debug;
  3531. +     $matches;
  3532. + }
  3533. + 
  3534. + sub manicopy {
  3535. +     my($read,$target)=@_;
  3536. +     croak "manicopy() called without target argument" unless defined $target;
  3537. +     require File::Path;
  3538. +     require File::Basename;
  3539. +     my(%dirs,$file);
  3540. +     foreach $file (keys %$read){
  3541. +     my $dir = File::Basename::dirname($file);
  3542. +     File::Path::mkpath("$target/$dir");
  3543. +     cp_if_diff($file, "$target/$file");
  3544. +     }
  3545. + }
  3546. + 
  3547. + sub cp_if_diff {
  3548. +     my($from,$to)=@_;
  3549. +     -f $from || carp "$0: $from not found";
  3550. +     system "cmp", "-s", $from, $to;
  3551. +     if ($?) {
  3552. +     unlink($to);   # In case we don't have write permissions.
  3553. +     (system 'cp', $from, $to) == 0 or confess "system 'cp': $!";
  3554. +     }
  3555. + }
  3556. + 
  3557. + 1;
  3558. Index: lib/ExtUtils/Mkbootstrap.pm
  3559. *** /dev/null    Mon Jun  5 17:45:32 1995
  3560. --- perl5.001k/lib/ExtUtils/Mkbootstrap.pm    Mon Jun  5 17:01:53 1995
  3561. ***************
  3562. *** 0 ****
  3563. --- 1,95 ----
  3564. + package ExtUtils::Mkbootstrap;
  3565. + use Config;
  3566. + use Exporter;
  3567. + @ISA=('Exporter');
  3568. + @EXPORT='&Mkbootstrap';
  3569. + $Version=2.0; # just to start somewhere
  3570. + 
  3571. + sub Mkbootstrap {
  3572. + 
  3573. + =head1 USEFUL SUBROUTINES
  3574. + 
  3575. + =head2 Mkbootstrap()
  3576. + 
  3577. + Make a bootstrap file for use by this system's DynaLoader.  It
  3578. + typically gets called from an extension Makefile.
  3579. + 
  3580. + There is no C<*.bs> file supplied with the extension. Instead a
  3581. + C<*_BS> file which has code for the special cases, like posix for
  3582. + berkeley db on the NeXT.
  3583. + 
  3584. + This file will get parsed, and produce a maybe empty
  3585. + C<@DynaLoader::dl_resolve_using> array for the current architecture.
  3586. + That will be extended by $BSLOADLIBS, which was computed by Andy's
  3587. + extliblist script. If this array still is empty, we do nothing, else
  3588. + we write a .bs file with an C<@DynaLoader::dl_resolve_using> array, but
  3589. + without any C<if>s, because there is no longer a need to deal with
  3590. + special cases.
  3591. + 
  3592. + The C<*_BS> file can put some code into the generated C<*.bs> file by placing
  3593. + it in C<$bscode>. This is a handy 'escape' mechanism that may prove
  3594. + useful in complex situations.
  3595. + 
  3596. + If @DynaLoader::dl_resolve_using contains C<-L*> or C<-l*> entries then
  3597. + Mkbootstrap will automatically add a dl_findfile() call to the
  3598. + generated C<*.bs> file.
  3599. + 
  3600. + =cut
  3601. + 
  3602. +     my($baseext, @bsloadlibs)=@_;
  3603. + 
  3604. +     @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs
  3605. + 
  3606. +     print STDOUT "    bsloadlibs=@bsloadlibs\n" if $Verbose;
  3607. + 
  3608. +     # We need DynaLoader here because we and/or the *_BS file may
  3609. +     # call dl_findfile(). We don't say `use' here because when
  3610. +     # first building perl extensions the DynaLoader will not have
  3611. +     # been built when MakeMaker gets first used.
  3612. +     require DynaLoader;
  3613. + 
  3614. +     rename "$baseext.bs", "$baseext.bso"
  3615. +       if -s "$baseext.bs";
  3616. + 
  3617. +     if (-f "${baseext}_BS"){
  3618. +     $_ = "${baseext}_BS";
  3619. +     package DynaLoader; # execute code as if in DynaLoader
  3620. +     local($osname, $dlsrc) = (); # avoid warnings
  3621. +     ($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)};
  3622. +     $bscode = "";
  3623. +     unshift @INC, ".";
  3624. +     require $_;
  3625. +     shift @INC;
  3626. +     }
  3627. + 
  3628. +     if ($Config{'dlsrc'} =~ /^dl_dld/){
  3629. +     package DynaLoader;
  3630. +     push(@dl_resolve_using, dl_findfile('-lc'));
  3631. +     }
  3632. + 
  3633. +     my(@all) = (@bsloadlibs, @DynaLoader::dl_resolve_using);
  3634. +     my($method) = '';
  3635. +     if (@all){
  3636. +     open BS, ">$baseext.bs"
  3637. +         or die "Unable to open $baseext.bs: $!";
  3638. +     print STDOUT "Writing $baseext.bs\n";
  3639. +     print STDOUT "    containing: @all" if $Verbose;
  3640. +     print BS "# $baseext DynaLoader bootstrap file for $Config{'osname'} architecture.\n";
  3641. +     print BS "# Do not edit this file, changes will be lost.\n";
  3642. +     print BS "# This file was automatically generated by the\n";
  3643. +     print BS "# Mkbootstrap routine in ExtUtils::Mkbootstrap (v$Version).\n";
  3644. +     print BS "\@DynaLoader::dl_resolve_using = ";
  3645. +     # If @all contains names in the form -lxxx or -Lxxx then it's asking for
  3646. +     # runtime library location so we automatically add a call to dl_findfile()
  3647. +     if (" @all" =~ m/ -[lLR]/){
  3648. +         print BS "  dl_findfile(qw(\n  @all\n  ));\n";
  3649. +     }else{
  3650. +         print BS "  qw(@all);\n";
  3651. +     }
  3652. +     # write extra code if *_BS says so
  3653. +     print BS $DynaLoader::bscode if $DynaLoader::bscode;
  3654. +     print BS "\n1;\n";
  3655. +     close BS;
  3656. +     }
  3657. + }
  3658. + 
  3659.  
  3660.  
  3661. End of patch.
  3662.