},
);
+my $latest_dev_rev = 19;
+
+sub is_outdated_dev_perl {
+ my ($rev) = "$]" =~ /^5\.([0-9]{2}[13579])/;
+
+ return unless defined $rev;
+
+ return $rev < $latest_dev_rev;
+}
+
+if (is_outdated_dev_perl) {
+ print STDERR <<EOF;
+ This version of perl ($]) is an outdated development release.
+ re::engine::Hooks supports all stable releases since 5.10.1, and
+ development releases after 5.$latest_dev_rev.0 only. Please consider upgrading
+ your perl to a more recent release.
+EOF
+ exit 0;
+}
+
sub versioned_file {
my ($file) = @_;
unless (defined versioned_file('regcomp.c')) {
print STDERR <<EOF;
- This version of perl ($]) is not supported by this version of
- re::engine::Hooks. If your perl has been recently released,
- make sure there isn't a newer version of the module available
- on the CPAN.
+ This version of perl ($]) is not yet supported by this version of
+ re::engine::Hooks. If your perl has been recently released, make
+ sure there isn't a newer version of the module available on the CPAN.
EOF
exit 0;
}