diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-30 02:22:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-30 02:22:31 +0000 |
| commit | ae3a5a6bde3be6c52670c358c147376eef7581a7 (patch) | |
| tree | 939d095e36fd40ae4d95d0026a615207f35543ef /perl-install | |
| parent | 8fffb0869d3bc235f9c6da1f8664a806c055d110 (diff) | |
| download | drakx-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar drakx-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.gz drakx-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.bz2 drakx-ae3a5a6bde3be6c52670c358c147376eef7581a7.tar.xz drakx-ae3a5a6bde3be6c52670c358c147376eef7581a7.zip | |
(Gtk2::ComboBox::set_text) explain which caller failled
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 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 $@; } |