summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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