lintian: r314 - trunk/checks
Author: djpig
Date: 2004-07-02 23:17:04 +0200 (Fri, 02 Jul 2004)
New Revision: 314
Modified:
trunk/checks/debconf
Log:
avoid a "uninitialized value" warning
Modified: trunk/checks/debconf
===================================================================
--- trunk/checks/debconf 2004-07-02 21:15:52 UTC (rev 313)
+++ trunk/checks/debconf 2004-07-02 21:17:04 UTC (rev 314)
@@ -238,7 +238,7 @@
my $usesseen='';
my $fl = <IN>;
- next if $fl !~ /^#!/; # skip, if not a script
+ next unless $fl && ( $fl =~ /^#!/ ); # skip, if not a script
while (<IN>) {
s/#.*//; # Not perfect for Perl, but should be OK
Reply to: