r29835 - in /trunk/libtext-levenshtein-perl: Changes Levenshtein.pm META.yml Makefile.PL debian/changelog test.pl

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

Author: ryan52-guest
Date: Mon Jan 19 20:47:34 2009
New Revision: 29835

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29835
Log:
new version

Modified:
    trunk/libtext-levenshtein-perl/Changes
    trunk/libtext-levenshtein-perl/Levenshtein.pm
    trunk/libtext-levenshtein-perl/META.yml
    trunk/libtext-levenshtein-perl/Makefile.PL
    trunk/libtext-levenshtein-perl/debian/changelog
    trunk/libtext-levenshtein-perl/test.pl

Modified: trunk/libtext-levenshtein-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/Changes?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/Changes (original)
+++ trunk/libtext-levenshtein-perl/Changes Mon Jan 19 20:47:34 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: trunk/libtext-levenshtein-perl/Levenshtein.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/Levenshtein.pm?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/Levenshtein.pm (original)
+++ trunk/libtext-levenshtein-perl/Levenshtein.pm Mon Jan 19 20:47:34 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: trunk/libtext-levenshtein-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/META.yml?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/META.yml (original)
+++ trunk/libtext-levenshtein-perl/META.yml Mon Jan 19 20:47:34 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: trunk/libtext-levenshtein-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/Makefile.PL?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/Makefile.PL (original)
+++ trunk/libtext-levenshtein-perl/Makefile.PL Mon Jan 19 20:47:34 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: trunk/libtext-levenshtein-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/debian/changelog?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/debian/changelog (original)
+++ trunk/libtext-levenshtein-perl/debian/changelog Mon Jan 19 20:47:34 2009
@@ -1,8 +1,8 @@
-libtext-levenshtein-perl (0.05-1) UNRELEASED; urgency=low
+libtext-levenshtein-perl (0.06~01-1) UNRELEASED; urgency=low
 
   TODO: forward the patch upstream
                         -- dam
 
   * Initial Release. (Closes: #512267)
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Sun, 18 Jan 2009 22:50:53 -0800
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Mon, 19 Jan 2009 12:45:31 -0800

Modified: trunk/libtext-levenshtein-perl/test.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-levenshtein-perl/test.pl?rev=29835&op=diff
==============================================================================
--- trunk/libtext-levenshtein-perl/test.pl (original)
+++ trunk/libtext-levenshtein-perl/test.pl Mon Jan 19 20:47:34 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");