diff options
| -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 |