package Apache::GTopLimit; require 5.005; use strict; use ExtUtils::MakeMaker; # prerequisites my %require = ( "GTop" => "0.09", "mod_perl" => "1.15", ); # Check prerequisites for (keys %require) { chk_version($_ => $require{$_}) or warn "\n" . "*** For ".__PACKAGE__." to work you require version $require{$_}" . ", or later, of\n$_.pm from CPAN\n\n"; } sub chk_version { my($pkg,$wanted) = @_; no strict 'refs'; local $| = 1; print "Checking for $pkg..."; eval { (my $p = $pkg . ".pm") =~ s|::|/|g; require $p;}; print("not ok\n$@"),return if $@; my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"} : "not found"; my $vnum = ${"${pkg}::VERSION"} || 0; print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n"; $vnum >= $wanted; } WriteMakefile( NAME => __PACKAGE__, VERSION_FROM => 'GTopLimit.pm', ( $] < 5.005 ? () : ( AUTHOR => 'Stas Bekman ', ABSTRACT_FROM => 'GTopLimit.pm', ) ), dist => { PREOP => 'pod2text GTopLimit.pm > $(DISTVNAME)/README', COMPRESS => 'gzip -9f', SUFFIX => '.gz', DIST_DEFAULT => 'tardist', }, PREREQ_PM => \%require, );