diff options
Diffstat (limited to 'i18n-diff-auditor')
-rwxr-xr-x | i18n-diff-auditor | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index 8fd623a..f40c8e9 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -4,15 +4,14 @@ use Carp; 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 = <>; |