X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FDaemon.pm;h=f92a2ee3705de5f40a9563972d0b419d1e6ab679;hp=ca181345a493fc38784ad0cf29e2fd28459f237c;hb=e0f8179a112d12a66280351fd12232015c4c53c9;hpb=bb9ea72be2b9990624e918a00ab328e6c48b2626

diff --git a/FS/FS/Daemon.pm b/FS/FS/Daemon.pm
index ca181345a..f92a2ee37 100644
--- a/FS/FS/Daemon.pm
+++ b/FS/FS/Daemon.pm
@@ -83,6 +83,7 @@ sub myexit {
 }
 
 sub _die {
+  die @_ if $^S; # $^S = 1 during an eval(), don't break exception handling
   my $msg = shift;
   unlink $pid_file if -e $pid_file;
   _logmsg($msg);