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 562247d02..fbea04663 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1678,7 +1678,7 @@ sub set_text { my $val_index = find_index { $_ eq $val } @{$w->{strings}}; $w->set_active($val_index); }; - warn $@ if $@; + warn qq(impossible to lookup "$val":\n$@) if $@; } |