Namazu-devel-ja(旧)

[Jun Kuriyama <kuriyama@xxxxxxxxxxxx>]

　Search::Namazu を FreeBSD の Ports Collection に入れようと思っているの
ですが、先日リポジトリに入った修正をあてても Perl 5.6.0 では build でき
ませんでした。

　Namazu.xs r1.12 に対して以下のようなパッチにしておくとうまく動いたんで
すが、他の方はどうでしょう？


--- Namazu.xs.orig	Wed Jan 17 18:45:52 2001
+++ Namazu.xs	Tue Jul 24 12:23:11 2001
@@ -20,7 +20,7 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 # 02111-1307, USA
 
-$Id: Namazu.xs,v 1.12 2001/01/17 09:45:52 knok Exp $
+$Id: Namazu.xs,v 1.13 2001/04/25 10:10:54 knok Exp $
 
 */
 
@@ -45,6 +45,13 @@
 }
 #endif
 
+/* for old perl (< 5.004_04?) */
+#if !defined(PL_na) && defined(na)
+#define PL_na na
+#endif
+#if !defined(PL_sv_undef) && defined(sv_undef)
+#define PL_sv_undef sv_undef
+#endif
 
 MODULE = Search::Namazu		PACKAGE = Search::Namazu
 
@@ -62,7 +69,7 @@
 		NmzResult hlist;
 		char result[BUFSIZE];
 
-		qstr = SvPV(query, na);
+		qstr = SvPV(query, PL_na);
 		strcpy(cqstr, qstr);
 		retar = newAV();
 		hlist = nmz_search(cqstr);
@@ -102,7 +109,7 @@
 		char *tmp;
 
 	CODE:
-		tmp = SvPV(index, na);
+		tmp = SvPV(index, PL_na);
 		RETVAL = nmz_add_index(tmp);
 
 	OUTPUT:
@@ -141,7 +148,7 @@
 		char *tmp;
 
 	CODE:
-		tmp = SvPV(lang, na);
+		tmp = SvPV(lang, PL_na);
 		RETVAL = nmz_set_lang(tmp);
 
 	OUTPUT:


-- 
Jun Kuriyama <kuriyama@xxxxxxxxxxxx> // IMG SRC, Inc.
             <kuriyama@xxxxxxxxxxx> // FreeBSD Project