Changeset 692 for lang/perl/WWW-CommentGetter/trunk

Timestamp:

10/25/07 08:03:34 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/WWW-CommentGetter: fixed bug: can't get comment at nowa.

Location:

lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter

Files:

• MANIFEST (modified) (1 diff)
• lib/WWW/CommentGetter/Plugin/Nowa.pm (modified) (1 diff)
• t/01_basic.t (modified) (1 diff)

lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/MANIFEST

@@ -24 +24 @@
 t/00_compile.t
 t/pod.t
-t/pod_coverage.t

lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/lib/WWW/CommentGetter/Plugin/Nowa.pm

@@ -12 +12 @@
 
     my $ret = scraper {
-        process 'div#comment', 'bodies[]' => scraper {
+        process 'div#comment dl.article-comment', 'bodies[]' => scraper {
             process 'dd.comment-author-name > a', author => 'TEXT';
             process 'dd.comment-author-day', date => 'TEXT';

lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/t/01_basic.t

@@ -95 +95 @@
   date: 2007.10.25 00:53
   author: tokuhirom
+-
+  body: アア、フム。五行。
+  date: 2007.10.25 01:56
+  author: tokuhirom