Change 33968: Just the Test::Builder changes from:

[Dave Mitchell]

Change 33968 by [EMAIL PROTECTED] on 2008/05/31 15:38:17

        
        Just the Test::Builder changes from:
        
        Integrate:
        [ 32880]
        Make new regex type be 'REGEXP' and make all core qr//'s be in class 
Regexp (and related changes)

Affected files ...

... //depot/maint-5.10/perl/lib/Test/Builder.pm#3 integrate

Differences ...

==== //depot/maint-5.10/perl/lib/Test/Builder.pm#3 (text) ====
Index: perl/lib/Test/Builder.pm
--- perl/lib/Test/Builder.pm#2~33108~   2008-01-29 09:37:50.000000000 -0800
+++ perl/lib/Test/Builder.pm    2008-05-31 08:38:17.000000000 -0700
@@ -8,7 +8,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.74';
+$VERSION = '0.74_1';
 $VERSION = eval $VERSION;    # make the alpha version come out as a number
 
 # Make Test::Builder thread-safe for ithreads.
@@ -925,7 +925,11 @@
     my($re, $opts);
 
     # Check for qr/foo/
-    if( ref $regex eq 'Regexp' ) {
+    if (   $] >= 5.009004 
+              ? re::is_regexp($regex) 
+              : ref $regex eq 'Regexp'
+       ) 
+    {
         $usable_regex = $regex;
     }
     # Check for '/foo/' or 'm,foo,'
End of Patch.