From blair at orcaware.com  Sun Jul  9 01:29:34 2006
From: blair at orcaware.com (blair at orcaware.com)
Date: Sun, 9 Jul 2006 01:29:34 -0700
Subject: [Orca-checkins] r529 - orca/trunk/data_gatherers/procallator
Message-ID: <200607090829.k698TYDi028543@orca3.orcaware.com>

Author: blair at orcaware.com
Date: Sun Jul  9 01:28:59 2006
New Revision: 529

Modified:
   orca/trunk/data_gatherers/procallator/procallator.pl.in

Log:
Add the die_when_called() subroutine which is used by the daemonizing
code.

* die_when_called:
  New subroutines copied from Orca::Constants.


Modified: orca/trunk/data_gatherers/procallator/procallator.pl.in
==============================================================================
--- orca/trunk/data_gatherers/procallator/procallator.pl.in	(original)
+++ orca/trunk/data_gatherers/procallator/procallator.pl.in	Sun Jul  9 01:28:59 2006
@@ -138,6 +138,10 @@
 my (@nfs_s_p3_fsinfo, @nfs_s_p3_pathconf);
 my (@nfs_s_p3_commit, @nfs_s_p4_compound);
 
+sub die_when_called {
+  die $_[0];
+}
+
 # If procallator should daemonize itself, then do so now.
 if ( !$DEBUG ) {
     my $expr = 'use POSIX qw(setsid)';