From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 30 Sep 2018 20:02:13 +0000 (+0100)
Subject: i18n: i18n-diff-auditor: fix debug
X-Git-Tag: archive/debian/7.0_pre1~63
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;ds=sidebyside;h=357f88dd77ad0e34975250b3314c64d8ea53bdad;p=dgit.git

i18n: i18n-diff-auditor: fix debug

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 8fd623a5..f40c8e97 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 = <>;