Here is a reply received from Slaven Rezic on the ptk mailing list: "Jack D." <[EMAIL PROTECTED]> writes:
> > > -----Original Message----- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On Behalf > > Of ????? ???????? > > Sent: December 16, 2005 7:34 AM > > To: [email protected] > > Subject: Tk::Text::FindAndReplaceAll() > > > > I have a Tk::TextUndo widget. It has context menu which also holds > > Replace option. > > I put a single word 'gallo' as a text. Than choose Replace > > (Direction: any, Mode: regexp, Case: any), put '.*' as a pattern and > > whatever as a replacement. Push "ReplaceAll". Works fine. > > Now I put as a text 'gallo' and from the next line 'ballo'. > > Than choose Replace (Direction: any, Mode: regexp, Case: > > any), put '.*' as a pattern and non-empty replacement. Push > > "ReplaceAll". The result - application is hanged (100% CPU > > consumption). Works fine however if replacement is empty. > > > > This wouldn't be the issue if > > $text_undo->FindAndReplaceAll('-regexp', '-case', qr/.*/, > > 'whatever'); didn't behave the same nasty way. > > > > Is it something I missed or is there a bug in Tk (ActivePerl > > 5.8.7.813)? > > Seems like a bug in the FindNext subroutine of Tk::Text. Basically > using (.) or (.*) doesn't seem to work properly. > i.e. the program gets stuck in a while loop because the $saved_insert > never matches the $compared_index in the source code. I have cc'd the > ptk mailing list for their thoughts. > If you add ($direction eq '-forward' ? 'end' : '1.0') as last argument of both search() calls in Tk::Text::FindNext(), then the search has a stopindex and it seems to work. But it's unclear to me if this is the correct solution, because it prevents from "wrapping" the search. Anyway, what's the exact semantics of FindNext? Maybe it's better to give FindNext() another optional argument for the stopindex? Regards, Slaven _______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
