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

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;