[Refdb-cvs] CVS: perlmod/RefDBClient Client.pm,1.11,1.12

[Markus H. <mho...@us...>]

Update of /cvsroot/refdb/perlmod/RefDBClient
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25072

Modified Files:
	Client.pm 
Log Message:
updated getref messaging to protocol version 4

Index: Client.pm
===================================================================
RCS file: /cvsroot/refdb/perlmod/RefDBClient/Client.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -U2 -r1.11 -r1.12
--- Client.pm	21 Apr 2005 21:26:45 -0000	1.11
+++ Client.pm	14 Aug 2005 00:02:37 -0000	1.12
@@ -14,5 +14,5 @@
 ##   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ##   GNU General Public License for more details.
-   
+
 ##   You should have received a copy of the GNU General Public License
 ##   along with this program; if not, write to the Free Software
@@ -25,7 +25,7 @@
 RefDBClient::Client - Perl extension for talking to a RefDB server
 
-=head1 SYNOPSIS
+    =head1 SYNOPSIS
[...3072 lines suppressed...]
+	    if ($self->{server_summary} =~ s/$self->{CS_TERM}//) {
+		last;
+	    }
 	}
-    }
 
-    $self->_send_status("000", TERM_NO);
+	$self->_send_status("000", TERM_NO);
 
-    close ($self->{socket});
+	close ($self->{socket});
 
-    # return command summary
-    $self->{server_summary};
-}
+	# return command summary
+	$self->{server_summary};
+    }