From: Steve Peters Date: Fri, 29 Feb 2008 04:44:43 +0000 (+0000) Subject: Hmmm...lib/Test/Builder.pm didn't get updated corectly. Unfortunately, X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd06ac219ef831952aed7fd07ecb84397b1b7bce;p=p5sagit%2Fp5-mst-13.2.git Hmmm...lib/Test/Builder.pm didn't get updated corectly. Unfortunately, the tests didn't seem to catch this. p4raw-id: //depot/perl@33395 --- diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm index 57a57d2..26c2d22 100644 --- a/lib/Test/Builder.pm +++ b/lib/Test/Builder.pm @@ -1,15 +1,10 @@ package Test::Builder; -use 5.004; - -# $^C was only introduced in 5.005-ish. We do this to prevent -# use of uninitialized value warnings in older perls. -$^C ||= 0; - +use 5.006; use strict; -use vars qw($VERSION); -$VERSION = '0.74_1'; -$VERSION = eval $VERSION; # make the alpha version come out as a number + +our $VERSION = '0.78'; +$VERSION = eval { $VERSION }; # make the alpha version come out as a number # Make Test::Builder thread-safe for ithreads. BEGIN { @@ -925,11 +920,7 @@ sub maybe_regex { my($re, $opts); # Check for qr/foo/ - if ( $] >= 5.009004 - ? re::is_regexp($regex) - : ref $regex eq 'Regexp' - ) - { + if( _is_qr($regex) ) { $usable_regex = $regex; } # Check for '/foo/' or 'm,foo,'