I use Perl from Red Hat package.
The script developed with Tk. Generally, script works correctly. This error shows only when I exit from my application.
This code for exit button:
Button(-text=> "Exit",
-command=> sub { Quiting::quiting(); }, )
->pack(-side=> 'bottom', -fill => 'x', -expand => 1 );
and
package Quiting;
sub quiting {
# Delete a temporary file
system ('rm /tmp/mytmp.txt')
if (-e '/tmp/mytmp.txt');
exit(0);
}
-------->
SV* sv_bless(SV* sv, HV* stash);
|