diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2016-09-14 14:08:37 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2016-09-14 14:08:37 +0100 |
| commit | 7aa7bbc77f31758cee033ea8f91ea509a4aff7f5 (patch) | |
| tree | 73c8b239e5aab8dfe82fbb5ef858e7af933f2c97 /cpan/Test-Simple/lib/Test/Builder.pm | |
| parent | 6ad15231b493b02c8de67d569c41b9403c64c934 (diff) | |
| download | perl-7aa7bbc77f31758cee033ea8f91ea509a4aff7f5.tar.gz | |
Upgrade Test::Simple from version 1.302052 to 1.302056
Diffstat (limited to 'cpan/Test-Simple/lib/Test/Builder.pm')
| -rw-r--r-- | cpan/Test-Simple/lib/Test/Builder.pm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/cpan/Test-Simple/lib/Test/Builder.pm b/cpan/Test-Simple/lib/Test/Builder.pm index 14804195a2..f0e7598747 100644 --- a/cpan/Test-Simple/lib/Test/Builder.pm +++ b/cpan/Test-Simple/lib/Test/Builder.pm @@ -4,7 +4,7 @@ use 5.006; use strict; use warnings; -our $VERSION = '1.302052'; +our $VERSION = '1.302056'; BEGIN { if( $] < 5.008 ) { @@ -624,13 +624,6 @@ sub ok { my $orig_name = $name; - # The regex form is ~250ms, the index form is ~50ms - #$name && $name =~ m/(?:#|\n)/ && ($name =~ s|#|\\#|g, $name =~ s{\n}{\n# }sg); - $name && ( - (index($name, "#" ) >= 0 && $name =~ s|#|\\#|g), - (index($name, "\n") >= 0 && $name =~ s{\n}{\n# }sg) - ); - my @attrs; my $subevents = delete $self->{subevents}; my $subtest_id = delete $self->{subtest_id}; |