diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index e815c7a4d..c8475ed5b 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1677,6 +1677,7 @@ sub set_text { my $val_index = find_index { $_ eq $val } @{$w->{strings}}; $w->set_active($val_index); }; + warn $@ if $@; } |