From 250aacde0af710c867ecf3a7575d9f270b8544ba Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 9 Jun 2005 15:50:39 +0000
Subject: [PATCH] fixed name issue for process

git-svn-id: svn://svn.open-ils.org/ILS/trunk@793 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/OpenSRF/UnixServer.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm b/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm
index ce4d93b336..b8b1402068 100644
--- a/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm
@@ -67,15 +67,17 @@ sub process_request {
 	my $data; my $d;
 	while( $d = <STDIN> ) { $data .= $d; }
 
+	
 	my $orig = $0;
 	$0 = "$0*";
 
-
 	if( ! $data or ! defined( $data ) or $data eq "" ) {
 		$logger->debug("Unix child received empty data from socket", ERROR);
+		$0 = $orig;
 		return;
 	}
 
+
 	if( ! close( $self->{server}->{client} ) ) {
 		$logger->debug( "Error closing Unix socket: $!", ERROR );
 	}
-- 
2.11.0