use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
#--- 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;
#}
#chk_version("FileHandle",0) or
# die ("To install this module, you will need the FileHandle module,\n".
# "which should be part fo the normal distribution");
#chk_version("File::stat",0) or
# die ("To install this module, you will need the File::stat module,\n".
# "which should be part of your perl distribution\n");
#chk_version("IO::Seekable",0) or
# die ("To install this module, you will need the IO::Seekable module,\n".
# "Seekable.pm from CPAN/modules/by-module/IO/IO-x.x.tar.gz\n");
#chk_version("Time::HiRes",1.12) or
# die ("To install this module, you will need the Time::HiRes module,\n".
# "version 1.12 or later, \n".
# "available from CPAN/modules/by-module/Time/Time-HiRes-x.x.tar.gz\n");
my $i=0;
my $debug=0;
while (defined($ARGV[$i])) {
if ($ARGV[$i]=~/LOGIT/) {
splice(@ARGV,$i,1);
$debug=1;
}
$i++;
}
if ($debug) {
print "\nFile::Tail will be installed with debugging information\n\n";
open(INP,"<Tail.pm.debug");
open(OUT,">Tail.pm");
while (<INP>) {
print OUT $_;
}
close(INP);
close(OUT);
} else {
print "\nFile::Tail will be installed without debugging information.\n";
print "This information isn't usefull unless you intend to tinker \n";
print "with the code. To install with debugging enabled, use:\n";
print "perl Makefile.PL LOGIT\n";
open(INP,"<Tail.pm.debug");
open(OUT,">Tail.pm");
while (<INP>) {
print OUT $_ unless m/logit\(/;
}
close(INP);
close(OUT);
}
WriteMakefile(
'NAME' => 'File::Tail',
'VERSION_FROM' => 'Tail.pm.debug', # finds $VERSION
'PREREQ_PM' => { "FileHandle"=>0,
"File::stat"=>0,
"IO::Seekable"=>0,
"Time::HiRes"=>1.12
},
# 'NOECHO' => "",
);
syntax highlighted by Code2HTML, v. 0.9.1