use strict;
use vars qw($VERSION @ISA);
-$VERSION = 0.06;
+$VERSION = 0.07;
@ISA = qw(File::Spec);
use Config;
=over 4
+=item installvars
+
+ my @installvars = $mm->installvars;
+
+A list of all the INSTALL* variables without the INSTALL prefix. Useful
+for iteration or building related variable sets.
+
+=cut
+
+sub installvars {
+ return qw(PRIVLIB SITELIB VENDORLIB
+ ARCHLIB SITEARCH VENDORARCH
+ BIN SITEBIN VENDORBIN
+ SCRIPT
+ MAN1DIR SITEMAN1DIR VENDORMAN1DIR
+ MAN3DIR SITEMAN3DIR VENDORMAN3DIR
+ );
+}
+
=item os_flavor_is
$mm->os_flavor_is($this_flavor);
sub manifypods {
my $self = shift;
- my $POD2MAN_EXE_macro = $self->POD2MAN_EXE_macro();
+ my $POD2MAN_macro = $self->POD2MAN_macro();
my $manifypods_target = $self->manifypods_target();
return <<END_OF_TARGET;
-# --- Begin manifypods section:
-$POD2MAN_EXE_macro
+$POD2MAN_macro
$manifypods_target
-# --- End manifypods section --- #
-
END_OF_TARGET
}
foreach my $section (qw(1 3)) {
my $pods = $self->{"MAN${section}PODS"};
push @man_cmds, $self->split_command(<<CMD, %$pods);
- \$(NOECHO) \$(POD2MAN_EXE) --section=$section --perm_rw=\$(PERM_RW)
+ \$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW)
CMD
}
return $make_frag;
}
-=item POD2MAN_EXE_macro
+=item POD2MAN_macro
- my $pod2man_exe_macro = $self->POD2MAN_EXE_macro
+ my $pod2man_macro = $self->POD2MAN_macro
-Returns a definition for the POD2MAN_EXE macro. This is a program
+Returns a definition for the POD2MAN macro. This is a program
which emulates the pod2man utility. You can add more switches to the
command by simply appending them on the macro.
Typical usage:
- $(POD2MAN_EXE) --section=3 --perm_rw=$(PERM_RW) podfile man_page
+ $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) podfile1 man_page1 ...
=cut
-sub POD2MAN_EXE_macro {
+sub POD2MAN_macro {
my $self = shift;
# Need the trailing '--' so perl stops gobbling arguments and - happens
# to be an alternative end of line seperator on VMS so we quote it
return <<'END_OF_DEF';
POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
+POD2MAN = $(POD2MAN_EXE)
END_OF_DEF
}
MAKE_FRAG
my $prereq_pm = '';
- while( my($mod, $ver) = each %{$self->{PREREQ_PM}} ) {
+ foreach my $mod ( sort { lc $a cmp lc $b } keys %{$self->{PREREQ_PM}} ) {
+ my $ver = $self->{PREREQ_PM}{$mod};
$prereq_pm .= sprintf " %-30s %s\n", "$mod:", $ver;
}
my $meta = <<YAML;
+# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: $self->{DISTNAME}
version: $self->{VERSION}