r17120 - in /branches/upstream/libalgorithm-diff-perl/current: Changes META.yml lib/Algorithm/Diff.pm lib/Algorithm/DiffOld.pm

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

Author: gregoa-guest
Date: Sun Mar  9 21:51:19 2008
New Revision: 17120

URL: http://svn.debian.org/wsvn/?sc=1&rev=17120
Log:
[svn-upgrade] Integrating new upstream version, libalgorithm-diff-perl (1.19.02)

Modified:
    branches/upstream/libalgorithm-diff-perl/current/Changes
    branches/upstream/libalgorithm-diff-perl/current/META.yml
    branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/Diff.pm
    branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/DiffOld.pm

Modified: branches/upstream/libalgorithm-diff-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libalgorithm-diff-perl/current/Changes?rev=17120&op=diff
==============================================================================
--- branches/upstream/libalgorithm-diff-perl/current/Changes (original)
+++ branches/upstream/libalgorithm-diff-perl/current/Changes Sun Mar  9 21:51:19 2008
@@ -1,4 +1,9 @@
 Revision history for Perl module Algorithm::Diff.
+
+1.19_02 2006-07-31
+- Fix typo in @EXPORT_OK (s/LCDidx/LCSidx/) (RT 8576)
+- Use 'printf' in example code, not 'sprintf' nor 'sprint' (RT 16067)
+- DiffOld wasn't passing extra arguments to compare routine (RT 20650)
 
 1.19 2004-09-22
 - Added OO interface.

Modified: branches/upstream/libalgorithm-diff-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libalgorithm-diff-perl/current/META.yml?rev=17120&op=diff
==============================================================================
--- branches/upstream/libalgorithm-diff-perl/current/META.yml (original)
+++ branches/upstream/libalgorithm-diff-perl/current/META.yml Sun Mar  9 21:51:19 2008
@@ -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:         Algorithm-Diff
-version:      1.19
+version:      1.1902
 version_from: lib/Algorithm/Diff.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/Diff.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/Diff.pm?rev=17120&op=diff
==============================================================================
--- branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/Diff.pm (original)
+++ branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/Diff.pm Sun Mar  9 21:51:19 2008
@@ -5,14 +5,14 @@
 use integer;    # see below in _replaceNextLargerWith() for mod to make
                 # if you don't use this
 use vars qw( $VERSION @EXPORT_OK );
-$VERSION = 1.19_01;
+$VERSION = 1.19_02;
 #          ^ ^^ ^^-- Incremented at will
 #          | \+----- Incremented for non-trivial changes to features
 #          \-------- Incremented for fundamental changes
 require Exporter;
 *import    = \&Exporter::import;
 @EXPORT_OK = qw(
-    prepare LCS LCDidx LCS_length
+    prepare LCS LCSidx LCS_length
     diff sdiff compact_diff
     traverse_sequences traverse_balanced
 );
@@ -803,14 +803,14 @@
         next   if  $diff->Same();
         my $sep = '';
         if(  ! $diff->Items(2)  ) {
-            sprintf "%d,%dd%d\n",
+            printf "%d,%dd%d\n",
                 $diff->Get(qw( Min1 Max1 Max2 ));
         } elsif(  ! $diff->Items(1)  ) {
-            sprint "%da%d,%d\n",
+            printf "%da%d,%d\n",
                 $diff->Get(qw( Max1 Min2 Max2 ));
         } else {
             $sep = "---\n";
-            sprintf "%d,%dc%d,%d\n",
+            printf "%d,%dc%d,%d\n",
                 $diff->Get(qw( Min1 Max1 Min2 Max2 ));
         }
         print "< $_"   for  $diff->Items(1);

Modified: branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/DiffOld.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/DiffOld.pm?rev=17120&op=diff
==============================================================================
--- branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/DiffOld.pm (original)
+++ branches/upstream/libalgorithm-diff-perl/current/lib/Algorithm/DiffOld.pm Sun Mar  9 21:51:19 2008
@@ -185,7 +185,7 @@
 		# that matches $a->[ $i ], in reverse order
 		for ($j = $bFinish; $j >= $bStart; $j--)
 		{
-			next if ! &$compare( $a->[$i], $b->[$j] );
+			next if ! &$compare( $a->[$i], $b->[$j], @_ );
 			# optimization: most of the time this will be true
 			if ( $k
 				and $thresh->[ $k ] > $j