modified to handle the first mecab node rightly for Acme::Lou

Acme-Lou.patch

--- Lou.pm.orig	2007-02-01 19:08:45.000000000 +0900
+++ Lou.pm	2016-01-22 19:18:52.144838848 +0900
@@ -116,7 +116,7 @@
     $text = encode($self->{mecab_charset}, $text);
     my @out;
     my $node = $self->mecab->parse($text);
-    while ($node = $node->next) {
+    while ($node) {
         
         my $n = $self->decode_node($node); 
         $n->{to} = $self->dic($n->{original});
@@ -151,6 +151,7 @@
         } else {
             push @out, $n->{surface};
         }
+        $node = $node->next;
     }
     $text = join "", @out;
     $text =~ s/\r/\n/g;

OK!