| … | … | ||
|---|---|---|---|
| 12 | use IO::Socket::INET; | 12 | use IO::Socket::INET; |
| 13 | use List::Util; | 13 | use List::Util; |
| 14 | use Errno; | 14 | use Errno; |
| 15 | 15 | ||
| 16 | use Storable; | 16 | use Storable; |
| 17 | use Carp; | ||
| 17 | 18 | ||
| 18 | init Gtk2; | 19 | init Gtk2; |
| 20 | |||
| 21 | $SIG{QUIT} = sub { Carp::confess "SIGQUIT" }; | ||
| 19 | 22 | ||
| 20 | our $HACK = 1; # do NEVER enable. ;) | 23 | our $HACK = 1; # do NEVER enable. ;) |
| 21 | our $DEBUG_EXPOSE = 0; | 24 | our $DEBUG_EXPOSE = 0; |
| 22 | 25 | ||
| 23 | if ($HACK) { | 26 | if ($HACK) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |