From: mike <mike>
Date: Tue, 8 Nov 2005 16:42:08 +0000 (+0000)
Subject: ZOOM::ResultSet::sort() now uses Net::Z3950::ZOOM::resultset_sort1()
X-Git-Tag: cpan_1_22~372
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=c17363e7147de5db7beec04eebdea07c3ede4738;p=ZOOM-Perl-moved-to-github.git

ZOOM::ResultSet::sort() now uses Net::Z3950::ZOOM::resultset_sort1()
rather then ...::sort(), and returns its status.
---

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index b0a3792..886d5ae 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.15 2005-11-08 15:55:45 mike Exp $
+# $Id: ZOOM.pm,v 1.16 2005-11-08 16:42:08 mike Exp $
 
 use strict;
 use warnings;
@@ -595,8 +595,8 @@ sub sort {
     my $this = shift();
     my($sort_type, $sort_spec) = @_;
 
-    Net::Z3950::ZOOM::resultset_sort($this->_rs(), $sort_type, $sort_spec);
-    ### There's no way to check for success, as this is a void function
+    return Net::Z3950::ZOOM::resultset_sort1($this->_rs(),
+					     $sort_type, $sort_spec);
 }
 
 sub destroy {