diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/my_gtk.pm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 17466149a..1118d756a 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -125,13 +125,6 @@ sub show($) { } sub destroy($) { my ($o) = @_; - return if $^S & 4; - #- program is going to leave - #- don't do anything, especially don't set the waiting mouse cursor - #- another thing is that calling flush() at this moment causes segfault - #- so don't do it and no more segfault :) - #- (now, if someone finds out what this 4 is about... but you cares, it works :) - $o->{rwindow} and $o->{rwindow}->destroy; gtkset_mousecursor_wait(); flush(); |