X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=util%2Fparamcheck.pl;h=26078506d2a419058c31cf0979c438f6477bc0d3;hp=83ad20c1f8e82e66d0f78890e70ff3b755624289;hb=2e2ac6ad2fc90eaf46ae5fee0bc4f61dd97b4284;hpb=2db5ea9160a67c2693b8fae23cdd8da1159bc56f

diff --git a/util/paramcheck.pl b/util/paramcheck.pl
index 83ad20c1..26078506 100755
--- a/util/paramcheck.pl
+++ b/util/paramcheck.pl
@@ -1,5 +1,20 @@
 #!/usr/bin/perl
 
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
 use strict;
 use warnings;
 
@@ -44,7 +59,7 @@ sub extract_opts_chunk
 sub extract_opts
 {
     my ($lines, $names) = @_;
-    my ($is_deprecated, @opts);
+    my @opts;
     foreach my $line (@$lines) {
         my ($args) = $line =~ /\{ \s+? (.*?) \s+? \}/sx;
         next unless defined $args;