sub VERSION { my $proto = shift; if (@_ and $_[0] >= 2.00 and $] >= 5.017) { require re; re->import("eval"); } $proto->SUPER::VERSION(@_); }