From dfe0bf9d32697f07f12e912af21034456114edcb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 25 Nov 2002 08:25:01 +0000
Subject: warn about broken programs that misuse my_gtk

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.1