Allow single-argument Connection constructor.

diff --git a/Changes b/Changes
index acd6ef9..b3e5e97 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
-$Id: Changes,v 1.17 2006-01-31 15:39:05 mike Exp $
+$Id: Changes,v 1.18 2006-02-10 16:24:19 mike Exp $
 
 Revision history for Perl extension Net::Z3950::ZOOM.
 
@@ -8,6 +8,9 @@ Revision history for Perl extension Net::Z3950::ZOOM.
          2.0.11 (which is what ZOOM-Perl 1.02 requires) unless the
          file /tmp/ignore-ZOOM-YAZ-version-mismatch exists.
        - Fix incorrect ZOOM-package URL in documentation.
+       - The ZOOM::Connection constructor may now be called with only
+         a single argument (host-string) and does not require a
+         dummy port-number argument.
 
 1.01  Thu Dec 22 14:13:34 GMT 2005
        - Place some CODE: chunks in "ZOOM.xs" inside curly brackets

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index e4b2801..27ad75d 100644 (file)
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.25 2005-12-22 12:48:15 mike Exp $
+# $Id: ZOOM.pm,v 1.26 2006-02-10 16:24:34 mike Exp $
 
 use strict;
 use warnings;
@@ -353,6 +353,7 @@ sub connect {
     my $this = shift();
     my($host, $port) = @_;
 
+    $port = 0 if !defined $port;
     Net::Z3950::ZOOM::connection_connect($this->_conn(), $host, $port);
     $this->_check();
     # No return value