From 7b583a6b1f71de301657e19b140524cdf6b77bb6 Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Wed, 12 Apr 2006 12:00:48 +0000
Subject: [PATCH] Fix Connection::new() so that it once again allows the port
 argument to be omitted.

---
 lib/ZOOM.pm |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index 16eef44..8ac0c93 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.32 2006-04-11 16:27:01 mike Exp $
+# $Id: ZOOM.pm,v 1.33 2006-04-12 12:00:48 mike Exp $
 
 use strict;
 use warnings;
@@ -94,12 +94,10 @@ sub diag_str {
     return Net::Z3950::ZOOM::diag_str($code);
 }
 
-### Undocumented
 sub event_str {
     return Net::Z3950::ZOOM::event_str(@_);
 }
 
-### Undocumented
 sub event {
     my($connsref) = @_;
 
@@ -301,7 +299,7 @@ sub new {
 	if @options;
 
     my $_conn = Net::Z3950::ZOOM::connection_create($_opts);
-    Net::Z3950::ZOOM::connection_connect($_conn, $host, $port);
+    Net::Z3950::ZOOM::connection_connect($_conn, $host, $port || 0);
     my $conn = bless {
 	host => $host,
 	port => $port,
@@ -459,7 +457,6 @@ sub package {
     return _new ZOOM::Package($this, $options, $_p);
 }
 
-### Undocumented
 sub last_event {
     my $this = shift();
 
-- 
1.7.10.4