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