Thundergnat: the problem with with the Text widget--regex searches crash the debugger.

#!/usr/bin/env perl
use Tk;
$topWin = MainWindow->new();
my $text = $topWin->Text();
$text->insert("end", "Type text into this window");
print $text->search("-exact", 'e', '1.0', 'end')."\n";
print $text->search("-regexp", 'e', '1.0', 'end')."\n";
$text->pack();
MainLoop();
[download]