From 2854d38bc7ef7182959ad40c25f2a706a92c7786 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 2 Mar 2005 23:15:36 +0000
Subject: [PATCH] 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
---
 src/perlmods/OpenSRF/UnixServer.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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