|
Packit |
0b51a0 |
use ExtUtils::MakeMaker;
|
|
Packit |
0b51a0 |
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
|
Packit |
0b51a0 |
# the contents of the Makefile that is written.
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my $check0 = 0;
|
|
Packit |
0b51a0 |
my $check1 = 0;
|
|
Packit |
0b51a0 |
my $now = time;
|
|
Packit |
0b51a0 |
my $then = (stat('./Makefile.old'))[9];
|
|
Packit |
0b51a0 |
# set number of seconds to view
|
|
Packit |
0b51a0 |
my $view = $then +86400 < $now ? 5:0;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my $pv = sprintf "%vd", $^V;
|
|
Packit |
0b51a0 |
unless ($pv lt '5.8.0' || $pv gt '5.8.5') {
|
|
Packit |
0b51a0 |
print
|
|
Packit |
0b51a0 |
qq(
|
|
Packit |
0b51a0 |
#################################################################
|
|
Packit |
0b51a0 |
######################### WARNING ###############################
|
|
Packit |
0b51a0 |
# #
|
|
Packit |
0b51a0 |
# YOUR VERSION OF PERL = $pv HAS SERIOUS BUGS #
|
|
Packit |
0b51a0 |
# #
|
|
Packit |
0b51a0 |
# Early versions of perl 5.8.x contain bugs that cause certain #
|
|
Packit |
0b51a0 |
# \@_ operations to fail. See perl bug [ 23429] #
|
|
Packit |
0b51a0 |
# Please upgrade to at least perl 5.8.6 #
|
|
Packit |
0b51a0 |
# #
|
|
Packit |
0b51a0 |
#################################################################
|
|
Packit |
0b51a0 |
);
|
|
Packit |
0b51a0 |
sleep $view if $view;
|
|
Packit |
0b51a0 |
}
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
unless (grep { m/-noxs/ } @ARGV) {
|
|
Packit |
0b51a0 |
print q{
|
|
Packit |
0b51a0 |
This build requires a C compiler by default except on Windows where
|
|
Packit |
0b51a0 |
the Pure Perl version is mandatory. The Pure Perl version, which does
|
|
Packit |
0b51a0 |
not require compilation of XS code, can be used by invoking this as:
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
perl Makefile.PL -noxs
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
};
|
|
Packit |
0b51a0 |
sleep $view if $view;
|
|
Packit |
0b51a0 |
}
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
sleep $view if $view && ($check0 || $check1);
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
print <
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
======================================================================
|
|
Packit |
0b51a0 |
W A R N I N G - Please do read below if you have legacy code
|
|
Packit |
0b51a0 |
======================================================================
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
Versions 3.21 and above of NetAddr::IP, include hooks for the Storable
|
|
Packit |
0b51a0 |
class that are incompatible with the old (automatic) method of storing
|
|
Packit |
0b51a0 |
data. To regain backwards compatibility, the module must be use()d as
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
use NetAddr::IP ':old_storable';
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
which will disable the new hooks and revert back to the old ways.
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
If you do not use Storable along with NetAddr::IP, or just don't know
|
|
Packit |
0b51a0 |
what this all means, most likely you're safe to go ahead.
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
Versions before 3.25 recognized by default IP addresses as returned by
|
|
Packit |
0b51a0 |
inet_aton. This is no longer the default. To enable this behavior
|
|
Packit |
0b51a0 |
again, the module must be use()d as
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
use NetAddr::IP ':aton';
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
Versions before 4.008 recognized the above syntax. This behavior is
|
|
Packit |
0b51a0 |
fundamentally broken, is DEPRECATED and WILL BE REMOVED in version 5.0
|
|
Packit |
0b51a0 |
Use this method to create new objects from 'aton's
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
\$ip = new_from_aton NetAddr::IP(inet_aton('1.2.3.4'))
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
EOF
|
|
Packit |
0b51a0 |
;
|
|
Packit |
0b51a0 |
sleep $view if $view;
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
my %makeparms = (
|
|
Packit |
0b51a0 |
# (MM->can('signature_target') ? (SIGN => 1) : ()),
|
|
Packit |
0b51a0 |
'NAME' => 'NetAddr::IP',
|
|
Packit |
0b51a0 |
'VERSION_FROM' => 'IP.pm', # finds $VERSION
|
|
Packit |
0b51a0 |
'PREREQ_PM' => {
|
|
Packit |
0b51a0 |
Test::More => 0,
|
|
Packit |
0b51a0 |
}, # e.g., Module::Name => 1.1
|
|
Packit |
0b51a0 |
($] >= 5.005 ? ## Add these new keywords supported since 5.005
|
|
Packit |
0b51a0 |
(ABSTRACT_FROM => 'IP.pm',
|
|
Packit |
0b51a0 |
AUTHOR => 'Luis E. Muñoz <luismunoz@cpan.org>, Michael Robinton <miker@cpan.org>') : ()),
|
|
Packit |
0b51a0 |
clean => { FILES => "*~ tmp* META.yml"},
|
|
Packit |
0b51a0 |
);
|
|
Packit |
0b51a0 |
|
|
Packit |
0b51a0 |
WriteMakefile(%makeparms);
|