Author: joeyh
Date: 2005-06-27 20:20:46 +0000 (Mon, 27 Jun 2005)
New Revision: 1280
Modified:
data/checklist
Log:
add --debug switch
Modified: data/checklist
==================================================================---
data/checklist 2005-06-27 20:15:40 UTC (rev 1279)
+++ data/checklist 2005-06-27 20:20:46 UTC (rev 1280)
@@ -8,14 +8,16 @@
use Getopt::Long;
my $html=0;
-my $suite="testing";
+my $debug=0;
+y $suite="testing";
my $output;
if (! GetOptions(
"html" => \$html,
+ "debug" => \$debug,
"suite=s" => \$suite,
"output=s", \$output)
|| ! @ARGV) {
- die "usage: $0 [--suite suite] [--html] [--output=file] list ...\n";
+ die "usage: $0 [--suite suite] [--html] [--output=file] [--debug] list
...\n";
}
if (defined $output) {
@@ -77,6 +79,7 @@
open (IN, $list) || die "open $list: $!";
while (<IN>) {
+ print STDERR "line: $_" if $debug;
chomp;
if (/^\[/) {
($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /;