Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1988 lines
59 KiB

  1. BEGIN {require 5.002;} # MakeMaker 5.17 was the last MakeMaker that was compatible with perl5.001m
  2. package ExtUtils::MakeMaker;
  3. $VERSION = "5.4302";
  4. $Version_OK = "5.17"; # Makefiles older than $Version_OK will die
  5. # (Will be checked from MakeMaker version 4.13 onwards)
  6. ($Revision = substr(q$Revision: 1.222 $, 10)) =~ s/\s+$//;
  7. require Exporter;
  8. use Config;
  9. use Carp ();
  10. #use FileHandle ();
  11. use vars qw(
  12. @ISA @EXPORT @EXPORT_OK $AUTOLOAD
  13. $ISA_TTY $Is_Mac $Is_OS2 $Is_VMS $Revision $Setup_done
  14. $VERSION $Verbose $Version_OK %Config %Keep_after_flush
  15. %MM_Sections %Prepend_dot_dot %Recognized_Att_Keys
  16. @Get_from_Config @MM_Sections @Overridable @Parent
  17. );
  18. # use strict;
  19. # &DynaLoader::mod2fname should be available to miniperl, thus
  20. # should be a pseudo-builtin (cmp. os2.c).
  21. #eval {require DynaLoader;};
  22. #
  23. # Set up the inheritance before we pull in the MM_* packages, because they
  24. # import variables and functions from here
  25. #
  26. @ISA = qw(Exporter);
  27. @EXPORT = qw(&WriteMakefile &writeMakefile $Verbose &prompt);
  28. @EXPORT_OK = qw($VERSION &Version_check &neatvalue &mkbootstrap &mksymlists);
  29. #
  30. # Dummy package MM inherits actual methods from OS-specific
  31. # default packages. We use this intermediate package so
  32. # MY::XYZ->func() can call MM->func() and get the proper
  33. # default routine without having to know under what OS
  34. # it's running.
  35. #
  36. @MM::ISA = qw[ExtUtils::MM_Unix ExtUtils::Liblist ExtUtils::MakeMaker];
  37. #
  38. # Setup dummy package:
  39. # MY exists for overriding methods to be defined within
  40. #
  41. {
  42. package MY;
  43. @MY::ISA = qw(MM);
  44. ### sub AUTOLOAD { use Devel::Symdump; print Devel::Symdump->rnew->as_string; Carp::confess "hey why? $AUTOLOAD" }
  45. package MM;
  46. sub DESTROY {}
  47. }
  48. # "predeclare the package: we only load it via AUTOLOAD
  49. # but we have already mentioned it in @ISA
  50. package ExtUtils::Liblist;
  51. package ExtUtils::MakeMaker;
  52. #
  53. # Now we can pull in the friends
  54. #
  55. $Is_VMS = $^O eq 'VMS';
  56. $Is_OS2 = $^O eq 'os2';
  57. $Is_Mac = $^O eq 'MacOS';
  58. $Is_Win32 = $^O eq 'MSWin32';
  59. require ExtUtils::MM_Unix;
  60. if ($Is_VMS) {
  61. require ExtUtils::MM_VMS;
  62. require VMS::Filespec; # is a noop as long as we require it within MM_VMS
  63. }
  64. if ($Is_OS2) {
  65. require ExtUtils::MM_OS2;
  66. }
  67. if ($Is_Mac) {
  68. require ExtUtils::MM_Mac;
  69. }
  70. if ($Is_Win32) {
  71. require ExtUtils::MM_Win32;
  72. }
  73. # The SelfLoader would bring a lot of overhead for MakeMaker, because
  74. # we know for sure we will use most of the autoloaded functions once
  75. # we have to use one of them. So we write our own loader
  76. sub AUTOLOAD {
  77. my $code;
  78. if (defined fileno(DATA)) {
  79. my $fh = select DATA;
  80. my $o = $/; # For future reads from the file.
  81. $/ = "\n__END__\n";
  82. $code = <DATA>;
  83. $/ = $o;
  84. select $fh;
  85. close DATA;
  86. eval $code;
  87. if ($@) {
  88. $@ =~ s/ at .*\n//;
  89. Carp::croak $@;
  90. }
  91. } else {
  92. warn "AUTOLOAD called unexpectedly for $AUTOLOAD";
  93. }
  94. defined(&$AUTOLOAD) or die "Myloader inconsistency error";
  95. goto &$AUTOLOAD;
  96. }
  97. # The only subroutine we do not SelfLoad is Version_Check because it's
  98. # called so often. Loading this minimum still requires 1.2 secs on my
  99. # Indy :-(
  100. sub Version_check {
  101. my($checkversion) = @_;
  102. die "Your Makefile was built with ExtUtils::MakeMaker v $checkversion.
  103. Current Version is $ExtUtils::MakeMaker::VERSION. There have been considerable
  104. changes in the meantime.
  105. Please rerun 'perl Makefile.PL' to regenerate the Makefile.\n"
  106. if $checkversion < $Version_OK;
  107. printf STDOUT "%s %s %s %s.\n", "Makefile built with ExtUtils::MakeMaker v",
  108. $checkversion, "Current Version is", $VERSION
  109. unless $checkversion == $VERSION;
  110. }
  111. sub warnhandler {
  112. $_[0] =~ /^Use of uninitialized value/ && return;
  113. $_[0] =~ /used only once/ && return;
  114. $_[0] =~ /^Subroutine\s+[\w:]+\s+redefined/ && return;
  115. warn @_;
  116. }
  117. sub ExtUtils::MakeMaker::eval_in_subdirs ;
  118. sub ExtUtils::MakeMaker::eval_in_x ;
  119. sub ExtUtils::MakeMaker::full_setup ;
  120. sub ExtUtils::MakeMaker::writeMakefile ;
  121. sub ExtUtils::MakeMaker::new ;
  122. sub ExtUtils::MakeMaker::check_manifest ;
  123. sub ExtUtils::MakeMaker::parse_args ;
  124. sub ExtUtils::MakeMaker::check_hints ;
  125. sub ExtUtils::MakeMaker::mv_all_methods ;
  126. sub ExtUtils::MakeMaker::skipcheck ;
  127. sub ExtUtils::MakeMaker::flush ;
  128. sub ExtUtils::MakeMaker::mkbootstrap ;
  129. sub ExtUtils::MakeMaker::mksymlists ;
  130. sub ExtUtils::MakeMaker::neatvalue ;
  131. sub ExtUtils::MakeMaker::selfdocument ;
  132. sub ExtUtils::MakeMaker::WriteMakefile ;
  133. sub ExtUtils::MakeMaker::prompt ($;$) ;
  134. 1;
  135. __DATA__
  136. package ExtUtils::MakeMaker;
  137. sub WriteMakefile {
  138. Carp::croak "WriteMakefile: Need even number of args" if @_ % 2;
  139. local $SIG{__WARN__} = \&warnhandler;
  140. unless ($Setup_done++){
  141. full_setup();
  142. undef &ExtUtils::MakeMaker::full_setup; #safe memory
  143. }
  144. my %att = @_;
  145. MM->new(\%att)->flush;
  146. }
  147. sub prompt ($;$) {
  148. my($mess,$def)=@_;
  149. $ISA_TTY = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ; # Pipe?
  150. Carp::confess("prompt function called without an argument") unless defined $mess;
  151. my $dispdef = defined $def ? "[$def] " : " ";
  152. $def = defined $def ? $def : "";
  153. my $ans;
  154. local $|=1;
  155. print "$mess $dispdef";
  156. if ($ISA_TTY) {
  157. chomp($ans = <STDIN>);
  158. } else {
  159. print "$def\n";
  160. }
  161. return ($ans ne '') ? $ans : $def;
  162. }
  163. sub eval_in_subdirs {
  164. my($self) = @_;
  165. my($dir);
  166. use Cwd 'cwd';
  167. my $pwd = cwd();
  168. foreach $dir (@{$self->{DIR}}){
  169. my($abs) = $self->catdir($pwd,$dir);
  170. $self->eval_in_x($abs);
  171. }
  172. chdir $pwd;
  173. }
  174. sub eval_in_x {
  175. my($self,$dir) = @_;
  176. package main;
  177. chdir $dir or Carp::carp("Couldn't change to directory $dir: $!");
  178. # use FileHandle ();
  179. # my $fh = new FileHandle;
  180. # $fh->open("Makefile.PL") or Carp::carp("Couldn't open Makefile.PL in $dir");
  181. local *FH;
  182. open(FH,"Makefile.PL") or Carp::carp("Couldn't open Makefile.PL in $dir");
  183. # my $eval = join "", <$fh>;
  184. my $eval = join "", <FH>;
  185. # $fh->close;
  186. close FH;
  187. eval $eval;
  188. if ($@) {
  189. # if ($@ =~ /prerequisites/) {
  190. # die "MakeMaker WARNING: $@";
  191. # } else {
  192. # warn "WARNING from evaluation of $dir/Makefile.PL: $@";
  193. # }
  194. warn "WARNING from evaluation of $dir/Makefile.PL: $@";
  195. }
  196. }
  197. sub full_setup {
  198. $Verbose ||= 0;
  199. $^W=1;
  200. # package name for the classes into which the first object will be blessed
  201. $PACKNAME = "PACK000";
  202. @Attrib_help = qw/
  203. AUTHOR ABSTRACT ABSTRACT_FROM BINARY_LOCATION
  204. C CAPI CCFLAGS CONFIG CONFIGURE DEFINE DIR DISTNAME DL_FUNCS DL_VARS
  205. EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE FULLPERL FUNCLIST H IMPORTS
  206. INC INCLUDE_EXT INSTALLARCHLIB INSTALLBIN INSTALLDIRS INSTALLMAN1DIR
  207. INSTALLMAN3DIR INSTALLPRIVLIB INSTALLSCRIPT INSTALLSITEARCH
  208. INSTALLSITELIB INST_ARCHLIB INST_BIN INST_EXE INST_LIB
  209. INST_MAN1DIR INST_MAN3DIR INST_SCRIPT LDFROM LIB LIBPERL_A LIBS
  210. LINKTYPE MAKEAPERL MAKEFILE MAN1PODS MAN3PODS MAP_TARGET MYEXTLIB
  211. NAME NEEDS_LINKING NOECHO NORECURS NO_VC OBJECT OPTIMIZE PERL PERLMAINCC
  212. PERL_ARCHLIB PERL_LIB PERL_SRC PERM_RW PERM_RWX
  213. PL_FILES PM PMLIBDIRS PPM_INSTALL_EXEC PPM_INSTALL_SCRIPT PREFIX
  214. PREREQ_PM SKIP TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG
  215. XS_VERSION clean depend dist dynamic_lib linkext macro realclean
  216. tool_autosplit
  217. /;
  218. # IMPORTS is used under OS/2 and Win32
  219. # @Overridable is close to @MM_Sections but not identical. The
  220. # order is important. Many subroutines declare macros. These
  221. # depend on each other. Let's try to collect the macros up front,
  222. # then pasthru, then the rules.
  223. # MM_Sections are the sections we have to call explicitly
  224. # in Overridable we have subroutines that are used indirectly
  225. @MM_Sections =
  226. qw(
  227. post_initialize const_config constants tool_autosplit tool_xsubpp
  228. tools_other dist macro depend cflags const_loadlibs const_cccmd
  229. post_constants
  230. pasthru
  231. c_o xs_c xs_o top_targets linkext dlsyms dynamic dynamic_bs
  232. dynamic_lib static static_lib manifypods processPL installbin subdirs
  233. clean realclean dist_basics dist_core dist_dir dist_test dist_ci
  234. install force perldepend makefile staticmake test ppd
  235. ); # loses section ordering
  236. @Overridable = @MM_Sections;
  237. push @Overridable, qw[
  238. dir_target libscan makeaperl needs_linking perm_rw perm_rwx
  239. subdir_x test_via_harness test_via_script
  240. ];
  241. push @MM_Sections, qw[
  242. pm_to_blib selfdocument
  243. ];
  244. # Postamble needs to be the last that was always the case
  245. push @MM_Sections, "postamble";
  246. push @Overridable, "postamble";
  247. # All sections are valid keys.
  248. @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections;
  249. # we will use all these variables in the Makefile
  250. @Get_from_Config =
  251. qw(
  252. ar cc cccdlflags ccdlflags dlext dlsrc ld lddlflags ldflags libc
  253. lib_ext obj_ext osname osvers ranlib sitelibexp sitearchexp so exe_ext
  254. );
  255. my $item;
  256. foreach $item (@Attrib_help){
  257. $Recognized_Att_Keys{$item} = 1;
  258. }
  259. foreach $item (@Get_from_Config) {
  260. $Recognized_Att_Keys{uc $item} = $Config{$item};
  261. print "Attribute '\U$item\E' => '$Config{$item}'\n"
  262. if ($Verbose >= 2);
  263. }
  264. #
  265. # When we eval a Makefile.PL in a subdirectory, that one will ask
  266. # us (the parent) for the values and will prepend "..", so that
  267. # all files to be installed end up below OUR ./blib
  268. #
  269. %Prepend_dot_dot =
  270. qw(
  271. INST_BIN 1 INST_EXE 1 INST_LIB 1 INST_ARCHLIB 1 INST_SCRIPT
  272. 1 MAP_TARGET 1 INST_MAN1DIR 1 INST_MAN3DIR 1 PERL_SRC 1
  273. PERL 1 FULLPERL 1
  274. );
  275. my @keep = qw/
  276. NEEDS_LINKING HAS_LINK_CODE
  277. /;
  278. @Keep_after_flush{@keep} = (1) x @keep;
  279. }
  280. sub writeMakefile {
  281. die <<END;
  282. The extension you are trying to build apparently is rather old and
  283. most probably outdated. We detect that from the fact, that a
  284. subroutine "writeMakefile" is called, and this subroutine is not
  285. supported anymore since about October 1994.
  286. Please contact the author or look into CPAN (details about CPAN can be
  287. found in the FAQ and at http:/www.perl.com) for a more recent version
  288. of the extension. If you're really desperate, you can try to change
  289. the subroutine name from writeMakefile to WriteMakefile and rerun
  290. 'perl Makefile.PL', but you're most probably left alone, when you do
  291. so.
  292. The MakeMaker team
  293. END
  294. }
  295. sub ExtUtils::MakeMaker::new {
  296. my($class,$self) = @_;
  297. my($key);
  298. print STDOUT "MakeMaker (v$VERSION)\n" if $Verbose;
  299. if (-f "MANIFEST" && ! -f "Makefile"){
  300. check_manifest();
  301. }
  302. $self = {} unless (defined $self);
  303. check_hints($self);
  304. my(%initial_att) = %$self; # record initial attributes
  305. my($prereq);
  306. foreach $prereq (sort keys %{$self->{PREREQ_PM}}) {
  307. my $eval = "use $prereq $self->{PREREQ_PM}->{$prereq}";
  308. eval $eval;
  309. if ($@){
  310. warn "Warning: prerequisite $prereq $self->{PREREQ_PM}->{$prereq} not found";
  311. # Why is/was this 'delete' here? We need PREREQ_PM later to make PPDs.
  312. # } else {
  313. # delete $self->{PREREQ_PM}{$prereq};
  314. }
  315. }
  316. # if (@unsatisfied){
  317. # unless (defined $ExtUtils::MakeMaker::useCPAN) {
  318. # print qq{MakeMaker WARNING: prerequisites not found (@unsatisfied)
  319. # Please install these modules first and rerun 'perl Makefile.PL'.\n};
  320. # if ($ExtUtils::MakeMaker::hasCPAN) {
  321. # $ExtUtils::MakeMaker::useCPAN = prompt(qq{Should I try to use the CPAN module to fetch them for you?},"yes");
  322. # } else {
  323. # print qq{Hint: You may want to install the CPAN module to autofetch the needed modules\n};
  324. # $ExtUtils::MakeMaker::useCPAN=0;
  325. # }
  326. # }
  327. # if ($ExtUtils::MakeMaker::useCPAN) {
  328. # require CPAN;
  329. # CPAN->import(@unsatisfied);
  330. # } else {
  331. # die qq{prerequisites not found (@unsatisfied)};
  332. # }
  333. # warn qq{WARNING: prerequisites not found (@unsatisfied)};
  334. # }
  335. if (defined $self->{CONFIGURE}) {
  336. if (ref $self->{CONFIGURE} eq 'CODE') {
  337. $self = { %$self, %{&{$self->{CONFIGURE}}}};
  338. } else {
  339. Carp::croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
  340. }
  341. }
  342. # This is for old Makefiles written pre 5.00, will go away
  343. if ( Carp::longmess("") =~ /runsubdirpl/s ){
  344. Carp::carp("WARNING: Please rerun 'perl Makefile.PL' to regenerate your Makefiles\n");
  345. }
  346. my $newclass = ++$PACKNAME;
  347. local @Parent = @Parent; # Protect against non-local exits
  348. {
  349. # no strict;
  350. print "Blessing Object into class [$newclass]\n" if $Verbose>=2;
  351. mv_all_methods("MY",$newclass);
  352. bless $self, $newclass;
  353. push @Parent, $self;
  354. @{"$newclass\:\:ISA"} = 'MM';
  355. }
  356. if (defined $Parent[-2]){
  357. $self->{PARENT} = $Parent[-2];
  358. my $key;
  359. for $key (keys %Prepend_dot_dot) {
  360. next unless defined $self->{PARENT}{$key};
  361. $self->{$key} = $self->{PARENT}{$key};
  362. # PERL and FULLPERL may be command verbs instead of full
  363. # file specifications under VMS. If so, don't turn them
  364. # into a filespec.
  365. $self->{$key} = $self->catdir("..",$self->{$key})
  366. unless $self->file_name_is_absolute($self->{$key})
  367. || ($^O eq 'VMS' and ($key =~ /PERL$/ && $self->{$key} =~ /^[\w\-\$]+$/));
  368. }
  369. if ($self->{PARENT}) {
  370. $self->{PARENT}->{CHILDREN}->{$newclass} = $self;
  371. if (exists $self->{PARENT}->{CAPI}
  372. and not exists $self->{CAPI})
  373. {
  374. # inherit, but only if already unspecified
  375. $self->{CAPI} = $self->{PARENT}->{CAPI};
  376. }
  377. }
  378. } else {
  379. parse_args($self,split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV);
  380. }
  381. $self->{NAME} ||= $self->guess_name;
  382. ($self->{NAME_SYM} = $self->{NAME}) =~ s/\W+/_/g;
  383. $self->init_main();
  384. if (! $self->{PERL_SRC} ) {
  385. my($pthinks) = $self->canonpath($INC{'Config.pm'});
  386. my($cthinks) = $self->catfile($Config{'archlibexp'},'Config.pm');
  387. $pthinks = VMS::Filespec::vmsify($pthinks) if $Is_VMS;
  388. if ($pthinks ne $cthinks &&
  389. !($Is_Win32 and lc($pthinks) eq lc($cthinks))) {
  390. print "Have $pthinks expected $cthinks\n";
  391. if ($Is_Win32) {
  392. $pthinks =~ s![/\\]Config\.pm$!!i; $pthinks =~ s!.*[/\\]!!;
  393. }
  394. else {
  395. $pthinks =~ s!/Config\.pm$!!; $pthinks =~ s!.*/!!;
  396. }
  397. print STDOUT <<END;
  398. Your perl and your Config.pm seem to have different ideas about the architecture
  399. they are running on.
  400. Perl thinks: [$pthinks]
  401. Config says: [$Config{archname}]
  402. This may or may not cause problems. Please check your installation of perl if you
  403. have problems building this extension.
  404. END
  405. }
  406. }
  407. $self->init_dirscan();
  408. $self->init_others();
  409. my($argv) = neatvalue(\@ARGV);
  410. $argv =~ s/^\[/(/;
  411. $argv =~ s/\]$/)/;
  412. push @{$self->{RESULT}}, <<END;
  413. # This Makefile is for the $self->{NAME} extension to perl.
  414. #
  415. # It was generated automatically by MakeMaker version
  416. # $VERSION (Revision: $Revision) from the contents of
  417. # Makefile.PL. Don't edit this file, edit Makefile.PL instead.
  418. #
  419. # ANY CHANGES MADE HERE WILL BE LOST!
  420. #
  421. # MakeMaker ARGV: $argv
  422. #
  423. # MakeMaker Parameters:
  424. END
  425. foreach $key (sort keys %initial_att){
  426. my($v) = neatvalue($initial_att{$key});
  427. $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
  428. $v =~ tr/\n/ /s;
  429. push @{$self->{RESULT}}, "# $key => $v";
  430. }
  431. # turn the SKIP array into a SKIPHASH hash
  432. my (%skip,$skip);
  433. for $skip (@{$self->{SKIP} || []}) {
  434. $self->{SKIPHASH}{$skip} = 1;
  435. }
  436. delete $self->{SKIP}; # free memory
  437. if ($self->{PARENT}) {
  438. for (qw/install dist dist_basics dist_core dist_dir dist_test dist_ci/) {
  439. $self->{SKIPHASH}{$_} = 1;
  440. }
  441. }
  442. # We run all the subdirectories now. They don't have much to query
  443. # from the parent, but the parent has to query them: if they need linking!
  444. unless ($self->{NORECURS}) {
  445. $self->eval_in_subdirs if @{$self->{DIR}};
  446. }
  447. my $section;
  448. foreach $section ( @MM_Sections ){
  449. print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
  450. my($skipit) = $self->skipcheck($section);
  451. if ($skipit){
  452. push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
  453. } else {
  454. my(%a) = %{$self->{$section} || {}};
  455. push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
  456. push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
  457. push @{$self->{RESULT}}, $self->nicetext($self->$section( %a ));
  458. }
  459. }
  460. push @{$self->{RESULT}}, "\n# End.";
  461. $self;
  462. }
  463. sub WriteEmptyMakefile {
  464. if (-f 'Makefile.old') {
  465. chmod 0666, 'Makefile.old';
  466. unlink 'Makefile.old' or warn "unlink Makefile.old: $!";
  467. }
  468. rename 'Makefile', 'Makefile.old' or warn "rename Makefile Makefile.old: $!"
  469. if -f 'Makefile';
  470. open MF, '> Makefile' or die "open Makefile for write: $!";
  471. print MF <<'EOP';
  472. all:
  473. clean:
  474. install:
  475. makemakerdflt:
  476. test:
  477. EOP
  478. close MF or die "close Makefile for write: $!";
  479. }
  480. sub check_manifest {
  481. print STDOUT "Checking if your kit is complete...\n";
  482. require ExtUtils::Manifest;
  483. $ExtUtils::Manifest::Quiet=$ExtUtils::Manifest::Quiet=1; #avoid warning
  484. my(@missed)=ExtUtils::Manifest::manicheck();
  485. if (@missed){
  486. print STDOUT "Warning: the following files are missing in your kit:\n";
  487. print "\t", join "\n\t", @missed;
  488. print STDOUT "\n";
  489. print STDOUT "Please inform the author.\n";
  490. } else {
  491. print STDOUT "Looks good\n";
  492. }
  493. }
  494. sub parse_args{
  495. my($self, @args) = @_;
  496. foreach (@args){
  497. unless (m/(.*?)=(.*)/){
  498. help(),exit 1 if m/^help$/;
  499. ++$Verbose if m/^verb/;
  500. next;
  501. }
  502. my($name, $value) = ($1, $2);
  503. if ($value =~ m/^~(\w+)?/){ # tilde with optional username
  504. $value =~ s [^~(\w*)]
  505. [$1 ?
  506. ((getpwnam($1))[7] || "~$1") :
  507. (getpwuid($>))[7]
  508. ]ex;
  509. }
  510. $self->{uc($name)} = $value;
  511. }
  512. # catch old-style 'potential_libs' and inform user how to 'upgrade'
  513. if (defined $self->{potential_libs}){
  514. my($msg)="'potential_libs' => '$self->{potential_libs}' should be";
  515. if ($self->{potential_libs}){
  516. print STDOUT "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n";
  517. } else {
  518. print STDOUT "$msg deleted.\n";
  519. }
  520. $self->{LIBS} = [$self->{potential_libs}];
  521. delete $self->{potential_libs};
  522. }
  523. # catch old-style 'ARMAYBE' and inform user how to 'upgrade'
  524. if (defined $self->{ARMAYBE}){
  525. my($armaybe) = $self->{ARMAYBE};
  526. print STDOUT "ARMAYBE => '$armaybe' should be changed to:\n",
  527. "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n";
  528. my(%dl) = %{$self->{dynamic_lib} || {}};
  529. $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe};
  530. delete $self->{ARMAYBE};
  531. }
  532. if (defined $self->{LDTARGET}){
  533. print STDOUT "LDTARGET should be changed to LDFROM\n";
  534. $self->{LDFROM} = $self->{LDTARGET};
  535. delete $self->{LDTARGET};
  536. }
  537. # Turn a DIR argument on the command line into an array
  538. if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') {
  539. # So they can choose from the command line, which extensions they want
  540. # the grep enables them to have some colons too much in case they
  541. # have to build a list with the shell
  542. $self->{DIR} = [grep $_, split ":", $self->{DIR}];
  543. }
  544. # Turn a INCLUDE_EXT argument on the command line into an array
  545. if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') {
  546. $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
  547. }
  548. # Turn a EXCLUDE_EXT argument on the command line into an array
  549. if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') {
  550. $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
  551. }
  552. my $mmkey;
  553. foreach $mmkey (sort keys %$self){
  554. print STDOUT " $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
  555. print STDOUT "'$mmkey' is not a known MakeMaker parameter name.\n"
  556. unless exists $Recognized_Att_Keys{$mmkey};
  557. }
  558. $| = 1 if $Verbose;
  559. }
  560. sub check_hints {
  561. my($self) = @_;
  562. # We allow extension-specific hints files.
  563. return unless -d "hints";
  564. # First we look for the best hintsfile we have
  565. my(@goodhints);
  566. my($hint)="${^O}_$Config{osvers}";
  567. $hint =~ s/\./_/g;
  568. $hint =~ s/_$//;
  569. return unless $hint;
  570. # Also try without trailing minor version numbers.
  571. while (1) {
  572. last if -f "hints/$hint.pl"; # found
  573. } continue {
  574. last unless $hint =~ s/_[^_]*$//; # nothing to cut off
  575. }
  576. return unless -f "hints/$hint.pl"; # really there
  577. # execute the hintsfile:
  578. # use FileHandle ();
  579. # my $fh = new FileHandle;
  580. # $fh->open("hints/$hint.pl");
  581. local *FH;
  582. open(FH,"hints/$hint.pl");
  583. # @goodhints = <$fh>;
  584. @goodhints = <FH>;
  585. # $fh->close;
  586. close FH;
  587. print STDOUT "Processing hints file hints/$hint.pl\n";
  588. eval join('',@goodhints);
  589. print STDOUT $@ if $@;
  590. }
  591. sub mv_all_methods {
  592. my($from,$to) = @_;
  593. my($method);
  594. my($symtab) = \%{"${from}::"};
  595. # no strict;
  596. # Here you see the *current* list of methods that are overridable
  597. # from Makefile.PL via MY:: subroutines. As of VERSION 5.07 I'm
  598. # still trying to reduce the list to some reasonable minimum --
  599. # because I want to make it easier for the user. A.K.
  600. foreach $method (@Overridable) {
  601. # We cannot say "next" here. Nick might call MY->makeaperl
  602. # which isn't defined right now
  603. # Above statement was written at 4.23 time when Tk-b8 was
  604. # around. As Tk-b9 only builds with 5.002something and MM 5 is
  605. # standard, we try to enable the next line again. It was
  606. # commented out until MM 5.23
  607. next unless defined &{"${from}::$method"};
  608. *{"${to}::$method"} = \&{"${from}::$method"};
  609. # delete would do, if we were sure, nobody ever called
  610. # MY->makeaperl directly
  611. # delete $symtab->{$method};
  612. # If we delete a method, then it will be undefined and cannot
  613. # be called. But as long as we have Makefile.PLs that rely on
  614. # %MY:: being intact, we have to fill the hole with an
  615. # inheriting method:
  616. eval "package MY; sub $method { shift->SUPER::$method(\@_); }";
  617. }
  618. # We have to clean out %INC also, because the current directory is
  619. # changed frequently and Graham Barr prefers to get his version
  620. # out of a History.pl file which is "required" so woudn't get
  621. # loaded again in another extension requiring a History.pl
  622. # With perl5.002_01 the deletion of entries in %INC caused Tk-b11
  623. # to core dump in the middle of a require statement. The required
  624. # file was Tk/MMutil.pm. The consequence is, we have to be
  625. # extremely careful when we try to give perl a reason to reload a
  626. # library with same name. The workaround prefers to drop nothing
  627. # from %INC and teach the writers not to use such libraries.
  628. # my $inc;
  629. # foreach $inc (keys %INC) {
  630. # #warn "***$inc*** deleted";
  631. # delete $INC{$inc};
  632. # }
  633. }
  634. sub skipcheck {
  635. my($self) = shift;
  636. my($section) = @_;
  637. if ($section eq 'dynamic') {
  638. print STDOUT "Warning (non-fatal): Target 'dynamic' depends on targets ",
  639. "in skipped section 'dynamic_bs'\n"
  640. if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
  641. print STDOUT "Warning (non-fatal): Target 'dynamic' depends on targets ",
  642. "in skipped section 'dynamic_lib'\n"
  643. if $self->{SKIPHASH}{dynamic_lib} && $Verbose;
  644. }
  645. if ($section eq 'dynamic_lib') {
  646. print STDOUT "Warning (non-fatal): Target '\$(INST_DYNAMIC)' depends on ",
  647. "targets in skipped section 'dynamic_bs'\n"
  648. if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
  649. }
  650. if ($section eq 'static') {
  651. print STDOUT "Warning (non-fatal): Target 'static' depends on targets ",
  652. "in skipped section 'static_lib'\n"
  653. if $self->{SKIPHASH}{static_lib} && $Verbose;
  654. }
  655. return 'skipped' if $self->{SKIPHASH}{$section};
  656. return '';
  657. }
  658. sub flush {
  659. my $self = shift;
  660. my($chunk);
  661. # use FileHandle ();
  662. # my $fh = new FileHandle;
  663. local *FH;
  664. print STDOUT "Writing $self->{MAKEFILE} for $self->{NAME}\n";
  665. unlink($self->{MAKEFILE}, "MakeMaker.tmp", $Is_VMS ? 'Descrip.MMS' : '');
  666. # $fh->open(">MakeMaker.tmp") or die "Unable to open MakeMaker.tmp: $!";
  667. open(FH,">MakeMaker.tmp") or die "Unable to open MakeMaker.tmp: $!";
  668. for $chunk (@{$self->{RESULT}}) {
  669. # print $fh "$chunk\n";
  670. print FH "$chunk\n";
  671. }
  672. # $fh->close;
  673. close FH;
  674. my($finalname) = $self->{MAKEFILE};
  675. rename("MakeMaker.tmp", $finalname);
  676. chmod 0644, $finalname unless $Is_VMS;
  677. if ($self->{PARENT}) {
  678. foreach (keys %$self) { # safe memory
  679. delete $self->{$_} unless $Keep_after_flush{$_};
  680. }
  681. }
  682. system("$Config::Config{eunicefix} $finalname") unless $Config::Config{eunicefix} eq ":";
  683. }
  684. # The following mkbootstrap() is only for installations that are calling
  685. # the pre-4.1 mkbootstrap() from their old Makefiles. This MakeMaker
  686. # writes Makefiles, that use ExtUtils::Mkbootstrap directly.
  687. sub mkbootstrap {
  688. die <<END;
  689. !!! Your Makefile has been built such a long time ago, !!!
  690. !!! that is unlikely to work with current MakeMaker. !!!
  691. !!! Please rebuild your Makefile !!!
  692. END
  693. }
  694. # Ditto for mksymlists() as of MakeMaker 5.17
  695. sub mksymlists {
  696. die <<END;
  697. !!! Your Makefile has been built such a long time ago, !!!
  698. !!! that is unlikely to work with current MakeMaker. !!!
  699. !!! Please rebuild your Makefile !!!
  700. END
  701. }
  702. sub neatvalue {
  703. my($v) = @_;
  704. return "undef" unless defined $v;
  705. my($t) = ref $v;
  706. return "q[$v]" unless $t;
  707. if ($t eq 'ARRAY') {
  708. my(@m, $elem, @neat);
  709. push @m, "[";
  710. foreach $elem (@$v) {
  711. push @neat, "q[$elem]";
  712. }
  713. push @m, join ", ", @neat;
  714. push @m, "]";
  715. return join "", @m;
  716. }
  717. return "$v" unless $t eq 'HASH';
  718. my(@m, $key, $val);
  719. while (($key,$val) = each %$v){
  720. last unless defined $key; # cautious programming in case (undef,undef) is true
  721. push(@m,"$key=>".neatvalue($val)) ;
  722. }
  723. return "{ ".join(', ',@m)." }";
  724. }
  725. sub selfdocument {
  726. my($self) = @_;
  727. my(@m);
  728. if ($Verbose){
  729. push @m, "\n# Full list of MakeMaker attribute values:";
  730. foreach $key (sort keys %$self){
  731. next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/;
  732. my($v) = neatvalue($self->{$key});
  733. $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
  734. $v =~ tr/\n/ /s;
  735. push @m, "# $key => $v";
  736. }
  737. }
  738. join "\n", @m;
  739. }
  740. package ExtUtils::MakeMaker;
  741. 1;
  742. __END__
  743. =head1 NAME
  744. ExtUtils::MakeMaker - create an extension Makefile
  745. =head1 SYNOPSIS
  746. C<use ExtUtils::MakeMaker;>
  747. C<WriteMakefile( ATTRIBUTE =E<gt> VALUE [, ...] );>
  748. which is really
  749. C<MM-E<gt>new(\%att)-E<gt>flush;>
  750. =head1 DESCRIPTION
  751. This utility is designed to write a Makefile for an extension module
  752. from a Makefile.PL. It is based on the Makefile.SH model provided by
  753. Andy Dougherty and the perl5-porters.
  754. It splits the task of generating the Makefile into several subroutines
  755. that can be individually overridden. Each subroutine returns the text
  756. it wishes to have written to the Makefile.
  757. MakeMaker is object oriented. Each directory below the current
  758. directory that contains a Makefile.PL. Is treated as a separate
  759. object. This makes it possible to write an unlimited number of
  760. Makefiles with a single invocation of WriteMakefile().
  761. =head2 How To Write A Makefile.PL
  762. The short answer is: Don't.
  763. Always begin with h2xs.
  764. Always begin with h2xs!
  765. ALWAYS BEGIN WITH H2XS!
  766. even if you're not building around a header file, and even if you
  767. don't have an XS component.
  768. Run h2xs(1) before you start thinking about writing a module. For so
  769. called pm-only modules that consist of C<*.pm> files only, h2xs has
  770. the C<-X> switch. This will generate dummy files of all kinds that are
  771. useful for the module developer.
  772. The medium answer is:
  773. use ExtUtils::MakeMaker;
  774. WriteMakefile( NAME => "Foo::Bar" );
  775. The long answer is the rest of the manpage :-)
  776. =head2 Default Makefile Behaviour
  777. The generated Makefile enables the user of the extension to invoke
  778. perl Makefile.PL # optionally "perl Makefile.PL verbose"
  779. make
  780. make test # optionally set TEST_VERBOSE=1
  781. make install # See below
  782. The Makefile to be produced may be altered by adding arguments of the
  783. form C<KEY=VALUE>. E.g.
  784. perl Makefile.PL PREFIX=/tmp/myperl5
  785. Other interesting targets in the generated Makefile are
  786. make config # to check if the Makefile is up-to-date
  787. make clean # delete local temp files (Makefile gets renamed)
  788. make realclean # delete derived files (including ./blib)
  789. make ci # check in all the files in the MANIFEST file
  790. make dist # see below the Distribution Support section
  791. =head2 make test
  792. MakeMaker checks for the existence of a file named F<test.pl> in the
  793. current directory and if it exists it adds commands to the test target
  794. of the generated Makefile that will execute the script with the proper
  795. set of perl C<-I> options.
  796. MakeMaker also checks for any files matching glob("t/*.t"). It will
  797. add commands to the test target of the generated Makefile that execute
  798. all matching files via the L<Test::Harness> module with the C<-I>
  799. switches set correctly.
  800. =head2 make testdb
  801. A useful variation of the above is the target C<testdb>. It runs the
  802. test under the Perl debugger (see L<perldebug>). If the file
  803. F<test.pl> exists in the current directory, it is used for the test.
  804. If you want to debug some other testfile, set C<TEST_FILE> variable
  805. thusly:
  806. make testdb TEST_FILE=t/mytest.t
  807. By default the debugger is called using C<-d> option to perl. If you
  808. want to specify some other option, set C<TESTDB_SW> variable:
  809. make testdb TESTDB_SW=-Dx
  810. =head2 make install
  811. make alone puts all relevant files into directories that are named by
  812. the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_MAN1DIR, and
  813. INST_MAN3DIR. All these default to something below ./blib if you are
  814. I<not> building below the perl source directory. If you I<are>
  815. building below the perl source, INST_LIB and INST_ARCHLIB default to
  816. ../../lib, and INST_SCRIPT is not defined.
  817. The I<install> target of the generated Makefile copies the files found
  818. below each of the INST_* directories to their INSTALL*
  819. counterparts. Which counterparts are chosen depends on the setting of
  820. INSTALLDIRS according to the following table:
  821. INSTALLDIRS set to
  822. perl site
  823. INST_ARCHLIB INSTALLARCHLIB INSTALLSITEARCH
  824. INST_LIB INSTALLPRIVLIB INSTALLSITELIB
  825. INST_BIN INSTALLBIN
  826. INST_SCRIPT INSTALLSCRIPT
  827. INST_MAN1DIR INSTALLMAN1DIR
  828. INST_MAN3DIR INSTALLMAN3DIR
  829. The INSTALL... macros in turn default to their %Config
  830. ($Config{installprivlib}, $Config{installarchlib}, etc.) counterparts.
  831. You can check the values of these variables on your system with
  832. perl '-V:install.*'
  833. And to check the sequence in which the library directories are
  834. searched by perl, run
  835. perl -le 'print join $/, @INC'
  836. =head2 PREFIX and LIB attribute
  837. PREFIX and LIB can be used to set several INSTALL* attributes in one
  838. go. The quickest way to install a module in a non-standard place might
  839. be
  840. perl Makefile.PL LIB=~/lib
  841. This will install the module's architecture-independent files into
  842. ~/lib, the architecture-dependent files into ~/lib/$archname/auto.
  843. Another way to specify many INSTALL directories with a single
  844. parameter is PREFIX.
  845. perl Makefile.PL PREFIX=~
  846. This will replace the string specified by $Config{prefix} in all
  847. $Config{install*} values.
  848. Note, that in both cases the tilde expansion is done by MakeMaker, not
  849. by perl by default, nor by make. Conflicts between parameters LIB,
  850. PREFIX and the various INSTALL* arguments are resolved so that
  851. XXX
  852. If the user has superuser privileges, and is not working on AFS
  853. (Andrew File System) or relatives, then the defaults for
  854. INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLSCRIPT, etc. will be appropriate,
  855. and this incantation will be the best:
  856. perl Makefile.PL; make; make test
  857. make install
  858. make install per default writes some documentation of what has been
  859. done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This feature
  860. can be bypassed by calling make pure_install.
  861. =head2 AFS users
  862. will have to specify the installation directories as these most
  863. probably have changed since perl itself has been installed. They will
  864. have to do this by calling
  865. perl Makefile.PL INSTALLSITELIB=/afs/here/today \
  866. INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
  867. make
  868. Be careful to repeat this procedure every time you recompile an
  869. extension, unless you are sure the AFS installation directories are
  870. still valid.
  871. =head2 Static Linking of a new Perl Binary
  872. An extension that is built with the above steps is ready to use on
  873. systems supporting dynamic loading. On systems that do not support
  874. dynamic loading, any newly created extension has to be linked together
  875. with the available resources. MakeMaker supports the linking process
  876. by creating appropriate targets in the Makefile whenever an extension
  877. is built. You can invoke the corresponding section of the makefile with
  878. make perl
  879. That produces a new perl binary in the current directory with all
  880. extensions linked in that can be found in INST_ARCHLIB , SITELIBEXP,
  881. and PERL_ARCHLIB. To do that, MakeMaker writes a new Makefile, on
  882. UNIX, this is called Makefile.aperl (may be system dependent). If you
  883. want to force the creation of a new perl, it is recommended, that you
  884. delete this Makefile.aperl, so the directories are searched-through
  885. for linkable libraries again.
  886. The binary can be installed into the directory where perl normally
  887. resides on your machine with
  888. make inst_perl
  889. To produce a perl binary with a different name than C<perl>, either say
  890. perl Makefile.PL MAP_TARGET=myperl
  891. make myperl
  892. make inst_perl
  893. or say
  894. perl Makefile.PL
  895. make myperl MAP_TARGET=myperl
  896. make inst_perl MAP_TARGET=myperl
  897. In any case you will be prompted with the correct invocation of the
  898. C<inst_perl> target that installs the new binary into INSTALLBIN.
  899. make inst_perl per default writes some documentation of what has been
  900. done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This
  901. can be bypassed by calling make pure_inst_perl.
  902. Warning: the inst_perl: target will most probably overwrite your
  903. existing perl binary. Use with care!
  904. Sometimes you might want to build a statically linked perl although
  905. your system supports dynamic loading. In this case you may explicitly
  906. set the linktype with the invocation of the Makefile.PL or make:
  907. perl Makefile.PL LINKTYPE=static # recommended
  908. or
  909. make LINKTYPE=static # works on most systems
  910. =head2 Determination of Perl Library and Installation Locations
  911. MakeMaker needs to know, or to guess, where certain things are
  912. located. Especially INST_LIB and INST_ARCHLIB (where to put the files
  913. during the make(1) run), PERL_LIB and PERL_ARCHLIB (where to read
  914. existing modules from), and PERL_INC (header files and C<libperl*.*>).
  915. Extensions may be built either using the contents of the perl source
  916. directory tree or from the installed perl library. The recommended way
  917. is to build extensions after you have run 'make install' on perl
  918. itself. You can do that in any directory on your hard disk that is not
  919. below the perl source tree. The support for extensions below the ext
  920. directory of the perl distribution is only good for the standard
  921. extensions that come with perl.
  922. If an extension is being built below the C<ext/> directory of the perl
  923. source then MakeMaker will set PERL_SRC automatically (e.g.,
  924. C<../..>). If PERL_SRC is defined and the extension is recognized as
  925. a standard extension, then other variables default to the following:
  926. PERL_INC = PERL_SRC
  927. PERL_LIB = PERL_SRC/lib
  928. PERL_ARCHLIB = PERL_SRC/lib
  929. INST_LIB = PERL_LIB
  930. INST_ARCHLIB = PERL_ARCHLIB
  931. If an extension is being built away from the perl source then MakeMaker
  932. will leave PERL_SRC undefined and default to using the installed copy
  933. of the perl library. The other variables default to the following:
  934. PERL_INC = $archlibexp/CORE
  935. PERL_LIB = $privlibexp
  936. PERL_ARCHLIB = $archlibexp
  937. INST_LIB = ./blib/lib
  938. INST_ARCHLIB = ./blib/arch
  939. If perl has not yet been installed then PERL_SRC can be defined on the
  940. command line as shown in the previous section.
  941. =head2 Which architecture dependent directory?
  942. If you don't want to keep the defaults for the INSTALL* macros,
  943. MakeMaker helps you to minimize the typing needed: the usual
  944. relationship between INSTALLPRIVLIB and INSTALLARCHLIB is determined
  945. by Configure at perl compilation time. MakeMaker supports the user who
  946. sets INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not,
  947. then MakeMaker defaults the latter to be the same subdirectory of
  948. INSTALLPRIVLIB as Configure decided for the counterparts in %Config ,
  949. otherwise it defaults to INSTALLPRIVLIB. The same relationship holds
  950. for INSTALLSITELIB and INSTALLSITEARCH.
  951. MakeMaker gives you much more freedom than needed to configure
  952. internal variables and get different results. It is worth to mention,
  953. that make(1) also lets you configure most of the variables that are
  954. used in the Makefile. But in the majority of situations this will not
  955. be necessary, and should only be done, if the author of a package
  956. recommends it (or you know what you're doing).
  957. =head2 Using Attributes and Parameters
  958. The following attributes can be specified as arguments to WriteMakefile()
  959. or as NAME=VALUE pairs on the command line:
  960. =over 2
  961. =item AUTHOR
  962. String containing name (and email address) of package author(s). Is used
  963. in PPD (Perl Package Description) files for PPM (Perl Package Manager).
  964. =item ABSTRACT
  965. One line description of the module. Will be included in PPD file.
  966. =item ABSTRACT_FROM
  967. Name of the file that contains the package description. MakeMaker looks
  968. for a line in the POD matching /^($package\s-\s)(.*)/. This is typically
  969. the first line in the "=head1 NAME" section. $2 becomes the abstract.
  970. =item BINARY_LOCATION
  971. Used when creating PPD files for binary packages. It can be set to a
  972. full or relative path or URL to the binary archive for a particular
  973. architecture. For example:
  974. perl Makefile.PL BINARY_LOCATION=x86/Agent.tar.gz
  975. builds a PPD package that references a binary of the C<Agent> package,
  976. located in the C<x86> directory relative to the PPD itself.
  977. =item C
  978. Ref to array of *.c file names. Initialised from a directory scan
  979. and the values portion of the XS attribute hash. This is not
  980. currently used by MakeMaker but may be handy in Makefile.PLs.
  981. =item CAPI
  982. Switch to force usage of the Perl C API even when compiling for PERL_OBJECT.
  983. Note that this attribute is passed through to any recursive build,
  984. but if and only if the submodule's Makefile.PL itself makes no mention
  985. of the 'CAPI' attribute.
  986. =item CCFLAGS
  987. String that will be included in the compiler call command line between
  988. the arguments INC and OPTIMIZE.
  989. =item CONFIG
  990. Arrayref. E.g. [qw(archname manext)] defines ARCHNAME & MANEXT from
  991. config.sh. MakeMaker will add to CONFIG the following values anyway:
  992. ar
  993. cc
  994. cccdlflags
  995. ccdlflags
  996. dlext
  997. dlsrc
  998. ld
  999. lddlflags
  1000. ldflags
  1001. libc
  1002. lib_ext
  1003. obj_ext
  1004. ranlib
  1005. sitelibexp
  1006. sitearchexp
  1007. so
  1008. =item CONFIGURE
  1009. CODE reference. The subroutine should return a hash reference. The
  1010. hash may contain further attributes, e.g. {LIBS =E<gt> ...}, that have to
  1011. be determined by some evaluation method.
  1012. =item DEFINE
  1013. Something like C<"-DHAVE_UNISTD_H">
  1014. =item DIR
  1015. Ref to array of subdirectories containing Makefile.PLs e.g. [ 'sdbm'
  1016. ] in ext/SDBM_File
  1017. =item DISTNAME
  1018. Your name for distributing the package (by tar file). This defaults to
  1019. NAME above.
  1020. =item DL_FUNCS
  1021. Hashref of symbol names for routines to be made available as universal
  1022. symbols. Each key/value pair consists of the package name and an
  1023. array of routine names in that package. Used only under AIX, OS/2,
  1024. VMS and Win32 at present. The routine names supplied will be expanded
  1025. in the same way as XSUB names are expanded by the XS() macro.
  1026. Defaults to
  1027. {"$(NAME)" => ["boot_$(NAME)" ] }
  1028. e.g.
  1029. {"RPC" => [qw( boot_rpcb rpcb_gettime getnetconfigent )],
  1030. "NetconfigPtr" => [ 'DESTROY'] }
  1031. Please see the L<ExtUtils::Mksymlists> documentation for more information
  1032. about the DL_FUNCS, DL_VARS and FUNCLIST attributes.
  1033. =item DL_VARS
  1034. Array of symbol names for variables to be made available as universal symbols.
  1035. Used only under AIX, OS/2, VMS and Win32 at present. Defaults to [].
  1036. (e.g. [ qw(Foo_version Foo_numstreams Foo_tree ) ])
  1037. =item EXCLUDE_EXT
  1038. Array of extension names to exclude when doing a static build. This
  1039. is ignored if INCLUDE_EXT is present. Consult INCLUDE_EXT for more
  1040. details. (e.g. [ qw( Socket POSIX ) ] )
  1041. This attribute may be most useful when specified as a string on the
  1042. command line: perl Makefile.PL EXCLUDE_EXT='Socket Safe'
  1043. =item EXE_FILES
  1044. Ref to array of executable files. The files will be copied to the
  1045. INST_SCRIPT directory. Make realclean will delete them from there
  1046. again.
  1047. =item FIRST_MAKEFILE
  1048. The name of the Makefile to be produced. Defaults to the contents of
  1049. MAKEFILE, but can be overridden. This is used for the second Makefile
  1050. that will be produced for the MAP_TARGET.
  1051. =item FULLPERL
  1052. Perl binary able to run this extension.
  1053. =item FUNCLIST
  1054. This provides an alternate means to specify function names to be
  1055. exported from the extension. Its value is a reference to an
  1056. array of function names to be exported by the extension. These
  1057. names are passed through unaltered to the linker options file.
  1058. =item H
  1059. Ref to array of *.h file names. Similar to C.
  1060. =item IMPORTS
  1061. This attribute is used to specify names to be imported into the
  1062. extension. It is only used on OS/2 and Win32.
  1063. =item INC
  1064. Include file dirs eg: C<"-I/usr/5include -I/path/to/inc">
  1065. =item INCLUDE_EXT
  1066. Array of extension names to be included when doing a static build.
  1067. MakeMaker will normally build with all of the installed extensions when
  1068. doing a static build, and that is usually the desired behavior. If
  1069. INCLUDE_EXT is present then MakeMaker will build only with those extensions
  1070. which are explicitly mentioned. (e.g. [ qw( Socket POSIX ) ])
  1071. It is not necessary to mention DynaLoader or the current extension when
  1072. filling in INCLUDE_EXT. If the INCLUDE_EXT is mentioned but is empty then
  1073. only DynaLoader and the current extension will be included in the build.
  1074. This attribute may be most useful when specified as a string on the
  1075. command line: perl Makefile.PL INCLUDE_EXT='POSIX Socket Devel::Peek'
  1076. =item INSTALLARCHLIB
  1077. Used by 'make install', which copies files from INST_ARCHLIB to this
  1078. directory if INSTALLDIRS is set to perl.
  1079. =item INSTALLBIN
  1080. Directory to install binary files (e.g. tkperl) into.
  1081. =item INSTALLDIRS
  1082. Determines which of the two sets of installation directories to
  1083. choose: installprivlib and installarchlib versus installsitelib and
  1084. installsitearch. The first pair is chosen with INSTALLDIRS=perl, the
  1085. second with INSTALLDIRS=site. Default is site.
  1086. =item INSTALLMAN1DIR
  1087. This directory gets the man pages at 'make install' time. Defaults to
  1088. $Config{installman1dir}.
  1089. =item INSTALLMAN3DIR
  1090. This directory gets the man pages at 'make install' time. Defaults to
  1091. $Config{installman3dir}.
  1092. =item INSTALLPRIVLIB
  1093. Used by 'make install', which copies files from INST_LIB to this
  1094. directory if INSTALLDIRS is set to perl.
  1095. =item INSTALLSCRIPT
  1096. Used by 'make install' which copies files from INST_SCRIPT to this
  1097. directory.
  1098. =item INSTALLSITEARCH
  1099. Used by 'make install', which copies files from INST_ARCHLIB to this
  1100. directory if INSTALLDIRS is set to site (default).
  1101. =item INSTALLSITELIB
  1102. Used by 'make install', which copies files from INST_LIB to this
  1103. directory if INSTALLDIRS is set to site (default).
  1104. =item INST_ARCHLIB
  1105. Same as INST_LIB for architecture dependent files.
  1106. =item INST_BIN
  1107. Directory to put real binary files during 'make'. These will be copied
  1108. to INSTALLBIN during 'make install'
  1109. =item INST_EXE
  1110. Old name for INST_SCRIPT. Deprecated. Please use INST_SCRIPT if you
  1111. need to use it.
  1112. =item INST_LIB
  1113. Directory where we put library files of this extension while building
  1114. it.
  1115. =item INST_MAN1DIR
  1116. Directory to hold the man pages at 'make' time
  1117. =item INST_MAN3DIR
  1118. Directory to hold the man pages at 'make' time
  1119. =item INST_SCRIPT
  1120. Directory, where executable files should be installed during
  1121. 'make'. Defaults to "./blib/bin", just to have a dummy location during
  1122. testing. make install will copy the files in INST_SCRIPT to
  1123. INSTALLSCRIPT.
  1124. =item LDFROM
  1125. defaults to "$(OBJECT)" and is used in the ld command to specify
  1126. what files to link/load from (also see dynamic_lib below for how to
  1127. specify ld flags)
  1128. =item LIB
  1129. LIB can only be set at C<perl Makefile.PL> time. It has the effect of
  1130. setting both INSTALLPRIVLIB and INSTALLSITELIB to that value regardless any
  1131. =item LIBPERL_A
  1132. The filename of the perllibrary that will be used together with this
  1133. extension. Defaults to libperl.a.
  1134. =item LIBS
  1135. An anonymous array of alternative library
  1136. specifications to be searched for (in order) until
  1137. at least one library is found. E.g.
  1138. 'LIBS' => ["-lgdbm", "-ldbm -lfoo", "-L/path -ldbm.nfs"]
  1139. Mind, that any element of the array
  1140. contains a complete set of arguments for the ld
  1141. command. So do not specify
  1142. 'LIBS' => ["-ltcl", "-ltk", "-lX11"]
  1143. See ODBM_File/Makefile.PL for an example, where an array is needed. If
  1144. you specify a scalar as in
  1145. 'LIBS' => "-ltcl -ltk -lX11"
  1146. MakeMaker will turn it into an array with one element.
  1147. =item LINKTYPE
  1148. 'static' or 'dynamic' (default unless usedl=undef in
  1149. config.sh). Should only be used to force static linking (also see
  1150. linkext below).
  1151. =item MAKEAPERL
  1152. Boolean which tells MakeMaker, that it should include the rules to
  1153. make a perl. This is handled automatically as a switch by
  1154. MakeMaker. The user normally does not need it.
  1155. =item MAKEFILE
  1156. The name of the Makefile to be produced.
  1157. =item MAN1PODS
  1158. Hashref of pod-containing files. MakeMaker will default this to all
  1159. EXE_FILES files that include POD directives. The files listed
  1160. here will be converted to man pages and installed as was requested
  1161. at Configure time.
  1162. =item MAN3PODS
  1163. Hashref of .pm and .pod files. MakeMaker will default this to all
  1164. .pod and any .pm files that include POD directives. The files listed
  1165. here will be converted to man pages and installed as was requested
  1166. at Configure time.
  1167. =item MAP_TARGET
  1168. If it is intended, that a new perl binary be produced, this variable
  1169. may hold a name for that binary. Defaults to perl
  1170. =item MYEXTLIB
  1171. If the extension links to a library that it builds set this to the
  1172. name of the library (see SDBM_File)
  1173. =item NAME
  1174. Perl module name for this extension (DBD::Oracle). This will default
  1175. to the directory name but should be explicitly defined in the
  1176. Makefile.PL.
  1177. =item NEEDS_LINKING
  1178. MakeMaker will figure out, if an extension contains linkable code
  1179. anywhere down the directory tree, and will set this variable
  1180. accordingly, but you can speed it up a very little bit, if you define
  1181. this boolean variable yourself.
  1182. =item NOECHO
  1183. Defaults to C<@>. By setting it to an empty string you can generate a
  1184. Makefile that echos all commands. Mainly used in debugging MakeMaker
  1185. itself.
  1186. =item NORECURS
  1187. Boolean. Attribute to inhibit descending into subdirectories.
  1188. =item NO_VC
  1189. In general any generated Makefile checks for the current version of
  1190. MakeMaker and the version the Makefile was built under. If NO_VC is
  1191. set, the version check is neglected. Do not write this into your
  1192. Makefile.PL, use it interactively instead.
  1193. =item OBJECT
  1194. List of object files, defaults to '$(BASEEXT)$(OBJ_EXT)', but can be a long
  1195. string containing all object files, e.g. "tkpBind.o
  1196. tkpButton.o tkpCanvas.o"
  1197. =item OPTIMIZE
  1198. Defaults to C<-O>. Set it to C<-g> to turn debugging on. The flag is
  1199. passed to subdirectory makes.
  1200. =item PERL
  1201. Perl binary for tasks that can be done by miniperl
  1202. =item PERLMAINCC
  1203. The call to the program that is able to compile perlmain.c. Defaults
  1204. to $(CC).
  1205. =item PERL_ARCHLIB
  1206. Same as above for architecture dependent files
  1207. =item PERL_LIB
  1208. Directory containing the Perl library to use.
  1209. =item PERL_SRC
  1210. Directory containing the Perl source code (use of this should be
  1211. avoided, it may be undefined)
  1212. =item PERM_RW
  1213. Desired permission for read/writable files. Defaults to C<644>.
  1214. See also L<MM_Unix/perm_rw>.
  1215. =item PERM_RWX
  1216. Desired permission for executable files. Defaults to C<755>.
  1217. See also L<MM_Unix/perm_rwx>.
  1218. =item PL_FILES
  1219. Ref to hash of files to be processed as perl programs. MakeMaker
  1220. will default to any found *.PL file (except Makefile.PL) being keys
  1221. and the basename of the file being the value. E.g.
  1222. {'foobar.PL' => 'foobar'}
  1223. The *.PL files are expected to produce output to the target files
  1224. themselves. If multiple files can be generated from the same *.PL
  1225. file then the value in the hash can be a reference to an array of
  1226. target file names. E.g.
  1227. {'foobar.PL' => ['foobar1','foobar2']}
  1228. =item PM
  1229. Hashref of .pm files and *.pl files to be installed. e.g.
  1230. {'name_of_file.pm' => '$(INST_LIBDIR)/install_as.pm'}
  1231. By default this will include *.pm and *.pl and the files found in
  1232. the PMLIBDIRS directories. Defining PM in the
  1233. Makefile.PL will override PMLIBDIRS.
  1234. =item PMLIBDIRS
  1235. Ref to array of subdirectories containing library files. Defaults to
  1236. [ 'lib', $(BASEEXT) ]. The directories will be scanned and I<any> files
  1237. they contain will be installed in the corresponding location in the
  1238. library. A libscan() method can be used to alter the behaviour.
  1239. Defining PM in the Makefile.PL will override PMLIBDIRS.
  1240. =item PPM_INSTALL_EXEC
  1241. Name of the executable used to run C<PPM_INSTALL_SCRIPT> below. (e.g. perl)
  1242. =item PPM_INSTALL_SCRIPT
  1243. Name of the script that gets executed by the Perl Package Manager after
  1244. the installation of a package.
  1245. =item PREFIX
  1246. Can be used to set the three INSTALL* attributes in one go (except for
  1247. probably INSTALLMAN1DIR, if it is not below PREFIX according to
  1248. %Config). They will have PREFIX as a common directory node and will
  1249. branch from that node into lib/, lib/ARCHNAME or whatever Configure
  1250. decided at the build time of your perl (unless you override one of
  1251. them, of course).
  1252. =item PREREQ_PM
  1253. Hashref: Names of modules that need to be available to run this
  1254. extension (e.g. Fcntl for SDBM_File) are the keys of the hash and the
  1255. desired version is the value. If the required version number is 0, we
  1256. only check if any version is installed already.
  1257. =item SKIP
  1258. Arryref. E.g. [qw(name1 name2)] skip (do not write) sections of the
  1259. Makefile. Caution! Do not use the SKIP attribute for the neglectible
  1260. speedup. It may seriously damage the resulting Makefile. Only use it,
  1261. if you really need it.
  1262. =item TYPEMAPS
  1263. Ref to array of typemap file names. Use this when the typemaps are
  1264. in some directory other than the current directory or when they are
  1265. not named B<typemap>. The last typemap in the list takes
  1266. precedence. A typemap in the current directory has highest
  1267. precedence, even if it isn't listed in TYPEMAPS. The default system
  1268. typemap has lowest precedence.
  1269. =item VERSION
  1270. Your version number for distributing the package. This defaults to
  1271. 0.1.
  1272. =item VERSION_FROM
  1273. Instead of specifying the VERSION in the Makefile.PL you can let
  1274. MakeMaker parse a file to determine the version number. The parsing
  1275. routine requires that the file named by VERSION_FROM contains one
  1276. single line to compute the version number. The first line in the file
  1277. that contains the regular expression
  1278. /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/
  1279. will be evaluated with eval() and the value of the named variable
  1280. B<after> the eval() will be assigned to the VERSION attribute of the
  1281. MakeMaker object. The following lines will be parsed o.k.:
  1282. $VERSION = '1.00';
  1283. *VERSION = \'1.01';
  1284. ( $VERSION ) = '$Revision: 1.222 $ ' =~ /\$Revision:\s+([^\s]+)/;
  1285. $FOO::VERSION = '1.10';
  1286. *FOO::VERSION = \'1.11';
  1287. but these will fail:
  1288. my $VERSION = '1.01';
  1289. local $VERSION = '1.02';
  1290. local $FOO::VERSION = '1.30';
  1291. The file named in VERSION_FROM is not added as a dependency to
  1292. Makefile. This is not really correct, but it would be a major pain
  1293. during development to have to rewrite the Makefile for any smallish
  1294. change in that file. If you want to make sure that the Makefile
  1295. contains the correct VERSION macro after any change of the file, you
  1296. would have to do something like
  1297. depend => { Makefile => '$(VERSION_FROM)' }
  1298. See attribute C<depend> below.
  1299. =item XS
  1300. Hashref of .xs files. MakeMaker will default this. e.g.
  1301. {'name_of_file.xs' => 'name_of_file.c'}
  1302. The .c files will automatically be included in the list of files
  1303. deleted by a make clean.
  1304. =item XSOPT
  1305. String of options to pass to xsubpp. This might include C<-C++> or
  1306. C<-extern>. Do not include typemaps here; the TYPEMAP parameter exists for
  1307. that purpose.
  1308. =item XSPROTOARG
  1309. May be set to an empty string, which is identical to C<-prototypes>, or
  1310. C<-noprototypes>. See the xsubpp documentation for details. MakeMaker
  1311. defaults to the empty string.
  1312. =item XS_VERSION
  1313. Your version number for the .xs file of this package. This defaults
  1314. to the value of the VERSION attribute.
  1315. =back
  1316. =head2 Additional lowercase attributes
  1317. can be used to pass parameters to the methods which implement that
  1318. part of the Makefile.
  1319. =over 2
  1320. =item clean
  1321. {FILES => "*.xyz foo"}
  1322. =item depend
  1323. {ANY_TARGET => ANY_DEPENDECY, ...}
  1324. =item dist
  1325. {TARFLAGS => 'cvfF', COMPRESS => 'gzip', SUFFIX => '.gz',
  1326. SHAR => 'shar -m', DIST_CP => 'ln', ZIP => '/bin/zip',
  1327. ZIPFLAGS => '-rl', DIST_DEFAULT => 'private tardist' }
  1328. If you specify COMPRESS, then SUFFIX should also be altered, as it is
  1329. needed to tell make the target file of the compression. Setting
  1330. DIST_CP to ln can be useful, if you need to preserve the timestamps on
  1331. your files. DIST_CP can take the values 'cp', which copies the file,
  1332. 'ln', which links the file, and 'best' which copies symbolic links and
  1333. links the rest. Default is 'best'.
  1334. =item dynamic_lib
  1335. {ARMAYBE => 'ar', OTHERLDFLAGS => '...', INST_DYNAMIC_DEP => '...'}
  1336. =item linkext
  1337. {LINKTYPE => 'static', 'dynamic' or ''}
  1338. NB: Extensions that have nothing but *.pm files had to say
  1339. {LINKTYPE => ''}
  1340. with Pre-5.0 MakeMakers. Since version 5.00 of MakeMaker such a line
  1341. can be deleted safely. MakeMaker recognizes, when there's nothing to
  1342. be linked.
  1343. =item macro
  1344. {ANY_MACRO => ANY_VALUE, ...}
  1345. =item realclean
  1346. {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
  1347. =item tool_autosplit
  1348. {MAXLEN =E<gt> 8}
  1349. =back
  1350. =head2 Overriding MakeMaker Methods
  1351. If you cannot achieve the desired Makefile behaviour by specifying
  1352. attributes you may define private subroutines in the Makefile.PL.
  1353. Each subroutines returns the text it wishes to have written to
  1354. the Makefile. To override a section of the Makefile you can
  1355. either say:
  1356. sub MY::c_o { "new literal text" }
  1357. or you can edit the default by saying something like:
  1358. sub MY::c_o {
  1359. package MY; # so that "SUPER" works right
  1360. my $inherited = shift->SUPER::c_o(@_);
  1361. $inherited =~ s/old text/new text/;
  1362. $inherited;
  1363. }
  1364. If you are running experiments with embedding perl as a library into
  1365. other applications, you might find MakeMaker is not sufficient. You'd
  1366. better have a look at ExtUtils::Embed which is a collection of utilities
  1367. for embedding.
  1368. If you still need a different solution, try to develop another
  1369. subroutine that fits your needs and submit the diffs to
  1370. F<[email protected]> or F<comp.lang.perl.moderated> as appropriate.
  1371. For a complete description of all MakeMaker methods see L<ExtUtils::MM_Unix>.
  1372. Here is a simple example of how to add a new target to the generated
  1373. Makefile:
  1374. sub MY::postamble {
  1375. '
  1376. $(MYEXTLIB): sdbm/Makefile
  1377. cd sdbm && $(MAKE) all
  1378. ';
  1379. }
  1380. =head2 Hintsfile support
  1381. MakeMaker.pm uses the architecture specific information from
  1382. Config.pm. In addition it evaluates architecture specific hints files
  1383. in a C<hints/> directory. The hints files are expected to be named
  1384. like their counterparts in C<PERL_SRC/hints>, but with an C<.pl> file
  1385. name extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by
  1386. MakeMaker within the WriteMakefile() subroutine, and can be used to
  1387. execute commands as well as to include special variables. The rules
  1388. which hintsfile is chosen are the same as in Configure.
  1389. The hintsfile is eval()ed immediately after the arguments given to
  1390. WriteMakefile are stuffed into a hash reference $self but before this
  1391. reference becomes blessed. So if you want to do the equivalent to
  1392. override or create an attribute you would say something like
  1393. $self->{LIBS} = ['-ldbm -lucb -lc'];
  1394. =head2 Distribution Support
  1395. For authors of extensions MakeMaker provides several Makefile
  1396. targets. Most of the support comes from the ExtUtils::Manifest module,
  1397. where additional documentation can be found.
  1398. =over 4
  1399. =item make distcheck
  1400. reports which files are below the build directory but not in the
  1401. MANIFEST file and vice versa. (See ExtUtils::Manifest::fullcheck() for
  1402. details)
  1403. =item make skipcheck
  1404. reports which files are skipped due to the entries in the
  1405. C<MANIFEST.SKIP> file (See ExtUtils::Manifest::skipcheck() for
  1406. details)
  1407. =item make distclean
  1408. does a realclean first and then the distcheck. Note that this is not
  1409. needed to build a new distribution as long as you are sure, that the
  1410. MANIFEST file is ok.
  1411. =item make manifest
  1412. rewrites the MANIFEST file, adding all remaining files found (See
  1413. ExtUtils::Manifest::mkmanifest() for details)
  1414. =item make distdir
  1415. Copies all the files that are in the MANIFEST file to a newly created
  1416. directory with the name C<$(DISTNAME)-$(VERSION)>. If that directory
  1417. exists, it will be removed first.
  1418. =item make disttest
  1419. Makes a distdir first, and runs a C<perl Makefile.PL>, a make, and
  1420. a make test in that directory.
  1421. =item make tardist
  1422. First does a distdir. Then a command $(PREOP) which defaults to a null
  1423. command, followed by $(TOUNIX), which defaults to a null command under
  1424. UNIX, and will convert files in distribution directory to UNIX format
  1425. otherwise. Next it runs C<tar> on that directory into a tarfile and
  1426. deletes the directory. Finishes with a command $(POSTOP) which
  1427. defaults to a null command.
  1428. =item make dist
  1429. Defaults to $(DIST_DEFAULT) which in turn defaults to tardist.
  1430. =item make uutardist
  1431. Runs a tardist first and uuencodes the tarfile.
  1432. =item make shdist
  1433. First does a distdir. Then a command $(PREOP) which defaults to a null
  1434. command. Next it runs C<shar> on that directory into a sharfile and
  1435. deletes the intermediate directory again. Finishes with a command
  1436. $(POSTOP) which defaults to a null command. Note: For shdist to work
  1437. properly a C<shar> program that can handle directories is mandatory.
  1438. =item make zipdist
  1439. First does a distdir. Then a command $(PREOP) which defaults to a null
  1440. command. Runs C<$(ZIP) $(ZIPFLAGS)> on that directory into a
  1441. zipfile. Then deletes that directory. Finishes with a command
  1442. $(POSTOP) which defaults to a null command.
  1443. =item make ci
  1444. Does a $(CI) and a $(RCS_LABEL) on all files in the MANIFEST file.
  1445. =back
  1446. Customization of the dist targets can be done by specifying a hash
  1447. reference to the dist attribute of the WriteMakefile call. The
  1448. following parameters are recognized:
  1449. CI ('ci -u')
  1450. COMPRESS ('gzip --best')
  1451. POSTOP ('@ :')
  1452. PREOP ('@ :')
  1453. TO_UNIX (depends on the system)
  1454. RCS_LABEL ('rcs -q -Nv$(VERSION_SYM):')
  1455. SHAR ('shar')
  1456. SUFFIX ('.gz')
  1457. TAR ('tar')
  1458. TARFLAGS ('cvf')
  1459. ZIP ('zip')
  1460. ZIPFLAGS ('-r')
  1461. An example:
  1462. WriteMakefile( 'dist' => { COMPRESS=>"bzip2", SUFFIX=>".bz2" })
  1463. =head2 Disabling an extension
  1464. If some events detected in F<Makefile.PL> imply that there is no way
  1465. to create the Module, but this is a normal state of things, then you
  1466. can create a F<Makefile> which does nothing, but succeeds on all the
  1467. "usual" build targets. To do so, use
  1468. ExtUtils::MakeMaker::WriteEmptyMakefile();
  1469. instead of WriteMakefile().
  1470. This may be useful if other modules expect this module to be I<built>
  1471. OK, as opposed to I<work> OK (say, this system-dependent module builds
  1472. in a subdirectory of some other distribution, or is listed as a
  1473. dependency in a CPAN::Bundle, but the functionality is supported by
  1474. different means on the current architecture).
  1475. =head1 ENVIRONMENT
  1476. =over 8
  1477. =item PERL_MM_OPT
  1478. Command line options used by C<MakeMaker-E<gt>new()>, and thus by
  1479. C<WriteMakefile()>. The string is split on whitespace, and the result
  1480. is processed before any actual command line arguments are processed.
  1481. =back
  1482. =head1 SEE ALSO
  1483. ExtUtils::MM_Unix, ExtUtils::Manifest, ExtUtils::testlib,
  1484. ExtUtils::Install, ExtUtils::Embed
  1485. =head1 AUTHORS
  1486. Andy Dougherty <F<[email protected]>>, Andreas KE<ouml>nig
  1487. <F<[email protected]>>, Tim Bunce <F<[email protected]>>.
  1488. VMS support by Charles Bailey <F<[email protected]>>. OS/2
  1489. support by Ilya Zakharevich <F<[email protected]>>. Contact the
  1490. makemaker mailing list C<mailto:[email protected]>, if
  1491. you have any questions.
  1492. =cut