Changeset 4153

Timestamp:

01/07/08 07:48:31 (5 years ago)

Author:

daisuke

Message:

lang/perl/Text-MeCab?; ignore first node after parse, because it doesn't seem to contain anything.

Location:

lang/perl/Text-MeCab/trunk

Files:

• t/node/03_clone.t (modified) (1 diff)
• t/node/05_format.t (modified) (1 diff)
• text-mecab.c (modified) (1 diff)

lang/perl/Text-MeCab/trunk/t/node/03_clone.t

@@ -1 +1 @@
 #!perl
 use strict;
-use Test::More (tests => 27);
+use Test::More (tests => 28);
 
 BEGIN

lang/perl/Text-MeCab/trunk/t/node/05_format.t

@@ -14 +14 @@
     node_format => "%m",
 });
+
 for( my $node = $mecab->parse($text);
         $node;

lang/perl/Text-MeCab/trunk/text-mecab.c

@@ -108 +108 @@
             mecab_strerror(XS_2MECAB(mecab)));
     }
+    node = node->next;
 
     return node;