Author: adsb
Date: 2009-05-29 17:11:23 +0000 (Fri, 29 May 2009)
New Revision: 1895
Modified:
trunk/debian/changelog
trunk/scripts/licensecheck.pl
Log:
licensecheck: Fix an error in a regular expression which led to an
uninitialized value warning and missing version for some GPL headers.
Thanks, Jakub Wilk. (Closes: #531059)
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2009-05-29 06:34:53 UTC (rev 1894)
+++ trunk/debian/changelog 2009-05-29 17:11:23 UTC (rev 1895)
@@ -12,6 +12,9 @@
arguments to a sourced script. Thanks, Raphael Geissert.
+ Detect use of passing arguments to a sourced script as part of a
conditional statement. Thanks, Raphael Geissert.
+ * licensecheck: Fix an error in a regular expression which led to an
+ uninitialized value warning and missing version for some GPL headers.
+ Thanks, Jakub Wilk. (Closes: #531059)
* uscan: Make a regular expression example in the manpage clearer. Thanks,
Jason Heeris. (Closes: #530362)
Modified: trunk/scripts/licensecheck.pl
===================================================================
--- trunk/scripts/licensecheck.pl 2009-05-29 06:34:53 UTC (rev 1894)
+++ trunk/scripts/licensecheck.pl 2009-05-29 17:11:23 UTC (rev 1895)
@@ -387,7 +387,7 @@
my $license = "";
if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU
(Affero )?General Public License )?as published by the Free Software
Foundation/i or
- $licensetext =~ /GNU (Affero )?General Public License as published by
the Free Software Foundation; version ([^ ]+) /i) {
+ $licensetext =~ /GNU (?:Affero )?General Public License as published by
the Free Software Foundation; version ([^ ]+) /i) {
$gplver = " (v$1)";
} elsif ($licensetext =~ /GNU (Affero ?)General Public License, version
([^ ]+?)[ .]/) {
--
To unsubscribe, send mail to [email protected].
