Skip Menu | You are currently an anonymous guest. | Login | Return to Main | About rt.cpan.org
 

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.

X Report information
Id: 8165
Status: resolved
Left: 0 min
Priority: 0/0
Queue: Regexp-Optimizer

Owner: Nobody
Requestors: sam [...] tregar.com
Cc:
AdminCc:

Severity: (no value)
Broken in: 0.13
Fixed in: (no value)



X History Display mode: Brief headersFull headers
#   Thu Oct 28 16:30:22 2004 SAMTREGAR - Ticket created  
Subject: Test failure
[text/plain 517b]
I tried to install Regexp::Optimizer 0.13 from CPAN and received this error:

t/02-list....ok 13/24# Failed test (t/02-list.t at line 54)
# got: '(?-xism:[\cZ\cA])'
# expected: '(?-xism:[])'

If that gets munged the "expected:" line contains two characters inside square brackets. One looks like a less-than-or-equal-to and the second is a solid black diamond.

I'm running Perl 5.8.5 on a Fedora Core 2 Linux system. Let me know if I can do anything to help track this down.

Thanks!
-sam

#   Fri Nov 05 07:40:37 2004 DANKOGAI - Correspondence added  
[text/plain 1.1k]
[SAMTREGAR - Thu Oct 28 16:30:22 2004]:
> I tried to install Regexp::Optimizer 0.13 from CPAN and received this
> error:
>
> t/02-list....ok 13/24# Failed test (t/02-list.t at line 54)
> # got: '(?-xism:[\cZ\cA])'
> # expected: '(?-xism:[])'

This is due to the fact that qr/[\cZ\cA]/ gets "unquoted" on perl 5.8.5 or later. The following
patch to t/02-list.t fixes that.

I'll release 0.14 to address that.

Dan the Mantainer Thereof

=========================================================
==========
RCS file: t/02-list.t,v
retrieving revision 0.3
diff -u -r0.3 t/02-list.t
--- t/02-list.t 2003/06/02 20:11:54 0.3
+++ t/02-list.t 2004/11/05 12:37:34
@@ -1,5 +1,5 @@
#
-# $Id: 02-list.t,v 0.3 2003/06/02 20:11:54 dankogai Exp dankogai $
+# $Id: 02-list.t,v 0.3 2003/06/02 20:11:54 dankogai Exp $
#
use strict;
use warnings;
@@ -42,7 +42,7 @@
(
q/\012|\015/ => qr/[\012\015]/,
q/\x20|\x3F/ => => qr/[\x20\x3F]/,
- q/\cZ|\cA/ => qr/[\cZ\cA]/,
+ q/\cZ|\cA/ => $] < 5.008005 ? qr/[\cZ\cA]/ : '(?-xism:[\cZ\cA])',
);

for (sort {length $a <=> length $b} keys %t_l){

#   Fri Nov 05 07:40:39 2004 DANKOGAI - Status changed from 'new' to 'resolved'