Changeset 1842 for lang/perl/Net-Kotonoha

Timestamp:

11/20/07 15:35:58 (5 years ago)

Author:

mattn

Message:

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha/Koto.pm,
lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm,
lang/perl/Net-Kotonoha/trunk/Changes:

changed that return array instead of list.

Location:

lang/perl/Net-Kotonoha/trunk

Files:

• Changes (modified) (1 diff)
• lib/Net/Kotonoha.pm (modified) (3 diffs)
• lib/Net/Kotonoha/Koto.pm (modified) (1 diff)

lang/perl/Net-Kotonoha/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension Net::Kotonoha
+
+0.04  Thu Nov 20 15:26:33 2007
+        - changed that return array instead of list.
 
 0.03  Thu Nov 20 14:29:23 2007

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm

@@ -11 +11 @@
 use Net::Kotonoha::Koto;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 sub new {
@@ -90 +90 @@
     }
     $tree->delete;
-    return @list;
+    return \@list;
 }
 
@@ -123 +123 @@
     }
     $tree->delete;
-    return @list;
+    return \@list;
 }
 

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha/Koto.pm

@@ -71 +71 @@
     }
     $tree->delete;
-    return @list;
+    return \@list;
 }
 
 sub yesman {
-    return shift->_get_list('//dl[@id="commentsyes"]//ul[@class="commentbox"]', 1);
+    shift->_get_list('//dl[@id="commentsyes"]//ul[@class="commentbox"]', 1);
 }
 
 sub noman {
-    return shift->_get_list('//dl[@id="commentsno"]//ul[@class="commentbox"]', 2);
+    shift->_get_list('//dl[@id="commentsno"]//ul[@class="commentbox"]', 2);
 }