From: mike <mike>
Date: Wed, 12 Oct 2005 16:13:20 +0000 (+0000)
Subject: Add diag_str() function.
X-Git-Tag: cpan_1_22~460
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=ae8156e99ebe3d3dd463625bc75851a82cac3d6e;p=ZOOM-Perl-moved-to-github.git

Add diag_str() function.
---

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index f0c1a82..1542c6d 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,10 +1,18 @@
-# $Id: ZOOM.pm,v 1.5 2005-10-12 14:33:40 mike Exp $
+# $Id: ZOOM.pm,v 1.6 2005-10-12 16:13:20 mike Exp $
 
 use strict;
 use warnings;
 use Net::Z3950::ZOOM;
 
 
+package ZOOM;
+
+sub diag_str {
+    my($code) = @_;
+    return Net::Z3950::ZOOM::diag_str($code);
+}
+
+
 # Member naming convention: hash-element names which begin with an
 # underscore represent underlying ZOOM-C object descriptors; those
 # which lack them represent Perl's ZOOM objects.  (The same convention