Skip Menu |

This queue is for tickets about the Tk-MatchEntry CPAN distribution.

Report information
The Basics
Id: 13330
Status: new
Priority: 0/
Queue: Tk-MatchEntry

People
Owner: Nobody in particular
Requestors: ingo.herschmann [...] web.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.3
Fixed in: (no value)



Subject: Regex error in case-insensitive mode
If an item in the list contains the string "(+", e.g. "Apples (+Bananas)" and -ignorecase is set to 1 a regex error occurs (quantifier follows nothing in regex) because the text is evaluated as a regex. The text is not correctly replaced by the item in the list. I would suggest changing line 217 (in subroutine "check_choice_case"): < if ($text =~ m/^$choice$/i && ($text ne $choice)) { Show quoted text
> if ($text =~ m/^\Q$choice\E$/i && ($text ne $choice)) {
This would quotes all regex meta-characters in $choice