r17122 - in /trunk/libalgorithm-diff-perl: Changes META.yml debian/changelog lib/Algorithm/Diff.pm lib/Algorithm/DiffOld.pm

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sun Mar 9 21:55:06 UTC 2008


Author: gregoa-guest
Date: Sun Mar  9 21:55:01 2008
New Revision: 17122

URL: http://svn.debian.org/wsvn/?sc=1&rev=17122
Log:
New upstream release (includes both patches from earlier Debian
  versions: "export LCSidx" and "typo in example".

Modified:
    trunk/libalgorithm-diff-perl/Changes
    trunk/libalgorithm-diff-perl/META.yml
    trunk/libalgorithm-diff-perl/debian/changelog
    trunk/libalgorithm-diff-perl/lib/Algorithm/Diff.pm
    trunk/libalgorithm-diff-perl/lib/Algorithm/DiffOld.pm

Modified: trunk/libalgorithm-diff-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libalgorithm-diff-perl/Changes?rev=17122&op=diff
==============================================================================
--- trunk/libalgorithm-diff-perl/Changes (original)
+++ trunk/libalgorithm-diff-perl/Changes Sun Mar  9 21:55:01 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: trunk/libalgorithm-diff-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libalgorithm-diff-perl/META.yml?rev=17122&op=diff
==============================================================================
--- trunk/libalgorithm-diff-perl/META.yml (original)
+++ trunk/libalgorithm-diff-perl/META.yml Sun Mar  9 21:55:01 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: trunk/libalgorithm-diff-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libalgorithm-diff-perl/debian/changelog?rev=17122&op=diff
==============================================================================
--- trunk/libalgorithm-diff-perl/debian/changelog (original)
+++ trunk/libalgorithm-diff-perl/debian/changelog Sun Mar  9 21:55:01 2008
@@ -9,7 +9,10 @@
     <fw at deneb.enyo.de>).
   * debian/watch: add uversionmangle.
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Sun, 09 Mar 2008 22:20:04 +0100
+  * New upstream release (includes both patches from earlier Debian
+    versions: "export LCSidx" and "typo in example".
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sun, 09 Mar 2008 22:52:53 +0100
 
 libalgorithm-diff-perl (1.19.01-2) unstable; urgency=low
 

Modified: trunk/libalgorithm-diff-perl/lib/Algorithm/Diff.pm
URL: http://svn.debian.org/wsvn/trunk/libalgorithm-diff-perl/lib/Algorithm/Diff.pm?rev=17122&op=diff
==============================================================================
--- trunk/libalgorithm-diff-perl/lib/Algorithm/Diff.pm (original)
+++ trunk/libalgorithm-diff-perl/lib/Algorithm/Diff.pm Sun Mar  9 21:55:01 2008
@@ -5,7 +5,7 @@
 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
@@ -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)  ) {
-            sprintf "%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: trunk/libalgorithm-diff-perl/lib/Algorithm/DiffOld.pm
URL: http://svn.debian.org/wsvn/trunk/libalgorithm-diff-perl/lib/Algorithm/DiffOld.pm?rev=17122&op=diff
==============================================================================
--- trunk/libalgorithm-diff-perl/lib/Algorithm/DiffOld.pm (original)
+++ trunk/libalgorithm-diff-perl/lib/Algorithm/DiffOld.pm Sun Mar  9 21:55:01 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




More information about the Pkg-perl-cvs-commits mailing list