lintian: r1264 - in trunk: debian lib

[rra@debian.org]

Author: rra
Date: 2008-03-13 00:01:25 +0100 (Thu, 13 Mar 2008)
New Revision: 1264

Modified:
   trunk/debian/changelog
   trunk/lib/Spelling.pm
Log:
* lib/Spelling.pm:
  + [RA] Avoid Perl warnings when called with an uninitialized value.

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-03-12 17:52:44 UTC (rev 1263)
+++ trunk/debian/changelog	2008-03-12 23:01:25 UTC (rev 1264)
@@ -48,6 +48,9 @@
     + [RA] Qualify relative --root directories so that we don't break
       later.  Patch from Håkon Stordahl.  (Closes: #469925)
 
+  * lib/Spelling.pm:
+    + [RA] Avoid Perl warnings when called with an uninitialized value.
+
   * unpack/list-srcpkg:
     + [RA] Fix syntax error introduced by Uploaders support.
   * unpack/unpack-binpkg-l1:

Modified: trunk/lib/Spelling.pm
===================================================================
--- trunk/lib/Spelling.pm	2008-03-12 17:52:44 UTC (rev 1263)
+++ trunk/lib/Spelling.pm	2008-03-12 23:01:25 UTC (rev 1264)
@@ -398,6 +398,7 @@
 # not defined, it will be omitted.
 sub spelling_check {
     my ($tag, $text, $filename) = @_;
+    next unless $text;
 
     for my $word (split(/\s+/, $text)) {
         $word = lc $word;