1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
| | # This -*- perl -*- script makes the Makefile
# $Id: Makefile.PL,v 1.5 1997/02/05 22:23:03 gbarr Exp $
#--- Distribution section ---
$NAME = 'Net';
$DISTNAME = "libnet";
$VERSION = "1.07";
BEGIN { require 5.002 }
use ExtUtils::MakeMaker;
use ExtUtils::Manifest qw(maniread);
#--- MY package
sub MY::libscan
{
my($self,$path) = @_;
return ''
if($path =~ m:/(RCS|CVS|SCCS)/: ||
$path =~ m:[~%]$: ||
$path =~ m:\.(orig|rej|nfs)$:
);
$path;
}
#--- Installation check
sub chk_version
{
my($pkg,$wanted,$msg) = @_;
local($|) = 1;
print "Checking for $pkg...";
eval { my $p; ($p = $pkg . ".pm") =~ s#::#/#g; require $p; };
my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"}
: "not found";
my $vnum = ${"${pkg}::VERSION"} || 0;
print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n";
$vnum >= $wanted;
}
sub MY::post_initialize
{
my ($self) = @_;
#--- Create Net::Config
my $config_pm = "Net/libnet.cfg";
my $libnet_cfg = "libnet.cfg";
# Use %INC and ExtUtils::MakeMaker to determine how this machine
# maps package names to path names
foreach (keys %INC) {
last if ($config_pm = $_) =~ s/^ExtUtils(.)MakeMaker.pm/Net${1}libnet.cfg/;
}
system(($^O eq 'VMS' ? 'mcr ': ()),$^X, 'Configure')
unless -f $libnet_cfg;
$self->{PM}->{$libnet_cfg} = $self->catfile('$(INST_LIBDIR)',$config_pm);
"";
}
#--- Check for Socket
chk_version(Socket => '1.30') or
warn "\n"
. "*** For Net::Cmd to work you require version 1.30, or later, of\n"
. " Socket.pm from CPAN/modules/by-module/Socket/Socket-x.x.tar.gz\n\n";
chk_version(IO::Socket => '1.05') or
warn "\n"
. "*** For Net::Cmd to work you require version 1.05, or later, of\n"
. " IO/Socket.pm from CPAN/modules/by-module/IO/IO-x.x.tar.gz\n\n";
#--- Write the Makefile
WriteMakefile(
VERSION => $VERSION,
DISTNAME => $DISTNAME,
NAME => $NAME,
AUTHOR => 'Graham Barr <gbarr@pobox.com>',
ABSTRACT => 'Collection of Network protocol modules',
'realclean' => {FILES => $config_pm},
PREREQ_PM => {
Socket => 1.3,
IO::Socket => 1.05
},
);
|