続Text::MeCab

前のエントリではえらいとんちんかんなことをしていましたが、ようやく問題のありかがわかったっす。

--- MeCab.xs.org	Mon May  8 01:00:57 2006
+++ MeCab.xs	Mon May  8 01:21:12 2006
@@ -113,7 +113,7 @@
 xs_new(class, args)
         SV *class;
         AV *args;
-    INIT:
+    PREINIT:
         SV *sv;
         SV **svr;
         char **argv;
@@ -169,7 +169,7 @@
         input = SvPV(text, len);
 
         if (len <= 0)
-            return XSRETURN_UNDEF;
+            XSRETURN_UNDEF;
 
         node = mecab_sparse_tonode(mecab, input);

これを書いている今の段階ではまだ「外部シンボル"_Perl_****" は未解決です」などという恥ずかしいエラーが出まくっているのですが、これはもうあきらかにコンパイラかリンカの設定ミスでしょうからperlxsなりMakeMakerのPODなり読んでなんとかします。