From ae8156e99ebe3d3dd463625bc75851a82cac3d6e Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Wed, 12 Oct 2005 16:13:20 +0000
Subject: [PATCH] Add diag_str() function.

---
 lib/ZOOM.pm |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4