X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSource%2FRowParser%2FUtil.pm;h=a20d07cb91589d1d7d8964a69a1a68cac93f5b8a;hp=6ef758903fe3871bae213cb3730f0a91b357c8b5;hb=750a4ad26c8fbe0f513a3abd4a9cb79ef8f40884;hpb=ee70a1ed59721a241ed998b465aa883bbbb55605

diff --git a/lib/DBIx/Class/ResultSource/RowParser/Util.pm b/lib/DBIx/Class/ResultSource/RowParser/Util.pm
index 6ef7589..a20d07c 100644
--- a/lib/DBIx/Class/ResultSource/RowParser/Util.pm
+++ b/lib/DBIx/Class/ResultSource/RowParser/Util.pm
@@ -7,7 +7,7 @@ use warnings;
 use List::Util 'first';
 use DBIx::Class::_Util 'perlstring';
 
-use constant HAS_DOR => ( $] < 5.010 ? 0 : 1 );
+use constant HAS_DOR => ( "$]" < 5.010 ? 0 : 1 );
 
 use base 'Exporter';
 our @EXPORT_OK = qw(