|
Play Angband
$SIG{__WARN__} = sub { warn @_; my $i = 0; while (my($pkg, $file, $line) = caller($i++)) { warn " package $pkg, file $file, line $line\n"; } };
There is a program i like to run on Windows... it's called FDISK. :)
|
$SIG{__WARN__} = sub { warn @_; my $i = 0; while (my($pkg, $file, $line) = caller($i++)) { warn " package $pkg, file $file, line $line\n"; } };