r67058 - in /trunk/libtext-findindent-perl: Changes META.yml debian/changelog lib/Text/FindIndent.pm

[carnil at users.alioth.debian.org]

Author: carnil
Date: Wed Jan  5 13:29:54 2011
New Revision: 67058

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67058
Log:
* Team upload.
* New upstream release

Modified:
    trunk/libtext-findindent-perl/Changes
    trunk/libtext-findindent-perl/META.yml
    trunk/libtext-findindent-perl/debian/changelog
    trunk/libtext-findindent-perl/lib/Text/FindIndent.pm

Modified: trunk/libtext-findindent-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-findindent-perl/Changes?rev=67058&op=diff
==============================================================================
--- trunk/libtext-findindent-perl/Changes (original)
+++ trunk/libtext-findindent-perl/Changes Wed Jan  5 13:29:54 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: trunk/libtext-findindent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-findindent-perl/META.yml?rev=67058&op=diff
==============================================================================
--- trunk/libtext-findindent-perl/META.yml (original)
+++ trunk/libtext-findindent-perl/META.yml Wed Jan  5 13:29:54 2011
@@ -23,4 +23,4 @@
   perl: 5.00503
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.09
+version: 0.10

Modified: trunk/libtext-findindent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-findindent-perl/debian/changelog?rev=67058&op=diff
==============================================================================
--- trunk/libtext-findindent-perl/debian/changelog (original)
+++ trunk/libtext-findindent-perl/debian/changelog Wed Jan  5 13:29:54 2011
@@ -1,3 +1,10 @@
+libtext-findindent-perl (0.10-1) UNRELEASED; urgency=low
+
+  * Team upload.
+  * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Wed, 05 Jan 2011 14:29:38 +0100
+
 libtext-findindent-perl (0.09-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libtext-findindent-perl/lib/Text/FindIndent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-findindent-perl/lib/Text/FindIndent.pm?rev=67058&op=diff
==============================================================================
--- trunk/libtext-findindent-perl/lib/Text/FindIndent.pm (original)
+++ trunk/libtext-findindent-perl/lib/Text/FindIndent.pm Wed Jan  5 13:29:54 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));
   }