r67056 - in /branches/upstream/libtext-findindent-perl/current: Changes META.yml lib/Text/FindIndent.pm
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Wed Jan 5 13:29:22 UTC 2011
Author: carnil
Date: Wed Jan 5 13:29:13 2011
New Revision: 67056
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67056
Log:
[svn-upgrade] new version libtext-findindent-perl (0.10)
Modified:
branches/upstream/libtext-findindent-perl/current/Changes
branches/upstream/libtext-findindent-perl/current/META.yml
branches/upstream/libtext-findindent-perl/current/lib/Text/FindIndent.pm
Modified: branches/upstream/libtext-findindent-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-findindent-perl/current/Changes?rev=67056&op=diff
==============================================================================
--- branches/upstream/libtext-findindent-perl/current/Changes (original)
+++ branches/upstream/libtext-findindent-perl/current/Changes Wed Jan 5 13:29:13 2011
@@ -1,4 +1,7 @@
Changes for Perl extension Text-FindIndent
+
+0.10
+ - Robustify some regexes against warnings.
0.09
- Add vim-commands output.
Modified: branches/upstream/libtext-findindent-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-findindent-perl/current/META.yml?rev=67056&op=diff
==============================================================================
--- branches/upstream/libtext-findindent-perl/current/META.yml (original)
+++ branches/upstream/libtext-findindent-perl/current/META.yml Wed Jan 5 13:29:13 2011
@@ -23,4 +23,4 @@
perl: 5.00503
resources:
license: http://dev.perl.org/licenses/
-version: 0.09
+version: 0.10
Modified: branches/upstream/libtext-findindent-perl/current/lib/Text/FindIndent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-findindent-perl/current/lib/Text/FindIndent.pm?rev=67056&op=diff
==============================================================================
--- branches/upstream/libtext-findindent-perl/current/lib/Text/FindIndent.pm (original)
+++ branches/upstream/libtext-findindent-perl/current/lib/Text/FindIndent.pm Wed Jan 5 13:29:13 2011
@@ -5,7 +5,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.09';
+ $VERSION = '0.10';
}
use constant MAX_LINES => 500;
@@ -223,7 +223,7 @@
my $str=shift;
my $tablen=shift || 8;
$str =~ s/( +)$//;
- my $trailing_spaces = $1;
+ my $trailing_spaces = $1||0;
$str =~ s/ +//g; # assume the spaces are all contained in tabs!
return length($str)*$tablen+length($trailing_spaces);
}
@@ -240,7 +240,7 @@
}
else { # mixed!
$diff =~ s/( +)$//;
- my $trailing_spaces = $1;
+ my $trailing_spaces = $1||0;
$diff =~ s/ +//g; # assume the spaces are all contained in tabs!
$indentdiffs->{"m" . (length($diff)*8+length($trailing_spaces))}++;
}
@@ -257,7 +257,7 @@
}
else { # mixed!
$diff =~ s/( +)$//;
- my $trailing_spaces = $1;
+ my $trailing_spaces = $1||0;
$diff =~ s/ +//g; # assume the spaces are all contained in tabs!
return "m" . (length($diff)*8+length($trailing_spaces));
}
More information about the Pkg-perl-cvs-commits
mailing list