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.