diff options
-rwxr-xr-x | iurt2 | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -51,6 +51,7 @@ use File::Basename qw(fileparse); use Mkcd::Commandline qw(parseCommandLine usage); use MDK::Common; use Filesys::Df qw(df); +use POSIX; sub bug_handler { @@ -70,9 +71,9 @@ sub bug_handler { $SIG{SEGV} = sub { bug_handler(@_, 1) }; $SIG{__DIE__} = \&bug_handler; $SIG{TERM} = sub { - warn "Got KILLED by SIGTERM"; + warn "Got KILLED by SIGTERM at " . strftime("%c", localtime()) . " .\n"; exit(1); - }; +}; my $program_name = 'iurt2'; my $VERSION = '0.6.2'; |