|
|
|
@ -442,14 +442,14 @@ sub loaded_files
@@ -442,14 +442,14 @@ sub loaded_files
|
|
|
|
|
|
|
|
|
|
*CORE::GLOBAL::die = sub { |
|
|
|
|
return CORE::die(@_) if $_[0] =~ /TK_BREAK/; |
|
|
|
|
hook("error", -short => join(' ', @_), -long => longmess(join(' ', @_)), -fatal => 1); |
|
|
|
|
print longmess(@_); |
|
|
|
|
hook("error", -short => join(' ', @_), -long => join(' ', @_), -fatal => 1); |
|
|
|
|
print @_; |
|
|
|
|
abort; |
|
|
|
|
}; |
|
|
|
|
|
|
|
|
|
*CORE::GLOBAL::warn = sub { |
|
|
|
|
hook("error", -short => join(' ', @_), -long => longmess(join(' ', @_))); |
|
|
|
|
print longmess(@_); |
|
|
|
|
hook("error", -short => join(' ', @_), -long => join(' ', @_)); |
|
|
|
|
print @_; |
|
|
|
|
}; |
|
|
|
|
|
|
|
|
|
1; |
|
|
|
|