In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f15ebdc700b63c2a4f535eede09f0131d10ad0a4?hp=d948447063614a3857784b11c1f1c1bd10b55a9f>
- Log -----------------------------------------------------------------
commit f15ebdc700b63c2a4f535eede09f0131d10ad0a4
Author: Tony Cook <t...@develop-help.com>
Date: Tue Dec 21 15:02:56 2010 +1100
avoid emitting control characters in test comments
M t/re/re.t
commit 5611abba9b82a7cd174c3096ee52bd65ca4d2cd9
Author: Tony Cook <t...@develop-help.com>
Date: Tue Dec 21 15:01:24 2010 +1100
multiple watchdog()s in the one test script are meaningless
M t/re/re.t
-----------------------------------------------------------------------
Summary of changes:
t/re/re.t | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/t/re/re.t b/t/re/re.t
index 1cf6853..67c2181 100644
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -104,10 +104,9 @@ if
('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
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");
+ pass(q"qr/\18/ didn't loop");
}
# New tests above this line, don't forget to update the test count below!
--
Perl5 Master Repository
