From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 9 Jun 2005 15:50:39 +0000 (+0000)
Subject: fixed name issue for process
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3b8b8e38f9ec085750aa8427bf4205b9354ec4dc;p=opensrf%2Fbjwebb.git

fixed name issue for process


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

diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm
index ce4d93b..b8b1402 100644
--- a/src/perlmods/OpenSRF/UnixServer.pm
+++ b/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 );
 	}