Change 33397: Re-apply change #32880

[Steve Peters]

Change 33397 by [EMAIL PROTECTED] on 2008/02/29 05:39:42

        Re-apply change #32880

Affected files ...

... //depot/perl/lib/Test/Builder.pm#32 edit

Differences ...

==== //depot/perl/lib/Test/Builder.pm#32 (text) ====
Index: perl/lib/Test/Builder.pm
--- perl/lib/Test/Builder.pm#31~33395~  2008-02-28 20:44:43.000000000 -0800
+++ perl/lib/Test/Builder.pm    2008-02-28 21:39:42.000000000 -0800
@@ -3,7 +3,7 @@
 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 @@
     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,'
End of Patch.