+my $latest_dev_rev = 23;
+
+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;
+}
+