Skip Menu |

This queue is for tickets about the Regexp-Common-IRC CPAN distribution.

Report information
The Basics
Id: 16789
Status: resolved
Priority: 0/
Queue: Regexp-Common-IRC

People
Owner: cpan [...] prather.org
Requestors: chris [...] bingosnet.co.uk
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.02
Fixed in: (no value)



Testcase: use strict; use warnings; use Regexp::Common qw(IRC); my @targets = ( 'jto@poco.server.irc', '#channel', 'moo', 'eek!~eek@wanker.co.uk' ); foreach my $target ( @targets ) { if ( my @matches = $target =~ /$RE{IRC}{msgto}{-keep}/ ) { print "$target: ", join / /, @matches, "\n"; } } Produces the following error: / / should probably be written as " " at test_regexp_irc.pl line 8. Unmatched ) in regex; marked by <-- HERE in m/((?:(?:[#+&]|!(?:[A-Z]|[0-9]){5})[\x{01}-\x{07}\x{08}-\x{09}\x{0B}-\x{0C}\x{0E}-\x{1F}\x{21}-\x{2B}\x{2D}-\x{39}\x{3B}-\x{FF}]{1,29}(?::[\x{01}-\x{07}\x{08}-\x{09}\x{0B}-\x{0C}\x{0E}-\x{1F}\x{21}-\x{2B}\x{2D}-\x{39}\x{3B}-\x{FF}]{1,29})?|(?:(?:[\x{01}-\x{09}\x{0B}-\x{0C}\x{0E}-\x{1F}\x{21}-\x{3F}\x{41}-\x{FF}])?[%(?:(?:(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*(?:.(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*)*)|(?:(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3})|(?:(?:(?:[0-9]|[A-F])(?::(?:[0-9]|[A-F])){7})|(?:0:0:0:0:0:(?:0|FFFF):(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3})))) <-- HERE )]@(?:(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*(?:.(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*)*)))|(?:(?:[\x{01}-\x{09}\x{0B}-\x{0C}\x{0E}-\x{1F}\x{21}-\x{3F}\x{41}-\x{FF}])?%(?:(?:(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*(?:.(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*)*)|(?:(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3})|(?:(?:(?:[0-9]|[A-F])(?::(?:[0-9]|[A-F])){7})|(?:0:0:0:0:0:(?:0|FFFF):(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}))))))|(?:(?:$|#)(?:(?:[-)+->@-ÿ])|(?:[-[]-ÿ])|(?:?)|(?:[-[]-ÿ])(?:*))*)|(?:(?:[A-Za-z]|[\x{5B}-\x{60}\x{7B}\x{7D}])(?:[A-Za-z]|[0-9]|[\x{5B}-\x{60}\x{7B}\x{7D}]){0,8}|(?:(?:[A-Za-z]|[\x{5B}-\x{60}\x{7B}\x{7D}])(?:[A-Za-z]|[0-9]|[\x{5B}-\x{60}\x{7B}\x{7D}]){0,8}!(?:[\x{01}-\x{09}\x{0B}-\x{0C}\x{0E}-\x{1F}\x{21}-\x{3F}\x{41}-\x{FF}])?@(?:(?:(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*(?:.(?:[A-Za-z]|[0-9])(?:[A-Za-z]|[0-9]|-)*(?:[A-Za-z]|[0-9])*)*)|(?:(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3})|(?:(?:(?:[0-9]|[A-F])(?::(?:[0-9]|[A-F])){7})|(?:0:0:0:0:0:(?:0|FFFF):(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}.(?:[0-9]){1,3}))))))))/ at test_regexp_irc.pl line 7.
Subject: Sorry for the delay
I sliently started working on this one but haven't tracked it down. Regexp::Common::IRC was a quick scratch at an itch I had between several IRC bots I develop so it get's low priority sometimes. This is the quiet way of saying if you have a better answer, and some passing tests to show it works ... patches welcome. Otherwise I'll get to it before the next official release, but I don't know when that will be.
Subject: msgto bug fixed
This should be fixed in 0.03 headed toward CPAN now. It only took a year to fix.