Re-apply change #32880
authorSteve Peters <steve@fisharerojo.org>
Fri, 29 Feb 2008 05:39:42 +0000 (05:39 +0000)
committerSteve Peters <steve@fisharerojo.org>
Fri, 29 Feb 2008 05:39:42 +0000 (05:39 +0000)
p4raw-link: @32880 on //depot/perl: 0fc92fc6bbe8a1e6ff117eca89462208ffcf7f5c

p4raw-id: //depot/perl@33397

lib/Test/Builder.pm

index 26c2d22..1ccad4f 100644 (file)
@@ -3,7 +3,7 @@ package Test::Builder;
 use 5.006;
 use strict;
 
-our $VERSION = '0.78';
+our $VERSION = '0.78_01';
 $VERSION = eval { $VERSION }; # make the alpha version come out as a number
 
 # Make Test::Builder thread-safe for ithreads.
@@ -920,7 +920,11 @@ sub maybe_regex {
     my($re, $opts);
 
     # Check for qr/foo/
-    if( _is_qr($regex) ) {
+    if (   $] >= 5.009004 
+              ? re::is_regexp($regex) 
+              : ref $regex eq 'Regexp'
+       ) 
+    {
         $usable_regex = $regex;
     }
     # Check for '/foo/' or 'm,foo,'