From: mike Date: Fri, 7 Apr 2006 11:03:35 +0000 (+0000) Subject: eventstr() -> event_str() X-Git-Tag: cpan_1_22~221 X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=53f80bb9976ef9e6bb4d632e61181ed19936b7d2;p=ZOOM-Perl-moved-to-github.git eventstr() -> event_str() --- diff --git a/lib/Net/Z3950/ZOOM.pm b/lib/Net/Z3950/ZOOM.pm index 6ff9b1a..175bbca 100644 --- a/lib/Net/Z3950/ZOOM.pm +++ b/lib/Net/Z3950/ZOOM.pm @@ -1,4 +1,4 @@ -# $Id: ZOOM.pm,v 1.14 2006-04-07 07:48:42 mike Exp $ +# $Id: ZOOM.pm,v 1.15 2006-04-07 11:03:35 mike Exp $ package Net::Z3950::ZOOM; @@ -81,13 +81,13 @@ pretty much follows the API described in the ZOOM-C documentation at http://www.indexdata.dk/yaz/doc/zoom.tkl The only additional (non-ZOOM-C) function provided by this module is -C, which takes as its argument an event code such as +C, which takes as its argument an event code such as C, and returns a corresponding short string. =cut -sub eventstr { +sub event_str { my($code) = @_; if ($code == EVENT_NONE) {