diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 245d5c4e2..bef9fe9ea 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1683,7 +1683,7 @@ sub set_text { my $val_index = find_index { $_ eq $val } @{$w->{strings}}; $w->set_active($val_index); }; - warn qq(impossible to lookup "$val":\n$@) if $@; + internal_error(qq(impossible to lookup "$val":\n\t) . chomp_($@)) if $@; } |