diff options
author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2002-06-19 10:29:35 +0000 |
---|---|---|
committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2002-06-19 10:29:35 +0000 |
commit | 3dfbeca66213eed3cdd492a45369c55b3ce5919b (patch) | |
tree | 0c8ccf4d12529f856b009bb9a455277cf8a1bfb1 /databases/p5-Search-Namazu | |
parent | e8a0a89c6124b3908d69088895458cd83e6534d8 (diff) |
Notes
Diffstat (limited to 'databases/p5-Search-Namazu')
-rw-r--r-- | databases/p5-Search-Namazu/Makefile | 2 | ||||
-rw-r--r-- | databases/p5-Search-Namazu/distinfo | 2 | ||||
-rw-r--r-- | databases/p5-Search-Namazu/files/patch-Namazu.pm | 75 | ||||
-rw-r--r-- | databases/p5-Search-Namazu/files/patch-Namazu.pod.ja | 17 | ||||
-rw-r--r-- | databases/p5-Search-Namazu/files/patch-Namazu.xs | 35 |
5 files changed, 2 insertions, 129 deletions
diff --git a/databases/p5-Search-Namazu/Makefile b/databases/p5-Search-Namazu/Makefile index 7384a34df9f6..77733e505026 100644 --- a/databases/p5-Search-Namazu/Makefile +++ b/databases/p5-Search-Namazu/Makefile @@ -6,7 +6,7 @@ # PORTNAME= Search-Namazu -PORTVERSION= 0.91 +PORTVERSION= 0.92 CATEGORIES= databases perl5 MASTER_SITES= http://www.namazu.org/~knok/ PKGNAMEPREFIX= p5- diff --git a/databases/p5-Search-Namazu/distinfo b/databases/p5-Search-Namazu/distinfo index 935849ce6346..27cc86e24c2d 100644 --- a/databases/p5-Search-Namazu/distinfo +++ b/databases/p5-Search-Namazu/distinfo @@ -1 +1 @@ -MD5 (Search-Namazu-0.91.tar.gz) = 3579d1dbc7b7336dcae7718d6be0f4f6 +MD5 (Search-Namazu-0.92.tar.gz) = facae822cc7fd9340831a13d490f7e50 diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.pm b/databases/p5-Search-Namazu/files/patch-Namazu.pm deleted file mode 100644 index e1734e90fd9a..000000000000 --- a/databases/p5-Search-Namazu/files/patch-Namazu.pm +++ /dev/null @@ -1,75 +0,0 @@ ---- Namazu.pm.orig Tue Feb 19 14:02:48 2002 -+++ Namazu.pm Tue Jun 18 17:53:11 2002 -@@ -142,6 +142,18 @@ - - It returns ranking number. - -+=head3 summary -+ -+It returns summary. -+ -+=head3 title -+ -+It returns title. -+ -+=head3 author -+ -+It returns author. -+ - =head1 COPYRIGHT - - Copyright 1999,2000,2001,2002 NOKUBI Takatsugu All rights reserved. -@@ -277,15 +289,14 @@ - } - - sub set { -- my $self = shift; -- my $score = shift; -- my $uri = shift; -- my $date = shift; -- my $rank = shift; -+ my ($self, $score, $uri, $date, $rank, $summary, $title, $author) = @_; - $self->{score} = $score; - $self->{uri} = $uri; - $self->{date} = $date; - $self->{rank} = $rank; -+ $self->{summary} = $summary; -+ $self->{title} = $title; -+ $self->{author} = $author; - } - - sub score { -@@ -322,6 +333,33 @@ - $self->{'rank'} = $rank; - } - $self->{'rank'}; -+} -+ -+sub summary { -+ my $self = shift; -+ if (@_) { -+ my $summary = shift; -+ $self->{'summary'} = $summary; -+ } -+ $self->{'summary'}; -+} -+ -+sub title { -+ my $self = shift; -+ if (@_) { -+ my $title = shift; -+ $self->{'title'} = $title; -+ } -+ $self->{'title'}; -+} -+ -+sub author { -+ my $self = shift; -+ if (@_) { -+ my $author = shift; -+ $self->{'author'} = $author; -+ } -+ $self->{'author'}; - } - - 1; diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja b/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja deleted file mode 100644 index 20c3c7f03e72..000000000000 --- a/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja +++ /dev/null @@ -1,17 +0,0 @@ ---- Namazu.pod.ja.orig Mon Feb 18 14:04:54 2002 -+++ Namazu.pod.ja Tue Jun 18 16:24:02 2002 -@@ -119,6 +119,14 @@ - - ランクを返します。 - -+=head3 summary -+ -+サマリを返します。 -+ -+=head3 title -+ -+タイトルを返します。 -+ - =head1 著作権 (COPYRIGHT) - - Copyright 1999,2000,2001,2002 NOKUBI Takatsugu All rights reserved. diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.xs b/databases/p5-Search-Namazu/files/patch-Namazu.xs deleted file mode 100644 index deda6f12cfb5..000000000000 --- a/databases/p5-Search-Namazu/files/patch-Namazu.xs +++ /dev/null @@ -1,35 +0,0 @@ ---- Namazu.xs.orig Tue Feb 19 14:01:26 2002 -+++ Namazu.xs Tue Jun 18 17:56:53 2002 -@@ -68,7 +68,7 @@ - int i; - AV *retar; - NmzResult hlist; -- char result[BUFSIZE]; -+ char result[4][BUFSIZE]; - - qstr = SvPV(query, PL_na); - strcpy(cqstr, qstr); -@@ -77,15 +77,21 @@ - for (i = 0; i < hlist.num; i ++) { - SV *ohlist = perl_eval_pv("new Search::Namazu::Result", TRUE); - dSP; -- nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result); -+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result[0]); -+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "summary", result[1]); -+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "title", result[2]); -+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "author", result[3]); - ENTER; - SAVETMPS; - PUSHMARK(SP); - PUSHs(ohlist); - PUSHs(sv_2mortal(newSViv(hlist.data[i].score))); -- PUSHs(sv_2mortal(newSVpv(result, strlen(result)))); -+ PUSHs(sv_2mortal(newSVpv(result[0], strlen(result[0])))); - PUSHs(sv_2mortal(newSViv(hlist.data[i].date))); - PUSHs(sv_2mortal(newSViv(hlist.data[i].rank))); -+ PUSHs(sv_2mortal(newSVpv(result[1], strlen(result[1])))); -+ PUSHs(sv_2mortal(newSVpv(result[2], strlen(result[2])))); -+ PUSHs(sv_2mortal(newSVpv(result[3], strlen(result[3])))); - PUTBACK; - perl_call_method("set", G_DISCARD); - av_push(retar, ohlist); |