4 files changed, 14 insertions, 66 deletions

diff --git a/textproc/p5-Senna/Makefile b/textproc/p5-Senna/Makefile
index dbf185c6b8d0..6676046ca2de 100644
--- a/textproc/p5-Senna/Makefile
+++ b/textproc/p5-Senna/Makefile
@@ -6,8 +6,7 @@
 #
 
 PORTNAME=	Senna
-PORTVERSION=	0.50
-PORTREVISION=	1
+PORTVERSION=	0.51
 CATEGORIES=	textproc
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	../by-authors/id/D/DM/DMAKI/
diff --git a/textproc/p5-Senna/distinfo b/textproc/p5-Senna/distinfo
index 022b84aa9f6f..d17ac501689b 100644
--- a/textproc/p5-Senna/distinfo
+++ b/textproc/p5-Senna/distinfo
@@ -1,3 +1,3 @@
-MD5 (Senna-0.50.tar.gz) = 561b8af177f0b07428852fe074c46ee2
-SHA256 (Senna-0.50.tar.gz) = 7ff1984e584b127839f2ce718417daf1dbec6ab4b2f386bd51b66d7403f6dfdc
-SIZE (Senna-0.50.tar.gz) = 57935
+MD5 (Senna-0.51.tar.gz) = 43e8e7d198abc99e55f17b24776d759f
+SHA256 (Senna-0.51.tar.gz) = b431b9035ac65c951aec34bd0c5b160fa88351015ea6eefb8d8cc05db93fe324
+SIZE (Senna-0.51.tar.gz) = 57879
diff --git a/textproc/p5-Senna/files/patch-Index.pm b/textproc/p5-Senna/files/patch-Index.pm
index 0109d6b194a6..1f68a396a381 100644
--- a/textproc/p5-Senna/files/patch-Index.pm
+++ b/textproc/p5-Senna/files/patch-Index.pm
@@ -1,6 +1,6 @@
---- lib/Senna/Index.pm.orig	Sun Aug 27 00:16:57 2006
-+++ lib/Senna/Index.pm	Wed Oct 25 14:27:07 2006
-@@ -126,10 +126,10 @@
+--- lib/Senna/Index.pm.orig	Sat Mar 17 01:45:57 2007
++++ lib/Senna/Index.pm	Tue May  1 20:38:32 2007
+@@ -126,8 +126,8 @@
  
    use Senna::Index;
  
@@ -9,60 +9,9 @@
 +  my $index = Senna::Index->create(path => '/path/to/index');
 +  # $index = Senna::Index->open(path => '/path/to/index');
  
--  $rc = $index->insert(key => $key, new => $new, old => $old);
-+  $rc = $index->insert(key => $key, value => $new);
+   $rc = $index->insert(key => $key, value => $new);
    $rc = $index->delete(key => $key, value => $old_value);
-   $rc = $index->update(key => $key, new => $new, old => $old, section => $s);
- 
-@@ -161,26 +161,47 @@
- =head1 METHODS
- 
- =head2 delete
-+
- =head2 file_size_keys
-+
- =head2 file_size_lexicon
-+
- =head2 info
-+
- =head2 insert
-+
- =head2 inv_chunk_size
-+
- =head2 inv_seg_size
-+
- =head2 nrecords_keys
-+
- =head2 nrecords_lexicon
-+
- =head2 path
-+
- =head2 query_exec
-+
- =head2 rename
-+
- =head2 select
-+
- =head2 update
-+
- =head2 close
-+
- =head2 create
-+
- =head2 encoding
-+
- =head2 flags
-+
- =head2 initial_n_segments
-+
- =head2 key_size
-+
- =head2 open
-+
- =head2 remove
- 
- =head1 AUTHOR
-@@ -197,4 +218,4 @@
+@@ -218,4 +218,4 @@
  
  http://qwik.jp/senna - Senna Development Homepage
  
diff --git a/textproc/p5-Senna/files/patch-prompt.pl b/textproc/p5-Senna/files/patch-prompt.pl
index e1e2f392ea0b..e21ee9109e59 100644
--- a/textproc/p5-Senna/files/patch-prompt.pl
+++ b/textproc/p5-Senna/files/patch-prompt.pl
@@ -1,11 +1,11 @@
---- tools/prompt.pl.orig	Wed Aug 30 14:26:45 2006
-+++ tools/prompt.pl	Wed Aug 30 14:27:13 2006
-@@ -16,7 +16,7 @@
+--- tools/prompt.pl.orig	Sat Mar 17 01:47:32 2007
++++ tools/prompt.pl	Tue May  1 20:41:18 2007
+@@ -17,7 +17,7 @@
      "\n",
      "Proceed ? [n] ";
  
--my $tmp = <STDIN>;
-+my $tmp = $interactive ? <STDIN> : "yes";
+-$tmp = <STDIN>;
++$tmp = $interactive ? <STDIN> : "yes";
  chomp $tmp;
  if ($tmp !~ /^y(?:es)?$/) {
      exit 1;