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

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);