diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-06 07:05:28 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-06 07:05:28 +0000 |
commit | cff4a7f4a77a466cbd53a77869ff34663b2dcd95 (patch) | |
tree | 4147993fd4c5ea5b8857355e961927fe7d7ee911 /perl-install | |
parent | fa81e66591e507044dfdf0f82588b2f5e1624c82 (diff) | |
download | drakx-cff4a7f4a77a466cbd53a77869ff34663b2dcd95.tar drakx-cff4a7f4a77a466cbd53a77869ff34663b2dcd95.tar.gz drakx-cff4a7f4a77a466cbd53a77869ff34663b2dcd95.tar.bz2 drakx-cff4a7f4a77a466cbd53a77869ff34663b2dcd95.tar.xz drakx-cff4a7f4a77a466cbd53a77869ff34663b2dcd95.zip |
(Gtk2::ComboBox->set_text) better error message
Diffstat (limited to 'perl-install')
-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 $@; } |