Initial Commit
This commit is contained in:
11
database/perl/lib/Test/Deep/RegexpVersion.pm
Normal file
11
database/perl/lib/Test/Deep/RegexpVersion.pm
Normal file
@@ -0,0 +1,11 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
package Test::Deep::RegexpVersion;
|
||||
|
||||
# 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.
|
||||
our $OldStyle = ($] < 5.011);
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user