r29833 - in /branches/upstream/libtext-levenshtein-perl/current: Changes Levenshtein.pm META.yml Makefile.PL test.pl

[ryan52-guest at users.alioth.debian.org]

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");