package ExtUtils
::MM_Unix
;
require 5.005_03
; # Maybe further back, dunno
use ExtUtils
::MakeMaker
::Config
;
use File
::Basename
qw(basename dirname);
use vars
qw($VERSION @ISA
$Is_OS2 $Is_VMS $Is_Win32 $Is_Dos
$Is_OSF $Is_IRIX $Is_NetBSD $Is_BSD
$Is_SunOS4 $Is_Solaris $Is_SunOS $Is_Interix
use ExtUtils::MakeMaker qw($Verbose neatvalue);
require ExtUtils::MM_Any;
@ISA = qw(ExtUtils::MM_Any);
$Is_Win32 = $^O
eq 'MSWin32' || $Config{osname
} eq 'NetWare';
$Is_OSF = $^O
eq 'dec_osf';
$Is_IRIX = $^O
eq 'irix';
$Is_NetBSD = $^O
eq 'netbsd';
$Is_Interix = $^O
eq 'interix';
$Is_SunOS4 = $^O
eq 'sunos';
$Is_Solaris = $^O
eq 'solaris';
$Is_SunOS = $Is_SunOS4 || $Is_Solaris;
$Is_BSD = $^O
=~ /^(?:free|net|open)bsd$/ or
$^O
eq 'bsdos' or $^O
eq 'interix';
# For things like vmsify()
ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker
C<require ExtUtils::MM_Unix;>
The methods provided by this package are designed to be used in
conjunction with ExtUtils::MakeMaker. When MakeMaker writes a
Makefile, it creates one or more objects that inherit their methods
from a package C<MM>. MM itself doesn't provide any methods, but it
ISA ExtUtils::MM_Unix class. The inheritance tree of MM lets operating
specific packages take the responsibility for all the methods provided
by MM_Unix. We are trying to reduce the number of the necessary
overrides by defining rather primitive operations within
If you are going to write a platform specific MM package, please try
to limit the necessary overrides to primitive methods, and if it is not
possible to do so, let's work out how to achieve that gain.
If you are overriding any of these methods in your Makefile.PL (in the
MY class), please report that to the makemaker mailing list. We are
trying to minimize the necessary method overrides and switch to data
driven Makefile.PLs wherever possible. In the long run less methods
will be overridable via the MY class.
The following description of methods is still under
development. Please refer to the code for not suitably documented
sections and complain loudly to the makemaker@perl.org mailing list.
Better yet, provide a patch.
Not all of the methods below are overridable in a
Makefile.PL. Overridable methods are marked as (o). All methods are
overridable by a platform specific MM_*.pm file.
Cross-platform methods are being moved into MM_Any. If you can't find
something that used to be in here, look in MM_Any.
# So we don't have to keep calling the methods over and over again,
# we have these globals to cache the values. Faster and shrtr.
my $Curdir = __PACKAGE__
->curdir;
my $Rootdir = __PACKAGE__
->rootdir;
my $Updir = __PACKAGE__
->updir;
Simply says that we're Unix.
Defines the suffix rules to compile different flavors of C files to
# --- Translation Sections ---
return '' unless $self->needs_linking();
if (my $cpp = $Config{cpprun
}) {
my $cpp_cmd = $self->const_cccmd;
$cpp_cmd =~ s/^CCCMD\s*=\s*\$\(CC\)/$cpp/;
'. $cpp_cmd . ' $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
$(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
' if !$Is_OS2 and !$Is_Win32 and !$Is_Dos; #Case-specific
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
Does very much the same as the cflags script in the perl
distribution. It doesn't return the whole compiler command line, but
initializes all of its parts. The const_cccmd method then actually
returns the definition of the CCCMD macro which uses these parts.
return $self->{CFLAGS
} if $self->{CFLAGS
};
return '' unless $self->needs_linking();
my($prog, $uc, $perltype, %cflags);
$libperl ||= $self->{LIBPERL_A
} || "libperl$self->{LIB_EXT}" ;
$libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
@cflags{qw(cc ccflags optimize shellflags)}
= @Config{qw(cc ccflags optimize shellflags)};
$cflags{shellflags
} ||= '';
DE
=> '-DDEBUGGING -DEMBED',
M
=> '-DEMBED -DMULTIPLICITY',
DM
=> '-DDEBUGGING -DEMBED -DMULTIPLICITY',
if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
$uc = ""; # avoid warning
$perltype = $map{$uc} ?
$map{$uc} : "";
( $name = $self->{NAME
} . "_cflags" ) =~ s/:/_/g ;
if ($prog = $Config{$name}) {
# Expand hints for this extension via the shell
print STDOUT
"Processing $name hint:\n" if $Verbose;
my(@o)=`cc=\"$cflags{cc}\"
ccflags=\"$cflags{ccflags}\"
optimize=\"$cflags{optimize}\"
perltype=\"$cflags{perltype}\"
optdebug=\"$cflags{optdebug}\"
if ($line =~ /(.*?)=\s*(.*)\s*$/){
print STDOUT
" $1 = $2\n" if $Verbose;
print STDOUT
"Unrecognised result from hint: '$line'\n";
$cflags{optimize
} = $optdebug;
for (qw(ccflags optimize perltype)) {
$cflags{$_} =~ s/\s+/ /g;
$self->{uc $_} ||= $cflags{$_};
$self->{CCFLAGS
} .= ' -DPERL_POLLUTE ';
if ($Config{usemymalloc
} and not $Config{bincompat5005
}
and not $Config{ccflags
} =~ /-DPERL_POLLUTE_MALLOC\b/
and $self->{PERL_MALLOC_OK
}) {
$pollute = '$(PERL_MALLOC_DEF)';
$self->{CCFLAGS
} = quote_paren
($self->{CCFLAGS
});
$self->{OPTIMIZE
} = quote_paren
($self->{OPTIMIZE
});
return $self->{CFLAGS
} = qq{
CCFLAGS
= $self->{CCFLAGS
}
OPTIMIZE
= $self->{OPTIMIZE
}
PERLTYPE
= $self->{PERLTYPE
}
Returns the full compiler call for C programs and stores the
definition in CONST_CCCMD.
return $self->{CONST_CCCMD
} if $self->{CONST_CCCMD
};
return '' unless $self->needs_linking();
return $self->{CONST_CCCMD
} =
q{CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \\
$(CCFLAGS) $(OPTIMIZE) \\
$(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \\
Defines a couple of constants in the Makefile that are imported from
# --- Constants Sections ---
push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
foreach $m (@
{$self->{CONFIG
}}){
# SITE*EXP macros are defined in &constants; avoid duplicates here
$self->{uc $m} = quote_paren
($self->{uc $m});
push @m, uc($m) , ' = ' , $self->{uc $m}, "\n";
Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
L<ExtUtils::Liblist> for details.
return "" unless $self->needs_linking;
# $self->{NAME} might depend on some other libraries:
# See ExtUtils::Liblist for details
EXTRALIBS LDLOADLIBS BSLOADLIBS
next unless defined $self->{$tmp};
push @m, "$tmp = $self->{$tmp}\n";
# don't set LD_RUN_PATH if empty
next unless $self->{$tmp};
push @m, "$tmp = $self->{$tmp}\n";
my $make_frag = $mm->constants;
Prints out macros for lots of constants.
$self->{DFSEP
} = '$(DIRFILESEP)'; # alias for internal use
AR_STATIC_ARGS DIRFILESEP DFSEP
VERSION VERSION_MACRO VERSION_SYM DEFINE_VERSION
XS_VERSION XS_VERSION_MACRO XS_DEFINE_VERSION
INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB
INST_MAN1DIR INST_MAN3DIR
INSTALLDIRS INSTALLBASE DESTDIR PREFIX
PERLPREFIX SITEPREFIX VENDORPREFIX
FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE
PERLMAINCC PERL_SRC PERL_INC
PERLRUN FULLPERLRUN ABSPERLRUN
PERLRUNINST FULLPERLRUNINST ABSPERLRUNINST
next unless defined $self->{$macro};
# pathnames can have sharp signs in them; escape them so
# make doesn't think it is a comment-start character.
$self->{$macro} =~ s/#/\\#/g;
push @m, "$macro = $self->{$macro}\n";
MAKEMAKER
= $self->{MAKEMAKER
}
MM_VERSION
= $self->{MM_VERSION
}
MM_REVISION
= $self->{MM_REVISION
}
# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
# DLBASE = Basename part of dynamic library. May be just equal BASEEXT.
FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
next unless defined $self->{$macro};
push @m, "$macro = $self->{$macro}\n";
# Handy lists of source code files:
XS_FILES = ".$self->wraplist(sort keys %{$self->{XS
}})."
C_FILES = ".$self->wraplist(@
{$self->{C
}})."
O_FILES = ".$self->wraplist(@
{$self->{O_FILES
}})."
H_FILES = ".$self->wraplist(@
{$self->{H
}})."
MAN1PODS = ".$self->wraplist(sort keys %{$self->{MAN1PODS
}})."
MAN3PODS = ".$self->wraplist(sort keys %{$self->{MAN3PODS
}})."
# Where is the Config information that we are using/depend on
CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
INST_LIBDIR
= $self->{INST_LIBDIR
}
INST_ARCHLIBDIR
= $self->{INST_ARCHLIBDIR
}
INST_AUTODIR
= $self->{INST_AUTODIR
}
INST_ARCHAUTODIR
= $self->{INST_ARCHAUTODIR
}
INST_STATIC
= $self->{INST_STATIC
}
INST_DYNAMIC
= $self->{INST_DYNAMIC
}
INST_BOOT
= $self->{INST_BOOT
}
EXPORT_LIST
= $self->{EXPORT_LIST
}
PERL_ARCHIVE
= $self->{PERL_ARCHIVE
}
PERL_ARCHIVE_AFTER
= $self->{PERL_ARCHIVE_AFTER
}
TO_INST_PM = ".$self->wraplist(sort keys %{$self->{PM
}})."
PM_TO_BLIB = ".$self->wraplist(%{$self->{PM
}})."
Same as macro for the depend attribute.
while (($key,$val) = each %attribs){
last unless defined $key;
push @m, "$key : $val\n";
Defines the DESTDIR and DEST* variables paralleling the INSTALL*.
foreach my $var ($self->installvars) {
my $destvar = 'DESTINSTALL'.$var;
$self->{$destvar} ||= '$(DESTDIR)$(INSTALL'.$var.')';
Defines a lot of macros for distribution support.
macro description default
TAR tar command to use tar
TARFLAGS flags to pass to TAR cvf
ZIP zip command to use zip
ZIPFLAGS flags to pass to ZIP -r
COMPRESS compression command to gzip --best
SUFFIX suffix to put on .gz
SHAR shar command to use shar
PREOP extra commands to run before
POSTOP extra commands to run after
TO_UNIX a command to convert linefeeds
to Unix style in your archive
CI command to checkin your ci -u
sources to version control
RCS_LABEL command to label your sources rcs -Nv$(VERSION_SYM): -q
DIST_CP $how argument to manicopy() best
when the distdir is created
DIST_DEFAULT default target to use to tardist
DISTVNAME name of the resulting archive $(DISTNAME)-$(VERSION)
$self->{TARFLAGS
} ||= 'cvf';
$self->{ZIPFLAGS
} ||= '-r';
$self->{COMPRESS
} ||= 'gzip --best';
$self->{SUFFIX
} ||= '.gz';
$self->{SHAR
} ||= 'shar';
$self->{PREOP
} ||= '$(NOECHO) $(NOOP)'; # eg update MANIFEST
$self->{POSTOP
} ||= '$(NOECHO) $(NOOP)'; # eg remove the distdir
$self->{TO_UNIX
} ||= '$(NOECHO) $(NOOP)';
$self->{RCS_LABEL
}||= 'rcs -Nv$(VERSION_SYM): -q';
$self->{DIST_CP
} ||= 'best';
$self->{DIST_DEFAULT
} ||= 'tardist';
($self->{DISTNAME
} = $self->{NAME
}) =~ s{::}{-}g unless $self->{DISTNAME
};
$self->{DISTVNAME
} ||= $self->{DISTNAME
}.'-'.$self->{VERSION
};
my $dist_macros = $mm->dist(%overrides);
Generates a make fragment defining all the macros initialized in
%overrides can be used to override any of the above.
my($self, %attribs) = @_;
TAR TARFLAGS ZIP ZIPFLAGS COMPRESS SUFFIX SHAR
CI RCS_LABEL DIST_CP DIST_DEFAULT
my $value = $attribs{$key} || $self->{$key};
$make .= "$key = $value\n";
Defines the targets distclean, distcheck, skipcheck, manifest, veryclean.
distclean :: realclean distcheck
$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
$(RM_F) *~ *.orig */*~ */*.orig
Defines a check in target for RCS.
$(PERLRUN) "-MExtUtils::Manifest=maniread" \\
-e "@all = keys %{ maniread() };" \\
-e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \\
-e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"
my $dist_make_fragment = $MM->dist_core;
Puts the targets necessary for 'make dist' together into one make
foreach my $target (qw(dist tardist uutardist tarfile zipdist zipfile
my $method = $target.'_target';
$make_frag .= $self->$method();
my $make_frag = $MM->dist_target;
Returns the 'dist' target to make an archive for distribution. This
target simply checks to make sure the Makefile is up-to-date and
depends on $(DIST_DEFAULT).
my $date_check = $self->oneliner(<<'CODE', ['-l']);
print 'Warning: Makefile possibly out of date with $(VERSION_FROM)'
if -e '$(VERSION_FROM)' and -M '$(VERSION_FROM)' < -M '$(FIRST_MAKEFILE)';
return sprintf <<'MAKE_FRAG', $date_check;
dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
my $make_frag = $MM->tardist_target;
Returns the 'tardist' target which is simply so 'make tardist' works.
The real work is done by the dynamically named tardistfile_target()
method, tardist should have that as a dependency.
tardist : $(DISTVNAME).tar$(SUFFIX)
my $make_frag = $MM->zipdist_target;
Returns the 'zipdist
' target which is simply so 'make zipdist
' works.
The real work is done by the dynamically named zipdistfile_target()
method, zipdist should have that as a dependency.
zipdist
: $(DISTVNAME
).zip
my $make_frag = $MM->tarfile_target;
The name of this target is the name of the tarball generated by
tardist. This target does the actual work of turning the distdir into
$(DISTVNAME).tar$(SUFFIX) : distdir
$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
$(COMPRESS) $(DISTVNAME).tar
my $make_frag = $MM->zipfile_target;
The name of this target is the name of the zip file generated by
zipdist. This target does the actual work of turning the distdir into
$(DISTVNAME).zip : distdir
$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
my $make_frag = $MM->uutardist_target;
Converts the tarfile into a uuencoded file
uutardist
: $(DISTVNAME
).tar
$(SUFFIX
)
uuencode
$(DISTVNAME
).tar
$(SUFFIX
) $(DISTVNAME
).tar
$(SUFFIX
) > $(DISTVNAME
).tar
$(SUFFIX
)_uu
my $make_frag = $MM->shdist_target;
Converts the distdir into a shell archive.
$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
Used by some OS' to define DL_FUNCS and DL_VARS and write the *.exp files.
Normally just returns an empty string.
Defines targets for bootstrap files.
my($self, %attribs) = @_;
' unless $self->has_link_code();
my $target = $Is_VMS ? '$(MMS$TARGET)' : '$@';
return sprintf <<'MAKE_FRAG
', ($target) x 5;
BOOTSTRAP = $(BASEEXT).bs
# As Mkbootstrap might not write a file (if none is required)
# we use touch to prevent make continually trying to remake it.
# The DynaLoader only reads a non-empty file.
$(BOOTSTRAP) : $(FIRST_MAKEFILE) $(BOOTDEP) $(INST_ARCHAUTODIR)$(DFSEP).exists
$(NOECHO) $(ECHO) "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
"-MExtUtils::Mkbootstrap" \
-e "Mkbootstrap('$(BASEEXT
)','$(BSLOADLIBS
)');"
$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
Defines how to produce the *.so (or equivalent) files.
my($self, %attribs) = @_;
return '' unless $self->needs_linking(); #might be because of a subdir
return '' unless $self->has_link_code;
my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
my($armaybe) = $attribs{ARMAYBE} || $self->{ARMAYBE} || ":";
my($ldfrom) = '$(LDFROM
)';
$armaybe = 'ar
' if ($Is_OSF and $armaybe eq ':');
my $ld_opt = $Is_OS2 ? '$(OPTIMIZE
) ' : ''; # Useful on other systems too?
my $ld_fix = $Is_OS2 ? '|| ( $(RM_F
) $@
&& sh
-c false
)' : '';
# This section creates the dynamically loadable $(INST_DYNAMIC)
# from $(OBJECT) and possibly $(MYEXTLIB).
OTHERLDFLAGS
= '.$ld_opt.$otherldflags.'
INST_DYNAMIC_DEP
= '.$inst_dynamic_dep.'
INST_DYNAMIC_FIX
= '.$ld_fix.'
$(INST_DYNAMIC
): $(OBJECT
) $(MYEXTLIB
) $(BOOTSTRAP
) $(INST_ARCHAUTODIR
)$(DFSEP
).exists $(EXPORT_LIST
) $(PERL_ARCHIVE
) $(PERL_ARCHIVE_AFTER
) $(INST_DYNAMIC_DEP
)
$ldfrom = 'tmp
$(LIB_EXT
)';
push(@m,' $(ARMAYBE
) cr
'.$ldfrom.' $(OBJECT
)'."\n");
push(@m,' $(RANLIB
) '."$ldfrom\n");
$ldfrom = "-all $ldfrom -none" if $Is_OSF;
# The IRIX linker doesn't
use LD_RUN_PATH
my $ldrun = $Is_IRIX && $self->{LD_RUN_PATH
} ?
qq{-rpath
"$self->{LD_RUN_PATH}"} : '';
# For example in AIX the shared objects/libraries from previous builds
# linger quite a while in the shared dynalinker cache even when nobody
# is using them. This is painful if one for instance tries to restart
# a failed build because the link command will fail unnecessarily 'cos
# the shared object/library is 'busy'.
my $libs = '$(LDLOADLIBS)';
if (($Is_NetBSD || $Is_Interix) && $Config{'useshrplib'}) {
# Use nothing on static perl platforms, and to the flags needed
# to link against the shared libperl library on shared perl
# platforms. We peek at lddlflags to see if we need -Wl,-R
# or -R to add paths to the run-time library search path.
if ($Config{'lddlflags'} =~ /-Wl,-R/) {
$libs .= ' -L$(PERL_INC) -Wl,-R$(INSTALLARCHLIB)/CORE -Wl,-R$(PERL_ARCHLIB)/CORE -lperl';
} elsif ($Config{'lddlflags'} =~ /-R/) {
$libs .= ' -L$(PERL_INC) -R$(INSTALLARCHLIB)/CORE -R$(PERL_ARCHLIB)/CORE -lperl';
my $ld_run_path_shell = "";
if ($self->{LD_RUN_PATH
} ne "") {
$ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
push @m, sprintf <<'MAKE', $ld_run_path_shell, $ldrun, $ldfrom, $libs;
%s$(LD) %s $(LDDLFLAGS) %s $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
$(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
Deprecated method. Use libscan instead.
Called by init_others, and calls ext ExtUtils::Liblist. See
L<ExtUtils::Liblist> for details.
require ExtUtils
::Liblist
;
$self->ext($libs, $Verbose);
Finds the executables PERL and FULLPERL
my($self, $ver, $names, $dirs, $trace) = @_;
print "Looking for perl $ver by these names:
if( open(STDERR_COPY
, '>&STDERR') ) {
find_perl() can't dup STDERR: $!
You might see some garbage while we search for Perl
next unless defined $dir; # $self->{PERL_SRC} may be undefined
if ($self->file_name_is_absolute($name)) { # /foo/bar
} elsif ($self->canonpath($name) eq
$self->canonpath(basename
($name))) { # foo
$abs = $self->catfile($dir, $name);
$abs = $self->catfile($Curdir, $name);
print "Checking $abs\n" if ($trace >= 2);
next unless $self->maybe_command($abs);
print "Executing $abs\n" if ($trace >= 2);
my $version_check = qq{$abs -le "require $ver; print qq{VER_OK}"};
# To avoid using the unportable 2>&1 to supress STDERR,
# we close it before running the command.
# However, thanks to a thread library bug in many BSDs
# ( http://www.freebsd.org/cgi/query-pr.cgi?pr=51535 )
# we cannot use the fancier more portable way in here
# but instead need to use the traditional 2>&1 construct.
$val = `$version_check 2>&1`;
close STDERR
if $stderr_duped;
open STDERR
, '>&STDERR_COPY' if $stderr_duped;
print "Using PERL=$abs\n" if $trace;
print "Result: '$val'\n";
print STDOUT
"Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
Inserts the sharpbang or equivalent magic number to a set of @files.
sub fixin
{ # stolen from the pink Camel book, more or less
my($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/;
my $file_new = "$file.new";
my $file_bak = "$file.bak";
open(FIXIN
, $file) or croak
"Can't process '$file': $!";
chomp(my $line = <FIXIN
>);
next unless $line =~ s/^\s*\#!\s*//; # Not a shbang file.
# Now figure out the interpreter name.
my($cmd,$arg) = split ' ', $line, 2;
# Now look (in reverse) for interpreter in absolute PATH (unless perl).
if ($Config{startperl
} =~ m
,^\#
!.*/perl
,) {
$interpreter = $Config{startperl
};
$interpreter =~ s
,^\#
!,,;
$interpreter = $Config{perlpath
};
my(@absdirs) = reverse grep {$self->file_name_is_absolute} $self->path;
foreach $dir (@absdirs) {
if ($self->maybe_command($cmd)) {
warn "Ignoring $interpreter in $file\n" if $Verbose && $interpreter;
$interpreter = $self->catfile($dir,$cmd);
# Figure out how to invoke interpreter on this machine.
print STDOUT
"Changing sharpbang in $file to $interpreter" if $Verbose;
# this is probably value-free on DOSISH platforms
$shb .= "$Config{'sharpbang'}$interpreter";
$shb .= ' ' . $arg if defined $arg;
eval 'exec $interpreter $arg -S \$0 \${1+"\$\@"}'
if 0; # not running under some shell
} unless $Is_Win32; # this won't work on win32, so don't
warn "Can't find $cmd in PATH, $file unchanged"
unless ( open(FIXOUT
,">$file_new") ) {
warn "Can't create new $file: $!\n";
# Print out the new #! line (or equivalent).
print FIXOUT
$shb, <FIXIN
>;
unless ( _rename
($file, $file_bak) ) {
warn "Can't rename $file to $file_bak: $!";
unless ( _rename
($file_new, $file) ) {
warn "Can't rename $file_new to $file: $!";
unless ( _rename
($file_bak, $file) ) {
warn "Can't rename $file_bak back to $file either: $!";
warn "Leaving $file renamed as $file_bak\n";
close(FIXIN
) if fileno(FIXIN
);
system("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';;
foreach my $file ($old, $new) {
if( $Is_VMS and basename
($file) !~ /\./ ) {
# rename() in 5.8.0 on VMS will not rename a file if it
# does not contain a dot yet it returns success.
return rename($old, $new);
Writes an empty FORCE: target.
'# Phony target to force checking subdirectories.
Guess the name of this package by examining the working directory's
name. MakeMaker calls this only if the developer has not supplied a
my $name = basename
(cwd
());
$name =~ s
|[\
-_
][\d\
.\
-]+\z
||; # this is new with MM 5.00, we
# strip minus or underline
# followed by a float or some such
print "Warning: Guessing NAME [$name] from current directory name.\n";
Returns true if C, XS, MYEXTLIB or similar objects exist within this
object that need a compiler. Does not descend into subdirectories as
return $self->{HAS_LINK_CODE
} if defined $self->{HAS_LINK_CODE
};
if ($self->{OBJECT
} or @
{$self->{C
} || []} or $self->{MYEXTLIB
}){
$self->{HAS_LINK_CODE
} = 1;
return $self->{HAS_LINK_CODE
} = 0;
Scans the directory structure and initializes DIR, XS, XS_FILES, PM,
C, C_FILES, O_FILES, H, H_FILES, PL_FILES, MAN*PODS, EXE_FILES.
sub init_dirscan
{ # --- File and Directory Lists (.xs .pm .pod etc)
my($name, %dir, %xs, %c, %h, %pl_files, %manifypods);
my %ignore = map {( $_ => 1 )} qw(Makefile.PL Build.PL test.pl t);
$Is_VMS ?
$ignore{"$self->{DISTVNAME}.dir"} = 1
: $ignore{$self->{DISTVNAME
}} = 1;
@ignore{map lc, keys %ignore} = values %ignore if $Is_VMS;
foreach $name ($self->lsdir($Curdir)){
next if $name eq $Curdir or $name eq $Updir or $ignore{$name};
next unless $self->libscan($name);
next if -l
$name; # We do not support symlinks at all
next if $self->{NORECURS
};
$dir{$name} = $name if (-f
$self->catfile($name,"Makefile.PL"));
} elsif ($name =~ /\.xs\z/){
my($c); ($c = $name) =~ s/\.xs\z/.c/;
} elsif ($name =~ /\.c(pp|xx|c)?\z/i){ # .c .C .cpp .cxx .cc
unless $name =~ m/perlmain\.c/; # See MAP_TARGET
} elsif ($name =~ /\.h\z/i){
} elsif ($name =~ /\.PL\z/) {
($pl_files{$name} = $name) =~ s/\.PL\z// ;
} elsif (($Is_VMS || $Is_Dos) && $name =~ /[._]pl$/i) {
# case-insensitive filesystem, one dot per name, so foo.h.PL
# under Unix appears as foo.h_pl under VMS or fooh.pl on Dos
local($/); open(PL
,$name); my $txt = <PL
>; close PL
;
if ($txt =~ /Extracting \S+ \(with variable substitutions/) {
($pl_files{$name} = $name) =~ s/[._]pl\z//i ;
$pm{$name} = $self->catfile($self->{INST_LIBDIR
},$name);
} elsif ($name =~ /\.(p[ml]|pod)\z/){
$pm{$name} = $self->catfile($self->{INST_LIBDIR
},$name);
# Some larger extensions often wish to install a number of *.pm/pl
# files into the library in various locations.
# The attribute PMLIBDIRS holds an array reference which lists
# subdirectories which we should search for library files to
# install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ]. We
# recursively search through the named directories (skipping any
# which don't exist or contain Makefile.PL files).
# For each *.pm or *.pl file found $self->libscan() is called with
# the default installation path in $_[1]. The return value of
# libscan defines the actual installation location. The default
# libscan function simply returns the path. The file is skipped
# if libscan returns false.
# The default installation location passed to libscan in $_[1] is:
# ./*.pm => $(INST_LIBDIR)/*.pm
# ./xyz/... => $(INST_LIBDIR)/xyz/...
# ./lib/... => $(INST_LIB)/...
# In this way the 'lib' directory is seen as the root of the actual
# perl library whereas the others are relative to INST_LIBDIR
# (which includes PARENT_NAME). This is a subtle distinction but one
# that's important for nested modules.
unless( $self->{PMLIBDIRS
} ) {
# Avoid logical name vs directory collisions
$self->{PMLIBDIRS
} = ['./lib', "./$self->{BASEEXT}"];
$self->{PMLIBDIRS
} = ['lib', $self->{BASEEXT
}];
#only existing directories that aren't in $dir are allowed
# Avoid $_ wherever possible:
# @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
my (@pmlibdirs) = @
{$self->{PMLIBDIRS
}};
@
{$self->{PMLIBDIRS
}} = ();
foreach $pmlibdir (@pmlibdirs) {
-d
$pmlibdir && !$dir{$pmlibdir} && push @
{$self->{PMLIBDIRS
}}, $pmlibdir;
if (@
{$self->{PMLIBDIRS
}}){
print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
unless ($self->libscan($_)){
return if /~$/; # emacs temp files
return if /,v$/; # RCS files
my $path = $File::Find
::name
;
my $prefix = $self->{INST_LIBDIR
};
$prefix = $self->{INST_LIB
}
if ($striplibpath = $path) =~ s
:^(\W
*)lib\W
:$1:i
;
my($inst) = $self->catfile($prefix,$striplibpath);
local($_) = $inst; # for backwards compatibility
$inst = $self->libscan($inst);
print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
}, @
{$self->{PMLIBDIRS
}});
$self->{PL_FILES
} ||= \
%pl_files;
$self->{DIR
} ||= [sort keys %dir];
$self->{C
} ||= [sort keys %c];
my @o_files = @
{$self->{C
}};
$self->{O_FILES
} = [grep s/\.c(pp|xx|c)?\z/$self->{OBJ_EXT}/i, @o_files];
$self->{H
} ||= [sort keys %h];
# Set up names of manual pages to generate from pods
foreach my $man (qw(MAN1 MAN3)) {
unless ($self->{"${man}PODS"}) {
$self->{"${man}PODS"} = {};
$self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/;
if ( exists $self->{EXE_FILES
} ) {
foreach $name (@
{$self->{EXE_FILES
}}) {
if (/^=(?:head\d+|item|pod)\b/) {
# If it doesn't exist yet, we assume, it has pods in it
$self->{MAN1PODS
}->{$name} =
$self->catfile("\$(INST_MAN1DIR)", basename
($name).".\$(MAN1EXT)");
my %manifypods = (); # we collect the keys first, i.e. the files
# we have to convert to pod
foreach $name (keys %{$self->{PM
}}) {
if ($name =~ /\.pod\z/ ) {
$manifypods{$name} = $self->{PM
}{$name};
} elsif ($name =~ /\.p[ml]\z/ ) {
$manifypods{$name} = $self->{PM
}{$name};
# Remove "Configure.pm" and similar, if it's not the only pod listed
# To force inclusion, just name it "Configure.pod", or override
foreach $name (keys %manifypods) {
if ($self->{PERL_CORE
} and $name =~ /(config|setup).*\.pm/is) {
delete $manifypods{$name};
my($manpagename) = $name;
$manpagename =~ s/\.p(od|m|l)\z//;
# everything below lib is ok
unless($manpagename =~ s!^\W*lib\W+!!s) {
$manpagename = $self->catfile(
split(/::/,$self->{PARENT_NAME
}),$manpagename
$manpagename = $self->replace_manpage_separator($manpagename);
$self->{MAN3PODS
}->{$name} =
$self->catfile("\$(INST_MAN3DIR)", "$manpagename.\$(MAN3EXT)");
Using / for Unix. Called by init_main.
$self->{DIRFILESEP
} = '/';
Initializes AR, AR_STATIC_ARGS, BASEEXT, CONFIG, DISTNAME, DLBASE,
EXE_EXT, FULLEXT, FULLPERL, FULLPERLRUN, FULLPERLRUNINST, INST_*,
INSTALL*, INSTALLDIRS, LIB_EXT, LIBPERL_A, MAP_TARGET, NAME,
OBJ_EXT, PARENT_NAME, PERL, PERL_ARCHLIB, PERL_INC, PERL_LIB,
PERL_SRC, PERLRUN, PERLRUNINST, PREFIX, VERSION,
# --- Initialize Module Name and Paths
# NAME = Foo::Bar::Oracle
# FULLEXT = Foo/Bar/Oracle
### $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket
$self->{FULLEXT
} = $self->catdir(split /::/, $self->{NAME
});
# Copied from DynaLoader:
my(@modparts) = split(/::/,$self->{NAME
});
my($modfname) = $modparts[-1];
# Some systems have restrictions on files names for DLL's etc.
# mod2fname returns appropriate file base name (typically truncated)
# It may also edit @modparts if required.
if (defined &DynaLoader
::mod2fname
) {
$modfname = &DynaLoader
::mod2fname
(\
@modparts);
($self->{PARENT_NAME
}, $self->{BASEEXT
}) = $self->{NAME
} =~ m!(?:([\w:]+)::)?(\w+)\z! ;
$self->{PARENT_NAME
} ||= '';
if (defined &DynaLoader
::mod2fname
) {
# As of 5.001m, dl_os2 appends '_'
$self->{DLBASE
} = $modfname;
$self->{DLBASE
} = '$(BASEEXT)';
# --- Initialize PERL_LIB, PERL_SRC
# *Real* information: where did we get these two from? ...
my $inc_config_dir = dirname
($INC{'Config.pm'});
my $inc_carp_dir = dirname
($INC{'Carp.pm'});
unless ($self->{PERL_SRC
}){
$self->catdir($Updir,$Updir),
$self->catdir($Updir,$Updir,$Updir),
$self->catdir($Updir,$Updir,$Updir,$Updir),
$self->catdir($Updir,$Updir,$Updir,$Updir,$Updir))
-f
$self->catfile($dir,"config_h.SH")
-f
$self->catfile($dir,"perl.h")
-f
$self->catfile($dir,"lib","Exporter.pm")
warn "PERL_CORE is set but I can't find your PERL_SRC!\n" if
$self->{PERL_CORE
} and !$self->{PERL_SRC
};
$self->{PERL_LIB
} ||= $self->catdir("$self->{PERL_SRC}","lib");
if (defined $Cross::platform
) {
$self->catdir("$self->{PERL_SRC}","xlib",$Cross::platform
);
$self->catdir("$self->{PERL_SRC}","xlib",$Cross::platform
,
$self->{PERL_ARCHLIB
} = $self->{PERL_LIB
};
$self->{PERL_INC
} = ($Is_Win32) ?
$self->catdir($self->{PERL_LIB
},"CORE") : $self->{PERL_SRC
};
# catch a situation that has occurred a few times in the past:
-s
$self->catfile($self->{PERL_SRC
},'cflags')
-s
$self->catfile($self->{PERL_SRC
},'perlshr_attr.opt')
You cannot build extensions below the perl source tree after executing
a
'make clean' in the perl source tree
.
To rebuild extensions distributed with the perl source you should
simply Configure
(to include those extensions
) and then build perl as
normal
. After installing perl the source tree can be deleted
. It is
not needed
for building extensions by running
'perl Makefile.PL'
usually without extra arguments
.
It is recommended that you
unpack and build additional extensions away
from the perl source tree
.
# we should also consider $ENV{PERL5LIB} here
my $old = $self->{PERL_LIB
} || $self->{PERL_ARCHLIB
} || $self->{PERL_INC
};
$self->{PERL_LIB
} ||= $Config{privlibexp
};
$self->{PERL_ARCHLIB
} ||= $Config{archlibexp
};
$self->{PERL_INC
} = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
if (not -f
($perl_h = $self->catfile($self->{PERL_INC
},"perl.h"))
# Maybe somebody tries to build an extension with an
# uninstalled Perl outside of Perl build tree
$found = $dir, last if -e
$self->catdir($dir, "Config.pm");
my $inc = dirname
$found;
if (-e
$self->catdir($inc, "perl.h")) {
$self->{PERL_LIB
} = $found;
$self->{PERL_ARCHLIB
} = $found;
$self->{PERL_INC
} = $inc;
$self->{UNINSTALLED_PERL
} = 1;
... Detected uninstalled Perl. Trying to continue.
# We get SITELIBEXP and SITEARCHEXP directly via
# Get_from_Config. When we are running standard modules, these
# won't matter, we will set INSTALLDIRS to "perl". Otherwise we
# set it to "site". I prefer that INSTALLDIRS be set from outside
$self->{INSTALLDIRS
} ||= "site";
$self->{MAN1EXT
} ||= $Config{man1ext
};
$self->{MAN3EXT
} ||= $Config{man3ext
};
# Get some stuff out of %Config if we haven't yet done so
print STDOUT
"CONFIG must be an array ref\n"
if ($self->{CONFIG
} and ref $self->{CONFIG
} ne 'ARRAY');
$self->{CONFIG
} = [] unless (ref $self->{CONFIG
});
push(@
{$self->{CONFIG
}}, @ExtUtils::MakeMaker
::Get_from_Config
);
push(@
{$self->{CONFIG
}}, 'shellflags') if $Config{shellflags
};
foreach my $m (@
{$self->{CONFIG
}}){
print STDOUT
"CONFIG key '$m' does not exist in Config.pm\n"
unless exists $Config{$m};
$self->{uc $m} ||= $Config{$m};
# $self->{AR} = "libtool";
# $self->{AR_STATIC_ARGS} = "-o";
# But I leave it as a placeholder
$self->{AR_STATIC_ARGS
} ||= "cr";
# These should never be needed
$self->{OBJ_EXT
} ||= '.o';
$self->{LIB_EXT
} ||= '.a';
$self->{MAP_TARGET
} ||= "perl";
$self->{LIBPERL_A
} ||= "libperl$self->{LIB_EXT}";
# make a simple check if we find Exporter
warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
unless -f
$self->catfile("$self->{PERL_LIB}","Exporter.pm") ||
$self->{NAME
} eq "ExtUtils::MakeMaker";
Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH, LD,
OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, SHELL, NOOP,
FIRST_MAKEFILE, MAKEFILE_OLD, NOECHO, RM_F, RM_RF, TEST_F,
TOUCH, CP, MV, CHMOD, UMASK_NULL, ECHO, ECHO_N
sub init_others
{ # --- Initialize Other Attributes
# Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
# Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
# undefined. In any case we turn it into an anon array:
# May check $Config{libs} too, thus not empty.
$self->{LIBS
} = [$self->{LIBS
}] unless ref $self->{LIBS
};
$self->{LIBS
} = [''] unless @
{$self->{LIBS
}} && defined $self->{LIBS
}[0];
$self->{LD_RUN_PATH
} = "";
foreach $libs ( @
{$self->{LIBS
}} ){
$libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
my(@libs) = $self->extliblist($libs);
if ($libs[0] or $libs[1] or $libs[2]){
# LD_RUN_PATH now computed by ExtUtils::Liblist
($self->{EXTRALIBS
}, $self->{BSLOADLIBS
},
$self->{LDLOADLIBS
}, $self->{LD_RUN_PATH
}) = @libs;
$self->{OBJECT
} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
# init_dirscan should have found out, if we have C files
$self->{OBJECT
} = '$(BASEEXT)$(OBJ_EXT)' if @
{$self->{C
}||[]};
$self->{OBJECT
} =~ s/\n+/ \\\n\t/g;
$self->{BOOTDEP
} = (-f
"$self->{BASEEXT}_BS") ?
"$self->{BASEEXT}_BS" : "";
$self->{PERLMAINCC
} ||= '$(CC)';
$self->{LDFROM
} = '$(OBJECT)' unless $self->{LDFROM
};
# Sanity check: don't define LINKTYPE = dynamic if we're skipping
# the 'dynamic' section of MM. We don't have this problem with
# 'static', since we either must use it (%Config says we can't
# use dynamic loading) or the caller asked for it explicitly.
if (!$self->{LINKTYPE
}) {
$self->{LINKTYPE
} = $self->{SKIPHASH
}{'dynamic'}
: ($Config{usedl
} ?
'dynamic' : 'static');
$self->{NOOP
} ||= '$(SHELL) -c true';
$self->{NOECHO
} = '@' unless defined $self->{NOECHO
};
$self->{FIRST_MAKEFILE
} ||= $self->{MAKEFILE
} || 'Makefile';
$self->{MAKEFILE
} ||= $self->{FIRST_MAKEFILE
};
$self->{MAKEFILE_OLD
} ||= $self->{MAKEFILE
}.'.old';
$self->{MAKE_APERL_FILE
} ||= $self->{MAKEFILE
}.'.aperl';
# Some makes require a wrapper around macros passed in on the command
$self->{MACROSTART
} ||= '';
$self->{MACROEND
} ||= '';
# Not everybody uses -f to indicate "use this Makefile instead"
$self->{USEMAKEFILE
} ||= '-f';
$self->{SHELL
} ||= $Config{sh
} || '/bin/sh';
$self->{ECHO
} ||= 'echo';
$self->{ECHO_N
} ||= 'echo -n';
$self->{RM_F
} ||= "rm -f";
$self->{RM_RF
} ||= "rm -rf";
$self->{TOUCH
} ||= "touch";
$self->{TEST_F
} ||= "test -f";
$self->{CHMOD
} ||= "chmod";
$self->{MKPATH
} ||= '$(ABSPERLRUN) "-MExtUtils::Command" -e mkpath';
$self->{EQUALIZE_TIMESTAMP
} ||=
'$(ABSPERLRUN) "-MExtUtils::Command" -e eqtime';
$self->oneliner(<<'CODE', ['-MExtUtils::Install']);
install({@ARGV}, '$(VERBINST)', 0, '$(UNINST)');
'$(ABSPERLRUN) "-MExtUtils::Command::MM" -e perllocal_install';
'$(ABSPERLRUN) "-MExtUtils::Command::MM" -e uninstall';
$self->{WARN_IF_OLD_PACKLIST
} ||=
'$(ABSPERLRUN) "-MExtUtils::Command::MM" -e warn_if_old_packlist';
q{$(PERLRUN) "-MExtUtils::MY" -e "MY->fixin(shift)"};
$self->{UMASK_NULL
} ||= "umask 0";
$self->{DEV_NULL
} ||= "> /dev/null 2>&1";
Unix has no need of special linker flags.
$self->{PERL_ARCHIVE
} ||= '';
$self->{PERL_ARCHIVE_AFTER
} ||= '';
$self->{EXPORT_LIST
} ||= '';
# The user who requests an installation directory explicitly
# should not have to tell us an architecture installation directory
# as well. We look if a directory exists that is named after the
# architecture. If not we take it as a sign that it should be the
# same as the requested installation directory. Otherwise we take
for my $libpair ({l
=>"privlib", a
=>"archlib"},
{l
=>"sitelib", a
=>"sitearch"},
{l
=>"vendorlib", a
=>"vendorarch"},
my $lib = "install$libpair->{l}";
my $Arch = uc "install$libpair->{a}";
if( $self->{$Lib} && ! $self->{$Arch} ){
my($ilib) = $Config{$lib};
$self->prefixify($Arch,$ilib,$self->{$Lib});
unless (-d
$self->{$Arch}) {
print STDOUT
"Directory $self->{$Arch} not found\n"
$self->{$Arch} = $self->{$Lib};
print STDOUT
"Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
Called by init_main. Sets up ABSPERL, PERL, FULLPERL and all the
PERL is allowed to be miniperl
FULLPERL must be a complete perl
ABSPERL is PERL converted to an absolute path
*PERLRUN contains everything necessary to run perl, find it's
*PERLRUNINST is *PERLRUN + everything necessary to find the
foreach my $component ($self->{PERL_SRC
}, $self->path(),
push @defpath, $component if defined $component;
# Build up a set of file names (not command names).
my $thisperl = $self->canonpath($^X
);
$thisperl .= $Config{exe_ext
} unless
# VMS might have a file version # at the end
$Is_VMS ?
$thisperl =~ m/$Config{exe_ext}(;\d+)?$/i
: $thisperl =~ m/$Config{exe_ext}$/i;
# We need a relative path to perl when in the core.
$thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE
};
push @perls, map { "$_$Config{exe_ext}" }
('perl', 'perl5', "perl$Config{version}");
# miniperl has priority over all but the cannonical perl when in the
# core. Otherwise its a last resort.
my $miniperl = "miniperl$Config{exe_ext}";
if( $self->{PERL_CORE
} ) {
splice @perls, 1, 0, $miniperl;
$self->find_perl(5.0, \
@perls, \
@defpath, $Verbose );
# don't check if perl is executable, maybe they have decided to
# supply switches with perl
# When built for debugging, VMS doesn't create perl.exe but ndbgperl.exe.
$perl_name = 'ndbgperl' if $Is_VMS &&
defined $Config{usevmsdebug
} && $Config{usevmsdebug
} eq 'define';
# XXX This logic is flawed. If "miniperl" is anywhere in the path
# it will get confused. It should be fixed to work only on the filename.
# Define 'FULLPERL' to be a non-miniperl (used in test: target)
($self->{FULLPERL
} = $self->{PERL
}) =~ s/miniperl/$perl_name/i
unless $self->{FULLPERL
};
# Little hack to get around VMS's find_perl putting "MCR" in front
$self->{ABSPERL
} = $self->{PERL
};
my $has_mcr = $self->{ABSPERL
} =~ s/^MCR\s*//;
if( $self->file_name_is_absolute($self->{ABSPERL
}) ) {
$self->{ABSPERL
} = '$(PERL)';
$self->{ABSPERL
} = $self->rel2abs($self->{ABSPERL
});
$self->{ABSPERL
} = 'MCR '.$self->{ABSPERL
} if $has_mcr;
# Are we building the core?
$self->{PERL_CORE
} = $ENV{PERL_CORE
} unless exists $self->{PERL_CORE
};
$self->{PERL_CORE
} = 0 unless defined $self->{PERL_CORE
};
foreach my $perl (qw(PERL FULLPERL ABSPERL)) {
$self->{$run} = "\$($perl)";
# Make sure perl can find itself before it's installed.
$self->{$run} .= q{ "-I$(PERL_LIB)" "-I$(PERL_ARCHLIB)"}
if $self->{UNINSTALLED_PERL
} || $self->{PERL_CORE
};
$self->{$perl.'RUNINST'} =
sprintf q{$(%sRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"}, $perl;
$self->{MM_Unix_VERSION} = $VERSION;
$self->{PERL_MALLOC_DEF} = '-DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc '.
'-Dfree=Perl_mfree -Drealloc=Perl_realloc '.
foreach my $macro (qw(MM_Unix_VERSION PERL_MALLOC_DEF))
next unless defined $self->{$macro};
$make_frag .= "$macro = $self->{$macro}\n";
Called by init_main. Initializes PERL_*
$self->{PERM_RW
} = 644 unless defined $self->{PERM_RW
};
$self->{PERM_RWX
} = 755 unless defined $self->{PERM_RWX
};
Sets up macros having to do with XS code. Currently just INST_STATIC,
INST_DYNAMIC and INST_BOOT.
if ($self->has_link_code()) {
$self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT)$(LIB_EXT)');
$self->catfile('$(INST_ARCHAUTODIR)', '$(DLBASE).$(DLEXT)');
$self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT).bs');
$self->{INST_STATIC
} = '';
$self->{INST_DYNAMIC
} = '';
Defines the install target.
my($self, %attribs) = @_;
install :: all pure_install doc_install
install_perl :: all pure_perl_install doc_perl_install
install_site :: all pure_site_install doc_site_install
install_vendor :: all pure_vendor_install doc_vendor_install
pure_install :: pure_$(INSTALLDIRS)_install
doc_install :: doc_$(INSTALLDIRS)_install
pure__install : pure_site_install
$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
doc__install : doc_site_install
$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
$(NOECHO) $(MOD_INSTALL) \
read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
$(INST_LIB) $(DESTINSTALLPRIVLIB) \
$(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
$(INST_BIN) $(DESTINSTALLBIN) \
$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \
$(INST_MAN3DIR) $(DESTINSTALLMAN3DIR)
$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
}.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{
$(NOECHO) $(MOD_INSTALL) \
read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
$(INST_LIB) $(DESTINSTALLSITELIB) \
$(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \
$(INST_BIN) $(DESTINSTALLSITEBIN) \
$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
$(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \
$(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR)
$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
$(NOECHO) $(MOD_INSTALL) \
read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \
$(INST_LIB) $(DESTINSTALLVENDORLIB) \
$(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
$(INST_BIN) $(DESTINSTALLVENDORBIN) \
$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
$(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
$(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-$(NOECHO) $(DOC_INSTALL) \
"installed into" "$(INSTALLPRIVLIB)" \
EXE_FILES "$(EXE_FILES)" \
>> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-$(NOECHO) $(DOC_INSTALL) \
"installed into" "$(INSTALLSITELIB)" \
EXE_FILES "$(EXE_FILES)" \
>> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-$(NOECHO) $(DOC_INSTALL) \
"installed into" "$(INSTALLVENDORLIB)" \
EXE_FILES "$(EXE_FILES)" \
>> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
uninstall :: uninstall_from_$(INSTALLDIRS)dirs
uninstall_from_perldirs ::
$(NOECHO) $(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
uninstall_from_sitedirs ::
$(NOECHO) $(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
uninstall_from_vendordirs ::
$(NOECHO) $(UNINSTALL) }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{
Defines targets to make and to install EXE_FILES.
return "" unless $self->{EXE_FILES
} && ref $self->{EXE_FILES
} eq "ARRAY";
my @exefiles = @
{$self->{EXE_FILES
}};
return "" unless @exefiles;
@exefiles = map vmsify
($_), @exefiles if $Is_VMS;
for my $from (@exefiles) {
my($path)= $self->catfile('$(INST_SCRIPT)', basename
($from));
local($_) = $path; # for backwards compatibility
my $to = $self->libscan($path);
print "libscan($from) => '$to'\n" if ($Verbose >=2);
$to = vmsify
($to) if $Is_VMS;
# realclean can get rather large.
push @m, map "\t$_\n", $self->split_command('$(RM_F)', @to);
# A target for each exe file.
while (my($from,$to) = each %fromto) {
last unless defined $from;
push @m, sprintf <<'MAKE', $to, $from, $to, $from, $to, $to, $to;
%s : %s $(FIRST_MAKEFILE) $(INST_SCRIPT)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists
-$(NOECHO) $(CHMOD) $(PERM_RWX) %s
Defines the linkext target which in turn defines the LINKTYPE.
my($self, %attribs) = @_;
# LINKTYPE => static or dynamic or ''
my($linktype) = defined $attribs{LINKTYPE
} ?
$attribs{LINKTYPE
} : '$(LINKTYPE)';
Takes as arguments a directory name and a regular expression. Returns
all entries in the directory that match the regular expression.
$dh->open($dir || ".") or return ();
@ls = grep(/$regex/, @ls) if $regex;
Simple subroutine to insert the macros defined by the macro attribute
while (($key,$val) = each %attribs){
last unless defined $key;
push @m, "$key = $val\n";
Called by staticmake. Defines how to write the Makefile to produce a
By default the Makefile produced includes all the static extensions in
the perl library. (Purified versions of library files, e.g.,
DynaLoader_pure_p1_c0_032.a are automatically ignored to avoid link errors.)
my($self, %attribs) = @_;
my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
@attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
# --- MakeMaker makeaperl section ---
FULLPERL = $self->{FULLPERL}
return join '', @m if $self->{PARENT
};
my($dir) = join ":", @
{$self->{DIR
}};
unless ($self->{MAKEAPERL
}) {
$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
$(NOECHO) $(PERLRUNINST) \
Makefile.PL DIR=}, $dir, q{ \
MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
# push @m, map( " \\\n\t\t$_", @ARGV );
my($cccmd, $linkcmd, $lperl);
$cccmd = $self->const_cccmd($libperl);
$cccmd =~ s/^CCCMD\s*=\s*//;
$cccmd =~ s/\$\(INC\)/ "-I$self->{PERL_INC}" /;
$cccmd .= " $Config{cccdlflags}"
if ($Config{useshrplib
} eq 'true');
$cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
# The front matter of the linkcommand...
$linkcmd = join ' ', "\$(CC)",
grep($_, @Config{qw(ldflags ccdlflags)});
$linkcmd =~ s
,(perl\
.exp),\
$(PERL_INC
)/$1,;
# Which *.a files could we make use of...
return unless m/\Q$self->{LIB_EXT}\E$/;
return if m/^libperl/ or m/^perl\Q$self->{LIB_EXT}\E$/;
# Skip purified versions of libraries
# (e.g., DynaLoader_pure_p1_c0_032.a)
return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f
"$File::Find::dir/.pure";
if( exists $self->{INCLUDE_EXT
} ){
($xx = $File::Find
::name
) =~ s
,.*?
/auto/,,s
;
# Throw away anything not explicitly marked for inclusion.
foreach $incl ((@
{$self->{INCLUDE_EXT
}},'DynaLoader')){
elsif( exists $self->{EXCLUDE_EXT
} ){
($xx = $File::Find
::name
) =~ s
,.*?
/auto/,,s
;
# Throw away anything explicitly marked for exclusion
foreach $excl (@
{$self->{EXCLUDE_EXT
}}){
return if( $xx eq $excl );
# don't include the installed version of this extension. I
# leave this line here, although it is not necessary anymore:
# I patched minimod.PL instead, so that Miniperl.pm won't
# Once the patch to minimod.PL is in the distribution, I can
return if $File::Find
::name
=~ m
:auto
/$self->{FULLEXT}/$self->{BASEEXT
}$self->{LIB_EXT
}\z
:;
$static{cwd
() . "/" . $_}++;
}, grep( -d
$_, @
{$searchdirs || []}) );
# We trust that what has been handed in as argument, will be buildable
$static = [] unless $static;
@static{@
{$static}} = (1) x @
{$static};
$extra = [] unless $extra && ref $extra eq 'ARRAY';
for (sort keys %static) {
next unless /\Q$self->{LIB_EXT}\E\z/;
$_ = dirname
($_) . "/extralibs.ld";
grep(s/^(.*)/"-I$1"/, @
{$perlinc || []});
# MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
# regenerate the Makefiles, MAP_STATIC and the dependencies for
# extralibs.all are computed correctly
MAP_PERLINC = @{$perlinc || []}
join(" \\\n\t", reverse sort keys %static), "
MAP_PRELIBS = $Config{perllibs} $Config{cryptlib}
($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
unless ($libperl && -f
$lperl) { # Ilya's code...
my $dir = $self->{PERL_SRC
} || "$self->{PERL_ARCHLIB}/CORE";
$dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL
};
$libperl ||= "libperl$self->{LIB_EXT}";
$libperl = "$dir/$libperl";
$lperl ||= "libperl$self->{LIB_EXT}";
if (! -f
$libperl and ! -f
$lperl) {
# We did not find a static libperl. Maybe there is a shared one?
$lperl = $libperl = "$dir/$Config{libperl}";
# SUNOS ld does not take the full path to a shared library
$libperl = '' if $Is_SunOS4;
print STDOUT
"Warning: $libperl not found
If you're going to build a static perl binary, make sure perl is installed
otherwise ignore this warning\n"
unless (-f
$lperl || defined($self->{PERL_SRC
}));
# SUNOS ld does not take the full path to a shared library
my $llibperl = $libperl ?
'$(MAP_LIBPERL)' : '-lperl';
$(INST_ARCHAUTODIR)/extralibs.all : $(INST_ARCHAUTODIR)$(DFSEP).exists '.join(" \\\n\t", @
$extra).'
foreach $catfile (@
$extra){
push @m, "\tcat $catfile >> \$\@\n";
\$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
\$(MAP_LINKCMD) -o \$\@ \$(OPTIMIZE) $tmp/perlmain\$(OBJ_EXT) \$(LDFROM) \$(MAP_STATIC) \$(LLIBPERL) `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
\$(NOECHO) \$(ECHO) 'To install the new \"\$(MAP_TARGET)\" binary, call'
\$(NOECHO) \$(ECHO) ' \$(MAKE) \$(USEMAKEFILE) $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
\$(NOECHO) \$(ECHO) 'To remove the intermediate files say'
\$(NOECHO) \$(ECHO) ' \$(MAKE) \$(USEMAKEFILE) $makefilename map_clean'
$tmp/perlmain\$(OBJ_EXT): $tmp/perlmain.c
push @m, "\t".$self->cd($tmp, qq[$cccmd "-I\$(PERL_INC)" perlmain
.c
])."\n";
$tmp/perlmain
.c
: $makefilename}, q{
$(NOECHO) $(ECHO) Writing $@
$(NOECHO) $(PERL) $(MAP_PERLINC) "-MExtUtils::Miniperl" \\
-e "writemain(grep s#.*/auto/##s, split(q| |, q|$(MAP_STATIC)|))" > $@t && $(MV) $@t $@
push @m, "\t", q{$(NOECHO) $(PERL) $(INSTALLSCRIPT)/fixpmain
} if (defined (&Dos
::UseLFN
) && Dos
::UseLFN
()==0);
$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-$(NOECHO) $(DOC_INSTALL) \
"Perl binary" "$(MAP_TARGET)" \
MAP_STATIC "$(MAP_STATIC)" \
MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
MAP_LIBPERL "$(MAP_LIBPERL)" \
>> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
inst_perl: pure_inst_perl doc_inst_perl
pure_inst_perl: $(MAP_TARGET)
}.$self->{CP
}.q{ $(MAP_TARGET) }.$self->catfile('$(DESTINSTALLBIN)','$(MAP_TARGET)').q{
}.$self->{RM_F
}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain
.c \
$(MAP_TARGET
) $makefilename \
$(INST_ARCHAUTODIR
)/extralibs
.all
Defines how to rewrite the Makefile.
# We do not know what target was originally specified so we
# must force a manual rerun to be sure. But as it should only
# happen very rarely it is not a significant problem.
$(OBJECT) : $(FIRST_MAKEFILE)
my $newer_than_target = $Is_VMS ?
'$(MMS$SOURCE_LIST)' : '$?';
my $mpl_args = join " ", map qq["$_"], @ARGV;
$m .= sprintf <<'MAKE_FRAG', $newer_than_target, $mpl_args;
# We take a very conservative approach here, but it's worth it.
# We move Makefile to Makefile.old here to avoid gnu make looping.
$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
$(NOECHO) $(ECHO) "Makefile out-of-date with respect to %s"
$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
-$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
- $(MAKE) $(USEMAKEFILE
) $(MAKEFILE_OLD
) clean
$(DEV_NULL
)
$(PERLRUN
) Makefile
.PL
%s
$(NOECHO
) $(ECHO
) "==> Your Makefile has been rebuilt. <=="
$(NOECHO
) $(ECHO
) "==> Please rerun the $(MAKE) command. <=="
Returns true, if the argument is likely to be a command.
return $file if -x
$file && ! -d
$file;
Does this module need linking? Looks into subdirectory objects (see
$caller = (caller(0))[3];
confess
("needs_linking called too early") if
$caller =~ /^ExtUtils::MakeMaker::/;
return $self->{NEEDS_LINKING
} if defined $self->{NEEDS_LINKING
};
if ($self->has_link_code or $self->{MAKEAPERL
}){
$self->{NEEDS_LINKING
} = 1;
foreach $child (keys %{$self->{CHILDREN
}}) {
if ($self->{CHILDREN
}->{$child}->needs_linking) {
$self->{NEEDS_LINKING
} = 1;
return $self->{NEEDS_LINKING
} = 0;
misnamed method (will have to be changed). The MM_Unix method just
returns the argument without further processing.
On VMS used to insure that colons marking targets are preceded by
space - most Unix Makes don't need this, but it's necessary under VMS
to distinguish the target delimiter from a colon appearing as part of
parse a file and return what you think is the ABSTRACT
my($self,$parsefile) = @_;
open(FH
,$parsefile) or die "Could not open '$parsefile': $!";
my $package = $self->{DISTNAME
};
$inpod = /^=(?!cut)/ ?
1 : /^=cut/ ?
0 : $inpod;
next unless /^($package\s-\s)(.*)/;
parse a file and return what you think is $VERSION in this file set to.
It will return the string "undef" if it can't figure out what $VERSION
is. $VERSION should be for all to see, so our $VERSION or plain $VERSION
are okay, but my $VERSION is not.
my($self,$parsefile) = @_;
open(FH
,$parsefile) or die "Could not open '$parsefile': $!";
$inpod = /^=(?!cut)/ ?
1 : /^=cut/ ?
0 : $inpod;
next if $inpod || /^\s*#/;
next unless /(?<!\\)([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
package ExtUtils
::MakeMaker
::_version
;
warn "Could not eval '$eval' in $parsefile: $@" if $@
;
$result = "undef" unless defined $result;
Defines the string that is passed to recursive make calls in
my($sep) = $Is_VMS ?
',' : '';
foreach $key (qw(LIB LIBPERL_A LINKTYPE OPTIMIZE
next unless defined $self->{$key};
push @pasthru, "$key=\"\$($key)\"";
foreach $key (qw(DEFINE INC)) {
next unless defined $self->{$key};
push @pasthru, "PASTHRU_$key=\"\$(PASTHRU_$key)\"";
push @m, "\nPASTHRU = ", join ($sep, @pasthru), "\n";
Takes one argument, a file name, and returns the file name, if the
argument is likely to be a perl script. On MM_Unix this is true for
any ordinary, readable file.
return $file if -r
$file && -f _
;
Defines the dependency from all *.h files that come with the perl
my $make_config = $self->cd('$(PERL_SRC)', '$(MAKE) lib/Config.pm');
push @m, sprintf <<'MAKE_FRAG', $make_config if $self->{PERL_SRC};
# Check for unpropogated config.sh changes. Should never happen.
# We do NOT just update config.h because that is not sufficient.
# An out of date config.h is not fatal but complains loudly!
$(PERL_INC)/config.h: $(PERL_SRC)/config.sh
-$(NOECHO) $(ECHO) "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; false
$(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
$(NOECHO) $(ECHO) "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
return join "", @m unless $self->needs_linking;
$(PERL_INC)/cc_runtime.h \
$(PERL_INC)/patchlevel.h \
push @m, join(" ", values %{$self->{XS
}})." : \$(XSUBPPDEPS)\n" if %{$self->{XS
}};
Returns the attribute C<PERM_RW> or the string C<644>.
Used as the string that is passed
to the C<chmod> command to set the permissions for read/writeable files.
MakeMaker chooses C<644> because it has turned out in the past that
relying on the umask provokes hard-to-track bug reports.
When the return value is used by the perl function C<chmod>, it is
interpreted as an octal value.
Returns the attribute C<PERM_RWX> or the string C<755>,
i.e. the string that is passed
to the C<chmod> command to set the permissions for executable files.
return shift->{PERM_RWX
};
Defines target that copies all files in the hash PM to their
destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION>
my($autodir) = $self->catdir('$(INST_LIB)','auto');
pm_to_blib : $(TO_INST_PM)
my $pm_to_blib = $self->oneliner(<<CODE, ['-MExtUtils::Install']);
pm_to_blib({\@ARGV}, '$autodir', '\$(PM_FILTER)')
my @cmds = $self->split_command($pm_to_blib, %{$self->{PM
}});
$r .= join '', map { "\t\$(NOECHO) $_\n" } @cmds;
$r .= qq{\t\
$(NOECHO
) \
$(TOUCH
) pm_to_blib
\n};
Returns an empty string per default. Dedicated to overrides from
within Makefile.PL after all constants have been defined.
=item post_initialize (o)
Returns an empty string per default. Used in Makefile.PLs to add some
chunk of text to the Makefile after the object is initialized.
Returns an empty string. Can be used in Makefile.PLs to write some
text to the Makefile at the end.
Defines target that creates a PPD (Perl Package Description) file
for a binary distribution.
if ($self->{ABSTRACT_FROM
}){
$self->{ABSTRACT
} = $self->parse_abstract($self->{ABSTRACT_FROM
}) or
carp
"WARNING: Setting ABSTRACT via file ".
"'$self->{ABSTRACT_FROM}' failed\n";
my ($pack_ver) = join ",", (split (/\./, $self->{VERSION
}), (0)x4
)[0..3];
my $abstract = $self->{ABSTRACT
} || '';
$abstract =~ s/\n/\\n/sg;
my $author = $self->{AUTHOR
} || '';
my $ppd_xml = sprintf <<'PPD_HTML', $pack_ver, $abstract, $author;
<SOFTPKG NAME="$(DISTNAME)" VERSION="%s">
<TITLE>$(DISTNAME)</TITLE>
$ppd_xml .= " <IMPLEMENTATION>\n";
foreach my $prereq (sort keys %{$self->{PREREQ_PM}}) {
my ($dep_ver) = join ",", (split (/\./, $self->{PREREQ_PM}{$prereq}),
$ppd_xml .= sprintf <<'PPD_OUT
', $pre_req, $dep_ver;
<DEPENDENCY NAME="%s" VERSION="%s" />
$ppd_xml .= sprintf <<'PPD_OUT', $Config{archname
};
<ARCHITECTURE NAME
="%s" />
if ($self->{PPM_INSTALL_SCRIPT
}) {
if ($self->{PPM_INSTALL_EXEC
}) {
$ppd_xml .= sprintf qq{ <INSTALL EXEC
="%s">%s</INSTALL
>\n},
$self->{PPM_INSTALL_EXEC
}, $self->{PPM_INSTALL_SCRIPT
};
$ppd_xml .= sprintf qq{ <INSTALL
>%s</INSTALL
>\n},
$self->{PPM_INSTALL_SCRIPT
};
my ($bin_location) = $self->{BINARY_LOCATION
} || '';
$bin_location =~ s/\\/\\\\/g;
$ppd_xml .= sprintf <<'PPD_XML', $bin_location;
my @ppd_cmds = $self->echo($ppd_xml, '$(DISTNAME).ppd');
return sprintf <<'PPD_OUT
', join "\n\t", @ppd_cmds;
# Creates a PPD (Perl Package Description
) for a binary distribution
.
$MM->prefixify($var, $prefix, $new_prefix, $default);
Using either $MM->{uc $var} || $Config{lc $var}, it will attempt to
replace it's $prefix with a $new_prefix.
Should the $prefix fail to match I<AND> a PREFIX was given as an
argument to WriteMakefile() it will set it to the $new_prefix +
$default. This is for systems whose file layouts don't neatly fit into
This is for heuristics which attempt to create directory structures
that mirror those of the installed perl.
$MM->prefixify('installman1dir', '/usr', '/home/foo', 'man/man1');
this will attempt to remove '/usr' from the front of the
$MM->{INSTALLMAN1DIR} path (initializing it to $Config{installman1dir}
if necessary) and replace it with '/home/foo'. If this fails it will
simply use '/home/foo/man/man1'.
my($self,$var,$sprefix,$rprefix,$default) = @_;
my $path = $self->{uc $var} ||
$Config_Override{lc $var} || $Config{lc $var} || '';
$rprefix .= '/' if $sprefix =~ m
|/$|;
print STDERR
" prefixify $var => $path\n" if $Verbose >= 2;
print STDERR
" from $sprefix to $rprefix\n" if $Verbose >= 2;
if( $self->{ARGS
}{PREFIX
} && $self->file_name_is_absolute($path) &&
$path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
print STDERR
" cannot prefix, using default.\n" if $Verbose >= 2;
print STDERR
" no default!\n" if !$default && $Verbose >= 2;
$path = $self->catdir($rprefix, $default) if $default;
print " now $path\n" if $Verbose >= 2;
return $self->{uc $var} = $path;
Defines targets to run *.PL files.
my $pl_files = $self->{PL_FILES
};
return "" unless $pl_files;
foreach my $plfile (sort keys %$pl_files) {
my $list = ref($pl_files->{$plfile})
: [$pl_files->{$plfile}];
foreach my $target (@
$list) {
$plfile = vmsify
($plfile);
$target = vmsify
($target);
# Normally a .PL file runs AFTER pm_to_blib so it can have
# blib in its @INC and load the just built modules. BUT if
# the generated module is something in $(TO_INST_PM) which
# pm_to_blib depends on then it can't depend on pm_to_blib
# else we have a dependency loop.
if( defined $self->{PM
}{$target} ) {
$perlrun = 'PERLRUNINST';
$target :: $plfile $pm_dep
\$($perlrun) $plfile $target
Backslashes parentheses C<()> in command line arguments.
Doesn't handle recursive Makefile C<$(...)> constructs,
$arg =~ s{\$\((.+?)\)}{\$\\\\($1\\\\)}g; # protect $(...)
$arg =~ s{(?<!\\)([()])}{\\$1}g; # quote unprotected
$arg =~ s{\$\\\\\((.+?)\\\\\)}{\$($1)}g; # unprotect $(...)
=item replace_manpage_separator
my $man_name = $MM->replace_manpage_separator($file_path);
Takes the name of a package, which may be a nested package, in the
form 'Foo/Bar.pm' and replaces the slash with C<::> or something else
safe for a man page file name. Returns the replacement.
sub replace_manpage_separator {
my($self, $dir, @cmds) = @_;
# No leading tab and no trailing newline makes for easier embedding
my $make_frag = join "\n\t", map { "cd $dir && $_" } @cmds;
my($self, $cmd, $switches) = @_;
$switches = [] unless defined $switches;
# Strip leading and trailing newlines
my @cmds = split /\n/, $cmd;
$cmd = join " \n\t -e ", map $self->quote_literal($_), @cmds;
$cmd = $self->escape_newlines($cmd);
$switches = join ' ', @$switches;
return qq{\$(ABSPERLRUN) $switches -e $cmd};
# I think all we have to quote is single quotes and I think
# this is a safe way to do it.
Using POSIX::ARG_MAX. Otherwise falling back to 4096.
if (!defined $self->{_MAX_EXEC_LEN}) {
if (my $arg_max = eval { require POSIX; &POSIX::ARG_MAX }) {
$self->{_MAX_EXEC_LEN} = $arg_max;
else { # POSIX minimum exec size
$self->{_MAX_EXEC_LEN} = 4096;
return $self->{_MAX_EXEC_LEN};
Defines the static target.
# --- Static Loading Sections ---
## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make static"
static :: $(FIRST_MAKEFILE) $(INST_STATIC)
Defines how to produce the *.a (or equivalent) files.
return '' unless $self->has_link_code;
$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
# If this extension has its own library (eg SDBM_File)
# then copy that to $(INST_STATIC) and add $(OBJECT) into it.
push(@m, <<'MAKE_FRAG') if $self->{MYEXTLIB};
if (exists $self->{FULL_AR} && -x $self->{FULL_AR}) {
# Prefer the absolute pathed ar if available so that PATH
# doesn't confuse us. Perl itself is built with the full_ar.
push @m, sprintf <<'MAKE_FRAG
', $ar;
$(%s) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
$(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
# Old mechanism - still available:
push @m, <<'MAKE_FRAG' if $self->{PERL_SRC
} && $self->{EXTRALIBS
};
$(NOECHO
) $(ECHO
) "$(EXTRALIBS)" >> $(PERL_SRC
)/ext
.libs
my($self, %attribs) = @_;
my(@searchdirs)=($self->{PERL_ARCHLIB
}, $self->{SITEARCHEXP
}, $self->{INST_ARCHLIB
});
# And as it's not yet built, we add the current extension
# but only if it has some C code (or XS code, which implies C code)
@static = $self->catfile($self->{INST_ARCHLIB
},
"$self->{BASEEXT}$self->{LIB_EXT}"
# Either we determine now, which libraries we will produce in the
# subdirectories or we do it at runtime of the make.
# We could ask all subdir objects, but I cannot imagine, why it
# Instead we determine all libraries for the new perl at
my(@perlinc) = ($self->{INST_ARCHLIB
}, $self->{INST_LIB
}, $self->{PERL_ARCHLIB
}, $self->{PERL_LIB
});
$self->makeaperl(MAKE
=> $self->{MAKEFILE
},
TARGET
=> $self->{MAP_TARGET
},
LIBPERL
=> $self->{LIBPERL_A
}
Helper subroutine for subdirs
my $subdir_cmd = $self->cd($subdir,
'$(MAKE) $(USEMAKEFILE
) $(FIRST_MAKEFILE
) all
$(PASTHRU
)'
return sprintf <<'EOT', $subdir_cmd;
Defines targets to process subdirectories.
# --- Sub-directory Sections ---
# This method provides a mechanism to automatically deal with
# subdirectories containing further Makefile.PL scripts.
# It calls the subdir_x() method for each subdirectory.
foreach $dir (@
{$self->{DIR
}}){
push(@m, $self->subdir_x($dir));
#### print "Including $dir subdirectory\n";
# The default clean, realclean and test targets in this Makefile
# have automatically been given entries for each subdir.
Defines the test targets.
# --- Test and Installation Sections ---
my($self, %attribs) = @_;
my $tests = $attribs{TESTS
} || '';
$tests = $self->find_tests;
# note: 'test.pl' name is also hardcoded in init_dirscan()
TEST_TYPE=test_\$(LINKTYPE)
testdb :: testdb_\$(LINKTYPE)
foreach my $dir (@
{ $self->{DIR
} }) {
my $test = $self->oneliner(sprintf <<'CODE', $dir);
system '$(MAKE) test $(PASTHRU)'
if -f '$(FIRST_MAKEFILE)';
push(@m, "\t\$(NOECHO) $test\n");
push(@m, "\t\$(NOECHO) \$(ECHO) 'No tests defined for \$(NAME) extension.'\n")
unless $tests or -f
"test.pl" or @
{$self->{DIR
}};
push(@m, "test_dynamic :: pure_all\n");
push(@m, $self->test_via_harness('$(FULLPERLRUN)', '$(TEST_FILES)'))
push(@m, $self->test_via_script('$(FULLPERLRUN)', '$(TEST_FILE)'))
push(@m, "testdb_dynamic :: pure_all\n");
push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)',
# Occasionally we may face this degenerate target:
push @m, "test_ : test_dynamic\n\n";
if ($self->needs_linking()) {
push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
push(@m, $self->test_via_harness('./$(MAP_TARGET)', '$(TEST_FILES)')) if $tests;
push(@m, $self->test_via_script('./$(MAP_TARGET)', '$(TEST_FILE)')) if -f
"test.pl";
push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
push(@m, $self->test_via_script('./$(MAP_TARGET) $(TESTDB_SW)', '$(TEST_FILE)'));
push @m, "test_static :: test_dynamic\n";
push @m, "testdb_static :: testdb_dynamic\n";
=item test_via_harness (override)
For some reason which I forget, Unix machines like to have
PERL_DL_NONLAZY set for tests.
my($self, $perl, $tests) = @_;
return $self->SUPER::test_via_harness
("PERL_DL_NONLAZY=1 $perl", $tests);
=item test_via_script (override)
Again, the PERL_DL_NONLAZY thing.
my($self, $perl, $script) = @_;
return $self->SUPER::test_via_script
("PERL_DL_NONLAZY=1 $perl", $script);
my $make_frag = $MM->tools_other;
Returns a make fragment containing definitions for the macros init_others()
# We set PM_FILTER as late as possible so it can see all the earlier
# on macro-order sensitive makes such as nmake.
for my $tool (qw{ SHELL CHMOD CP MV NOOP NOECHO RM_F RM_RF TEST_F TOUCH
UMASK_NULL DEV_NULL MKPATH EQUALIZE_TIMESTAMP
MOD_INSTALL DOC_INSTALL UNINSTALL
next unless defined $self->{$tool};
push @m, "$tool = $self->{$tool}\n";
Determines typemaps, xsubpp version, prototype behaviour.
return "" unless $self->needs_linking;
# Make sure we pick up the new xsubpp if we're building perl.
unshift @xsubpp_dirs, $self->{PERL_LIB
} if $self->{PERL_CORE
};
foreach my $dir (@xsubpp_dirs) {
$xsdir = $self->catdir($dir, 'ExtUtils');
if( -r
$self->catfile($xsdir, "xsubpp") ) {
my $tmdir = File
::Spec
->catdir($self->{PERL_LIB
},"ExtUtils");
my(@tmdeps) = $self->catfile($tmdir,'typemap');
foreach $typemap (@
{$self->{TYPEMAPS
}}){
warn "Typemap $typemap not found.\n";
push(@tmdeps, "typemap") if -f
"typemap";
my(@tmargs) = map("-typemap $_", @tmdeps);
if( exists $self->{XSOPT
} ){
unshift( @tmargs, $self->{XSOPT
} );
$Config{'ldflags'} =~ m!/Debug!i &&
(!exists($self->{XSOPT
}) || $self->{XSOPT
} !~ /linenumbers/)
unshift(@tmargs,'-nolinenumbers');
$self->{XSPROTOARG
} = "" unless defined $self->{XSPROTOARG
};
XSUBPP
= \
$(XSUBPPDIR
)\
$(DFSEP
)xsubpp
XSUBPPRUN
= \
$(PERLRUN
) \
$(XSUBPP
)
XSPROTOARG
= $self->{XSPROTOARG
}
XSUBPPDEPS
= @tmdeps \
$(XSUBPP
)
all :: pure_all manifypods
Defines the targets all, subdirs, config, and O_FILES
# --- Target Sections ---
push @m, $self->all_target, "\n" unless $self->{SKIPHASH}{'all'};
pure_all :: config pm_to_blib subdirs linkext
config :: $(FIRST_MAKEFILE) blibdirs
' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
perldoc ExtUtils::MakeMaker
Obsolete, deprecated method. Not used since Version 5.21.
# --- perllocal.pod section ---
my($self,$what,$name,@attribs)=@_;
print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
print join "\n\n=item *\n\n", map("C<$_>",@attribs);
Defines the suffix rules to compile XS files to C.
return '' unless $self->needs_linking();
$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
Defines the suffix rules to compile XS files to C++.
return '' unless $self->needs_linking();
$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.cpp
Defines suffix rules to go from XS to object files directly. This is
only intended for broken make implementations.
sub xs_o
{ # many makes are too dumb to use xs_c then c_o
return '' unless $self->needs_linking();
$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c