X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.pm;h=e3ee48e4ec178a3fb72438884aaa187440bdac5d;hp=0abbb92dcf6a4c5ae60d1d1aa1a87e9054921c17;hb=6e84dcd4f3447ece4375eb1bf5200a771b8ff6c8;hpb=c987ce263013255ff651b58eb78b63200feb31c1

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 0abbb92..e3ee48e 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -25,7 +25,7 @@
 ##
 ##
 
-## $Id: SimpleServer.pm,v 1.32 2007-08-08 10:27:43 mike Exp $
+## $Id: SimpleServer.pm,v 1.33 2007-08-08 12:09:19 mike Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -69,6 +69,13 @@ sub launch_server {
 	my $self = shift;
 	my @args = @_;
 
+	### This modal internal interface, in which we set a bunch of
+	#   globals and then call start_server(), is asking for
+	#   trouble.  Instead, we should just pass the $self object
+	#   as a parameter into start_server().
+	if (defined($self->{GHANDLE})) {
+		set_ghandle($self->{GHANDLE});
+	}
 	if (defined($self->{INIT})) {
 		set_init_handler($self->{INIT});
 	}