use Data::Dumper;
use Getopt::Long;
-open DEBUG, ">/dev/null" or die $!;
-
-GetOptions("debug|D" => sub { open DEBUG, ">&2" or die $!; }
+our $debug = 0;
+GetOptions("debug|D+" => \$debug
);
our @debug;
sub debug ($$) {
my ($i,$s) = @_;
- push @{ $debug[$i] }, $s;
+ push @{ $debug[$i] }, $s if $debug;
}
my @d = <>;