summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-25 08:25:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-25 08:25:01 +0000
commitdfe0bf9d32697f07f12e912af21034456114edcb (patch)
tree5a165e58963b0421d36fc0283dd4f92dd5152eb3 /perl-install
parentc3842e7e6f94a78daebe058f9a1e074376655d2a (diff)
downloaddrakx-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.pm2
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