diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-25 08:25:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-25 08:25:01 +0000 |
| commit | dfe0bf9d32697f07f12e912af21034456114edcb (patch) | |
| tree | 5a165e58963b0421d36fc0283dd4f92dd5152eb3 /perl-install | |
| parent | c3842e7e6f94a78daebe058f9a1e074376655d2a (diff) | |
| download | drakx-dfe0bf9d32697f07f12e912af21034456114edcb.tar drakx-dfe0bf9d32697f07f12e912af21034456114edcb.tar.gz drakx-dfe0bf9d32697f07f12e912af21034456114edcb.tar.bz2 drakx-dfe0bf9d32697f07f12e912af21034456114edcb.tar.xz drakx-dfe0bf9d32697f07f12e912af21034456114edcb.zip | |
warn about broken programs that misuse my_gtk
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 4c823ba55..1fecfd5cf 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -145,7 +145,7 @@ sub exit { } #- in case "exit" above was not called by the program -END { &exit() } +END { print "BUG in $0 : my_gtk->exit was *NOT* called !! \n"; &exit() } #-############################################################################### #- createXXX functions |