Change 29444 by [EMAIL PROTECTED] on 2006/12/04 02:48:24
Upgrade to Test-Simple-0.66.
Affected files ...
... //depot/perl/lib/Test/Builder.pm#20 edit
... //depot/perl/lib/Test/Builder/Module.pm#6 edit
... //depot/perl/lib/Test/Builder/Tester.pm#7 edit
... //depot/perl/lib/Test/More.pm#31 edit
... //depot/perl/lib/Test/Simple.pm#25 edit
Differences ...
==== //depot/perl/lib/Test/Builder.pm#20 (text) ====
Index: perl/lib/Test/Builder.pm
--- perl/lib/Test/Builder.pm#19~29244~ 2006-11-10 14:55:01.000000000 -0800
+++ perl/lib/Test/Builder.pm 2006-12-03 18:48:24.000000000 -0800
@@ -8,7 +8,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.35';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
==== //depot/perl/lib/Test/Builder/Module.pm#6 (text) ====
Index: perl/lib/Test/Builder/Module.pm
--- perl/lib/Test/Builder/Module.pm#5~29244~ 2006-11-10 14:55:01.000000000
-0800
+++ perl/lib/Test/Builder/Module.pm 2006-12-03 18:48:24.000000000 -0800
@@ -5,7 +5,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = '0.04';
+$VERSION = '0.05';
use strict;
==== //depot/perl/lib/Test/Builder/Tester.pm#7 (text) ====
Index: perl/lib/Test/Builder/Tester.pm
--- perl/lib/Test/Builder/Tester.pm#6~29244~ 2006-11-10 14:55:01.000000000
-0800
+++ perl/lib/Test/Builder/Tester.pm 2006-12-03 18:48:24.000000000 -0800
@@ -2,7 +2,7 @@
use strict;
use vars qw(@EXPORT $VERSION @ISA);
-$VERSION = "1.05";
+$VERSION = "1.06";
use Test::Builder;
use Symbol;
@@ -506,8 +506,8 @@
{
my($self, $check) = @_;
- if( $check =~ /\A(.*)# (Failed .*test) \((.*?) at line (\d+)\)\z/ ) {
- $check = qr/\Q$1\E#\s+\Q$2\E.*?\n?.*?\Qat $3\E line \Q$4\E.*\n?/;
+ if( $check =~ /\A(.*)# (Failed .*test) \((.*?) at line
(\d+)\)\Z(?!\n)/ ) {
+ $check = "/\Q$1\E#\\s+\Q$2\E.*?\\n?.*?\Qat $3\E line \Q$4\E.*\\n?/";
}
return $check;
@@ -527,7 +527,7 @@
my @checks = @{$self->{wanted}};
my $got = $self->{got};
foreach my $check (@checks) {
- $check = qr/^\Q$check\E/ unless ref $check;
+ $check = "\Q$check\E" unless ($check =~ s,^/(.*)/$,$1, or ref $check);
return 0 unless $got =~ s/^$check//;
}
==== //depot/perl/lib/Test/More.pm#31 (text) ====
Index: perl/lib/Test/More.pm
--- perl/lib/Test/More.pm#30~29244~ 2006-11-10 14:55:01.000000000 -0800
+++ perl/lib/Test/More.pm 2006-12-03 18:48:24.000000000 -0800
@@ -16,7 +16,7 @@
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
-$VERSION = '0.65';
+$VERSION = '0.66';
$VERSION = eval $VERSION; # make the alpha version come out as a number
use Test::Builder::Module;
==== //depot/perl/lib/Test/Simple.pm#25 (text) ====
Index: perl/lib/Test/Simple.pm
--- perl/lib/Test/Simple.pm#24~29244~ 2006-11-10 14:55:01.000000000 -0800
+++ perl/lib/Test/Simple.pm 2006-12-03 18:48:24.000000000 -0800
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.65';
+$VERSION = '0.66';
$VERSION = eval $VERSION; # make the alpha version come out as a number
use Test::Builder::Module;
End of Patch.
