1 package # hide from PAUSE
7 use constant SPURIOUS_VERSION_CHECK_WARNINGS => ($] < 5.010 ? 1 : 0);
12 our @EXPORT_OK = qw(modver_gt_or_eq);
17 croak "Nonsensical module name supplied"
18 if ! defined $mod or ! length $mod;
20 croak "Nonsensical minimum version supplied"
21 if ! defined $ver or $ver =~ /[^0-9\.\_]/;
23 local $SIG{__WARN__} = do {
24 my $orig_sig_warn = $SIG{__WARN__} || sub { warn @_ };
26 $orig_sig_warn->(@_) unless $_[0] =~ /\Qisn't numeric in subroutine entry/
28 } if SPURIOUS_VERSION_CHECK_WARNINGS;
31 eval { $mod->VERSION($ver) } ? 1 : 0;