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