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 (file)
--- 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 );
        }