moparisthebest/wget
1
0
Fork 0
mirror of https://github.com/moparisthebest/wget synced 2024-07-03 16:38:41 -04:00
Code Issues Releases Wiki Activity

Added copyright notice, removing unused declaration.

Browse Source
This commit is contained in:
Micah Cowan 2008-05-16 10:39:35 -07:00
parent d78cd8d8f8
commit 66517821ee
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
util/paramcheck.pl
View File

@ -1,5 +1,20 @@
#!/usr/bin/perl #!/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 strict;
use warnings; use warnings;
@ -44,7 +59,7 @@ sub extract_opts_chunk
sub extract_opts sub extract_opts
{ {
my ($lines, $names) = @_; my ($lines, $names) = @_;
my ($is_deprecated, @opts); my @opts;
foreach my $line (@$lines) { foreach my $line (@$lines) {
my ($args) = $line =~ /\{ \s+? (.*?) \s+? \}/sx; my ($args) = $line =~ /\{ \s+? (.*?) \s+? \}/sx;
next unless defined $args; next unless defined $args;