Changeset 27398 for gs2-extensions/tdb-edit
- Timestamp:
- 2013-05-23T13:12:05+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/perllib/TDBClient.pm
r26992 r27398 17 17 sub new 18 18 { 19 my ($class, $server_lockfile_path, $infodb_file ) = @_;19 my ($class, $server_lockfile_path, $infodb_file, $we_started_server) = @_; 20 20 my $self = {}; 21 21 … … 46 46 my $port = $2; 47 47 # We now create a client that can connect to the specified port 48 print " * Creating TDBClient and connecting to " . $host . ":" . $port . "...\n"; 49 $self->{'tdb_client_handle'} = SocketsSwimmingThreadPoolClient->new(host=>$host,port=>$port); 48 if ($debug) 49 { 50 print " * Creating Client and connecting to " . $host . ":" . $port . "...\n"; 51 } 52 $self->{'tdb_client_handle'} = SocketsSwimmingThreadPoolClient->new(host=>$host, port=>$port, firstcaller=>$we_started_server); 50 53 } 51 54 else
Note:
See TracChangeset
for help on using the changeset viewer.