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 . + 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;