1use strict; 2use warnings; 3 4package Test::Deep::RegexpVersion; 5 6use vars qw( $OldStyle ); 7 8# Older versions of Perl treated Regexp refs as opaque scalars blessed 9# into the "Regexp" class. Several bits of code need this so we 10# centralise the test for that kind of version. 11$OldStyle = ($] < 5.011); 12 131; 14