diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-09-30 21:02:13 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:54:38 +0100 |
commit | 357f88dd77ad0e34975250b3314c64d8ea53bdad (patch) | |
tree | 084285ebf94dd9a22fc39e5e2825fd9b483a56eb /i18n-diff-auditor | |
parent | 8f47fccc111486af01b6f115c8a770eb54217956 (diff) |
i18n: i18n-diff-auditor: fix debug
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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 = <>; |