From ce063e6a340acac6f89d5a220ef78a9dd8f55a64 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 25 Nov 2013 12:54:57 +0100
Subject: [PATCH] don't dump debug output without DEBUG=1

---
 html.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/html.pl b/html.pl
index 84d54e2..2acc2df 100755
--- a/html.pl
+++ b/html.pl
@@ -21,7 +21,7 @@ my $dbh = C4::Context->dbh;
 
 sub debug {
 	my ($title, $data) = @_;
-	print "# $title ",dump($data), $/;
+	print "# $title ",dump($data), $/ if $ENV{DEBUG};
 }
 
 my $xslfilename = 'compact.xsl';
-- 
2.20.1