r29833 - in /branches/upstream/libtext-levenshtein-perl/current: Changes Levenshtein.pm META.yml Makefile.PL test.pl
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Mon Jan 19 20:44:30 UTC 2009
Author: ryan52-guest
Date: Mon Jan 19 20:44:27 2009
New Revision: 29833
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29833
Log:
[svn-upgrade] Integrating new upstream version, libtext-levenshtein-perl (0.06~01)
Modified:
branches/upstream/libtext-levenshtein-perl/current/Changes
branches/upstream/libtext-levenshtein-perl/current/Levenshtein.pm
branches/upstream/libtext-levenshtein-perl/current/META.yml
branches/upstream/libtext-levenshtein-perl/current/Makefile.PL
branches/upstream/libtext-levenshtein-perl/current/test.pl
Modified: branches/upstream/libtext-levenshtein-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-levenshtein-perl/current/Changes?rev=29833&op=diff
==============================================================================
--- branches/upstream/libtext-levenshtein-perl/current/Changes (original)
+++ branches/upstream/libtext-levenshtein-perl/current/Changes Mon Jan 19 20:44:27 2009
@@ -1,6 +1,9 @@
Change file for Text::Levenshtein
Dree Mistrut <dree at friul.it>
Josh Goldberg <josh at 3io.com>
+
+Version 0.06: 2008/05/13
+ Bugfixes, especially 26134
Version 0.05: 2004/06/29
Rename distfile for consistency
Modified: branches/upstream/libtext-levenshtein-perl/current/Levenshtein.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-levenshtein-perl/current/Levenshtein.pm?rev=29833&op=diff
==============================================================================
--- branches/upstream/libtext-levenshtein-perl/current/Levenshtein.pm (original)
+++ branches/upstream/libtext-levenshtein-perl/current/Levenshtein.pm Mon Jan 19 20:44:27 2009
@@ -4,7 +4,7 @@
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-$VERSION = '0.04';
+$VERSION = '0.06_01';
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(&distance &fastdistance);
@@ -40,15 +40,9 @@
$d[0][0]=0;
foreach my $i (1 .. $n) {
- if ($i != $n && substr($s,$i) eq substr($t,$i)) {
- push @result,$i;next;
- }
$d[$i][0]=$i;
}
foreach my $j (1 .. $m) {
- if ($j != $m && substr($s,$j) eq substr($t,$j)) {
- push @result,$j;next;
- }
$d[0][$j]=$j;
}
Modified: branches/upstream/libtext-levenshtein-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-levenshtein-perl/current/META.yml?rev=29833&op=diff
==============================================================================
--- branches/upstream/libtext-levenshtein-perl/current/META.yml (original)
+++ branches/upstream/libtext-levenshtein-perl/current/META.yml Mon Jan 19 20:44:27 2009
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Text-Levenshtein
-version: 0.05
+version: 0.06_01
version_from:
installdirs: site
requires:
Modified: branches/upstream/libtext-levenshtein-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-levenshtein-perl/current/Makefile.PL?rev=29833&op=diff
==============================================================================
--- branches/upstream/libtext-levenshtein-perl/current/Makefile.PL (original)
+++ branches/upstream/libtext-levenshtein-perl/current/Makefile.PL Mon Jan 19 20:44:27 2009
@@ -3,7 +3,7 @@
# the contents of the Makefile that is written.
WriteMakefile(
NAME => 'Text::Levenshtein',
- VERSION => '0.05',
+ VERSION => '0.06_01',
LINKTYPE => '$(INST_PM)',
PREREQ_PM => {'Test::More' => 0}
);
Modified: branches/upstream/libtext-levenshtein-perl/current/test.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-levenshtein-perl/current/test.pl?rev=29833&op=diff
==============================================================================
--- branches/upstream/libtext-levenshtein-perl/current/test.pl (original)
+++ branches/upstream/libtext-levenshtein-perl/current/test.pl Mon Jan 19 20:44:27 2009
@@ -3,9 +3,14 @@
use lib 'blib/lib';
use Text::Levenshtein qw(distance fastdistance);
-is_deeply(distance("foo","four"),2,"Correct distance");
-is_deeply(distance("foo","foo"),0,"Correct distance");
+is_deeply(distance("foo","four"),2,"Correct distance foo four");
+is_deeply(distance("foo","foo"),0,"Correct distance foo foo");
+is_deeply(distance("cow","cat"),2,"Correct distance cow cat");
+is_deeply(distance("cat","moocow"),5,"Correct distance cat moocow");
+is_deeply(distance("cat","cowmoo"),5,"Correct distance cat cowmoo");
+is_deeply(distance("sebastian","sebastien"),1,"Correct distance sebastian sebastien");
+is_deeply(distance("more","cowbell"),5,"Correct distance more cowbell");
my @foo = distance("foo","four","foo","bar");
my @bar = (2,0,3);
-is_deeply(\@foo,\@bar,"Array test: Correct distances");
-is_deeply(fastdistance("foo","boo"),1,"Fast test: Correct distance");
+is_deeply(\@foo,\@bar,"Array test: Correct distances foo four foo bar");
+is_deeply(fastdistance("foo","boo"),1,"Fast test: Correct distance foo boo");
More information about the Pkg-perl-cvs-commits
mailing list