Permalink
Browse files

Fix runtime errors falling into an infinite loop.

  • Loading branch information...
1 parent 6b7d178 commit 3eec91c8489f1bdaee6199b336803fccb7397211 @thundergnat committed Apr 12, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 vregexp.pl
View
@@ -425,6 +425,7 @@ sub whine {
sub Tk::Error { # Trap runtime errors.
my ( $w, $error, @msgs ) = @_;
+ $update = 0;
whine($error)
if $error =~ /Unicode property/; # Report unicode property errors
say $error if DEBUG;

0 comments on commit 3eec91c

Please sign in to comment.