diff -ur Test-Deep-0.104.orig/lib/Test/Deep/RegexpRef.pm Test-Deep-0.104.new/lib/Test/Deep/RegexpRef.pm
--- Test-Deep-0.104.orig/lib/Test/Deep/RegexpRef.pm	2008-05-31 05:37:11.000000000 -0500
+++ Test-Deep-0.104.new/lib/Test/Deep/RegexpRef.pm	2009-08-02 11:47:50.000000000 -0500
@@ -22,7 +22,7 @@
 
 	my $exp = $self->{val};
 
-	if ($] <= 5.010) {
+	if ($] < 5.011) {
 		return 0 unless $self->test_class($got, "Regexp");
 		return 0 unless $self->test_reftype($got, "SCALAR");
 	} else {
diff -ur Test-Deep-0.104.orig/lib/Test/Deep.pm Test-Deep-0.104.new/lib/Test/Deep.pm
--- Test-Deep-0.104.orig/lib/Test/Deep.pm	2009-03-05 16:53:03.000000000 -0600
+++ Test-Deep-0.104.new/lib/Test/Deep.pm	2009-08-02 11:48:13.000000000 -0500
@@ -352,7 +352,7 @@
 		{
 			$cmp = scalref($data);
 		}
-		elsif($] <= 5.010 ? ($base eq 'Regexp') : ($base eq 'REGEXP'))
+		elsif($] < 5.011 ? ($base eq 'Regexp') : ($base eq 'REGEXP'))
 		{
 			$cmp = regexpref($data);
 		}
@@ -377,7 +377,7 @@
 		my $reftype = Scalar::Util::reftype($val);
 
 
-		if ($] <= 5.010) {
+		if ($] < 5.011) {
 			if ($blessed eq "Regexp" and $reftype eq "SCALAR")
 			{
 				$reftype = "Regexp"
diff -ur Test-Deep-0.104.orig/t/deep_utils.t Test-Deep-0.104.new/t/deep_utils.t
--- Test-Deep-0.104.orig/t/deep_utils.t	2008-05-31 05:37:11.000000000 -0500
+++ Test-Deep-0.104.new/t/deep_utils.t	2009-08-02 11:48:21.000000000 -0500
@@ -28,5 +28,5 @@
 
 	my ($class, $base) = class_base($a);
 	is($class, "Regexp", "class_base class regexp");
-	is($base, ($] <= 5.010 ? "Regexp" : "REGEXP"), "class_base base regexp");
+	is($base, ($] < 5.011 ? "Regexp" : "REGEXP"), "class_base base regexp");
 }