diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Deep/RegexpVersion.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test/Deep/RegexpVersion.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Deep/RegexpVersion.pm b/Master/tlpkg/tlperl/lib/Test/Deep/RegexpVersion.pm new file mode 100755 index 00000000000..6cbfa857ffc --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Test/Deep/RegexpVersion.pm @@ -0,0 +1,13 @@ +use strict; +use warnings; + +package Test::Deep::RegexpVersion; + +use vars qw( $OldStyle ); + +# Older versions of Perl treated Regexp refs as opaque scalars blessed +# into the "Regexp" class. Several bits of code need this so we +# centralise the test for that kind of version. +$OldStyle = ($] < 5.011); + +1; |