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)? Thanks, Artem A. Avetisyan _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs