This is PerlMonks "Mobile"
|
User since: |
Jul 05, 2000 at 22:21 UTC
(24 years ago) |
Last here: |
Jan 23, 2013 at 18:09 UTC
(11 years ago) |
Experience: |
683
|
Level: | Pilgrim (8) |
Writeups: |
72
|
Location: | Orlando, FL |
User's localtime: |
Apr 19, 2024 at 11:38 EDT
|
Scratchpad: |
View
|
For this user: | Search nodes |
|
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.
:)