[media] docs-rst: parse-headers.pl: make debug a command line option

Add a parser for the --debug option, in order to allow
seeing what the parser is doing.

Acked-by: Jonathan Corbet <corbet@lwn.net>
Signed-off-by: Mauro Carvalho Chehab <mchehab@s-opensource.com>
This commit is contained in:
Mauro Carvalho Chehab 2016-08-31 06:41:40 -03:00
parent c92bab5e1e
commit bcec7c218d

View File

@ -2,12 +2,18 @@
use strict;
use Text::Tabs;
# Uncomment if debug is needed
#use Data::Dumper;
# change to 1 to generate some debug prints
my $debug = 0;
while ($ARGV[0] =~ m/^-(.*)/) {
my $cmd = shift @ARGV;
if ($cmd eq "--debug") {
require Data::Dumper;
$debug = 1;
next;
}
die "argument $cmd unknown";
}
if (scalar @ARGV < 2 || scalar @ARGV > 3) {
die "Usage:\n\t$0 <file in> <file out> [<exceptions file>]\n";
}