svn commit: r1528671 - in /lucene/dev/branches/branch_4x: ./ lucene/ lucene/site/ lucene/site/changes/changes2html.pl

[sa...@apache.org]

Author: sarowe
Date: Wed Oct  2 23:00:17 2013
New Revision: 1528671

URL: http://svn.apache.org/r1528671
Log:
stop emitting warning about undefined variable $1 in the case of no leading text to trim from a line (i.e. $type is empty and there is no leading whitespace) (merged trunk r1528670)

Modified:
    lucene/dev/branches/branch_4x/   (props changed)
    lucene/dev/branches/branch_4x/lucene/   (props changed)
    lucene/dev/branches/branch_4x/lucene/site/   (props changed)
    lucene/dev/branches/branch_4x/lucene/site/changes/changes2html.pl

Modified: lucene/dev/branches/branch_4x/lucene/site/changes/changes2html.pl
URL: http://svn.apache.org/viewvc/lucene/dev/branches/branch_4x/lucene/site/changes/changes2html.pl?rev=1528671&r1=1528670&r2=1528671&view=diff
==============================================================================
--- lucene/dev/branches/branch_4x/lucene/site/changes/changes2html.pl (original)
+++ lucene/dev/branches/branch_4x/lucene/site/changes/changes2html.pl Wed Oct  2 23:00:17 2013
@@ -195,7 +195,7 @@ for (my $line_num = 0 ; $line_num <= $#l
     my $line;
     my $item = $_;
     $item =~ s/^(\s*\Q$type\E\s*)//;       # Trim the leading bullet
-    my $leading_ws_width = length($1);
+    my $leading_ws_width = defined($1) ? length($1) : 0;
     $item =~ s/\s+$//;                     # Trim trailing whitespace
     $item .= "\n";