From e95a136f9dae69525dd926ce4d3314e407a567c9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 1 Nov 2008 22:12:58 +0000
Subject: have freeside-cdrd disable itself if there's no appropriate package
 definition, RT#4184

---
 FS/FS/Daemon.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'FS/FS/Daemon.pm')

diff --git a/FS/FS/Daemon.pm b/FS/FS/Daemon.pm
index 7e0d45c..ca18134 100644
--- a/FS/FS/Daemon.pm
+++ b/FS/FS/Daemon.pm
@@ -12,7 +12,10 @@ use Date::Format;
 #avoid duplicate code.  eventually this should use something from CPAN.
 
 @ISA = qw(Exporter);
-@EXPORT_OK = qw( daemonize1 drop_root daemonize2 sigint sigterm logfile );
+@EXPORT_OK = qw(
+  daemonize1 drop_root daemonize2 myexit logfile sigint sigterm
+);
+%EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
 
 $pid_dir = '/var/run';
 
@@ -74,6 +77,11 @@ sub sigterm { $sigterm; }
 
 sub logfile { $logfile = shift; } #_logmsg('test'); }
 
+sub myexit {
+  unlink $pid_file if -e $pid_file;
+  exit;  
+}
+
 sub _die {
   my $msg = shift;
   unlink $pid_file if -e $pid_file;
-- 
cgit v1.1