in reply to Problem reading files from directory
local $SIG{TERM} = sub { print STDERR "Got SIG{TERM}! Abort execution? + (y/n)"; my $c = getc; chomp $c; exit 0 if lc($c) eq 'y'; };
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Problem reading files from directory
by TOD (Friar) on Jul 21, 2007 at 02:24 UTC |