From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 2 Mar 2005 23:15:36 +0000 (+0000)
Subject: we now delete the tmp net::server config file
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2854d38bc7ef7182959ad40c25f2a706a92c7786;p=opensrf%2Fbjwebb.git

we now delete the tmp net::server config file


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@159 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm
index 38cfe56..c0ae76c 100644
--- a/src/perlmods/OpenSRF/UnixServer.pm
+++ b/src/perlmods/OpenSRF/UnixServer.pm
@@ -67,6 +67,7 @@ sub process_request {
 	my $data; my $d;
 	while( $d = <STDIN> ) { $data .= $d; }
 
+	my $orig = $0;
 	$0 = "$0*";
 
 
@@ -126,7 +127,7 @@ sub process_request {
 	$logger->transport( "Timed out, disconnected, or auth failed", INFO );
 	$app_session->kill_me;
 
-	$0 =~ s/\*//g;
+	$0 =~ $orig;
 
 		
 }
@@ -165,6 +166,7 @@ sub serve {
 	close F;
 
 	$self->run( 'conf_file' => $file );
+	unlink($file);
 
 }