In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/102f161f2b4be83919c19013e7de6234fd3ad9e5?hp=c3f2238688d0531d74eca33d2cf56394a5189292>
- Log -----------------------------------------------------------------
commit 102f161f2b4be83919c19013e7de6234fd3ad9e5
Author: Tony Cook <t...@develop-help.com>
Date: Sat Dec 18 11:05:39 2010 +1100
Re-order the tests to match the comment
Win32 has been failing in re/re.t, maybe this will fix it.
-----------------------------------------------------------------------
Summary of changes:
t/re/re.t | 27 ++++++++++++++-------------
1 files changed, 14 insertions(+), 13 deletions(-)
diff --git a/t/re/re.t b/t/re/re.t
index f6da280..1cf6853 100644
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -54,19 +54,6 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
is(regnames_count(),3);
}
- { # Keep these tests last, as whole script will be interrupted if times out
- # Bug #72998; this can loop
- watchdog(2);
- eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
- pass("Didn't loop");
-
- # Bug #78058; this can loop
- watchdog(2);
- no warnings; # Because the 8 may be warned on
- eval 'qr/\18/';
- pass("qr/\18/ didn't loop");
- }
-
{
# tests for new regexp flags
my $text = "\xE4";
@@ -109,6 +96,20 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
}
}
+
+ { # Keep these tests last, as whole script will be interrupted if times out
+ # Bug #72998; this can loop
+ watchdog(2);
+ eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
+ pass("Didn't loop");
+
+ # Bug #78058; this can loop
+ watchdog(2);
+ no warnings; # Because the 8 may be warned on
+ eval 'qr/\18/';
+ pass("qr/\18/ didn't loop");
+ }
+
# New tests above this line, don't forget to update the test count below!
BEGIN { plan tests => 28 }
# No tests here!
--
Perl5 Master Repository
