You're calling destroy twice
perl -MTk -e " $a= tkinit; $a->destroy; warn $a; warn $a->destroy; " MainWindow=HASH(0x2bcb488) at -e line 1. destroy (1): 0 0x226260 PVMG f=00080007 {}(1)(1) SV = PVMG(0x1a6dccc) at 0x226260 REFCNT = 1 FLAGS = (ROK) IV = 0 NV = 0 RV = 0x2bcb488 PV = 0x2bcb488 "" CUR = 0 LEN = 0 Usage $widget->destroy(...) at -e line 1.
In reply to Re: Tk destroy error
by Anonymous Monk
in thread Tk destroy error
by blackadder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |