import Test-Deep 0.100 from CPAN

git-cpan-module:   Test-Deep
git-cpan-version:  0.100
git-cpan-authorid: FDALY
git-cpan-file:     authors/id/F/FD/FDALY/Test-Deep-0.100.tar.gz

Author: Fergal Daly

CHANGES

@@ -1,3 +1,8 @@
+0.100
+
+Apply patch from Andreas Koenig (ANDK) to cope with Perl 5.11's new
+REGEXP objects.
+
 0.099
 
 Don't explode on perl's that don't have weakrefs. If they're not

META.yml

@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Test-Deep
-version:      0.099
+version:      0.100
 version_from: ./lib/Test/Deep.pm
 installdirs:  perl
 requires:

lib/Test/Deep.pm

@@ -25,7 +25,7 @@ use vars qw(
 	$Snobby $Expects $DNE $DNE_ADDR $Shallow
 );
 
-$VERSION = '0.099';
+$VERSION = '0.100';
 
 require Exporter;
 @ISA = qw( Exporter );
@@ -333,7 +333,7 @@ sub wrap
 		{
 			$cmp = scalref($data);
 		}
-		elsif($base eq 'Regexp')
+		elsif($] <= 5.010 ? ($base eq 'Regexp') : ($base eq 'REGEXP'))
 		{
 			$cmp = regexpref($data);
 		}
@@ -357,11 +357,13 @@ sub class_base
 		$blessed = defined($blessed) ? $blessed : "";
 		my $reftype = Scalar::Util::reftype($val);
 
-		if ($blessed eq "Regexp" and $reftype eq "SCALAR")
-		{
-			$reftype = "Regexp"
-		}
 
+		if ($] <= 5.010) {
+			if ($blessed eq "Regexp" and $reftype eq "SCALAR")
+			{
+				$reftype = "Regexp"
+			}
+		}
 		return ($blessed, $reftype);
 	}
 	else

lib/Test/Deep.pod

@@ -839,15 +839,15 @@ C<$got_v eq $expected_v>, we pass control over to the SC and let it do it's
 thing.
 
 Test::Deep exports lots of SC constructors, to make it easy for you to use
-them in you tests scripts. For example is C<re("hello")> is just a handy way
+them in your test scripts. For example is C<re("hello")> is just a handy way
 of creating a Test::Deep::Regexp object that will match any string containing
 "hello". So
 
   cmp_deeply([ 'a', 'b', 'hello world'], ['a', 'b', re("^hello")]);
 
 will check C<'a' eq 'a'>, C<'b' eq 'b'> but when it comes to comparing
 C<'hello world'> and C<re("^hello")> it will see that
-$expected_v is an SC and so will pass control to the Test::Deep::Regex class
+$expected_v is an SC and so will pass control to the Test::Deep::Regexp class
 by do something like C<$expected_v->descend($got_v)>. The C<descend()>
 method should just return true or false.
 

lib/Test/Deep/RegexpRef.pm

@@ -22,8 +22,12 @@ sub descend
 
 	my $exp = $self->{val};
 
-	return 0 unless $self->test_class($got, "Regexp");
-	return 0 unless $self->test_reftype($got, "SCALAR");
+	if ($] <= 5.010) {
+		return 0 unless $self->test_class($got, "Regexp");
+		return 0 unless $self->test_reftype($got, "SCALAR");
+	} else {
+		return 0 unless $self->test_reftype($got, "REGEXP");
+	}
 
 	return Test::Deep::descend($got, Test::Deep::regexprefonly($exp));
 }

t/deep_utils.t

@@ -28,5 +28,5 @@ use Test::Deep qw( cmp_deeply descend render_stack methods deep_diag class_base
 
 	my ($class, $base) = class_base($a);
 	is($class, "Regexp", "class_base class regexp");
-	is($base, "Regexp", "class_base base regexp");
+	is($base, ($] <= 5.010 ? "Regexp" : "REGEXP"), "class_base base regexp");
 }