Select Code to Download

use Carp;
...
...
    croak 'Disallowed table' unless exists $tables{$table);
    ...
}

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$