From dc03aef2add542cbc15d0e7f4c13d8deb19fe143 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 31 Jan 2018 23:48:16 +0100
Subject: [PATCH] debug lines changed
---
modules/util/Util/XML/File.pm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/modules/util/Util/XML/File.pm b/modules/util/Util/XML/File.pm
index f55e48c..2fbe67f 100644
--- a/modules/util/Util/XML/File.pm
+++ b/modules/util/Util/XML/File.pm
@@ -8,7 +8,7 @@ use strict;
# use XML::Simple;
use XML::LibXML::Simple;
-my $DEBUG= 1;
+my $DEBUG= 0;
sub fetch
{
@@ -57,7 +57,7 @@ print __FILE__, ' ', __LINE__, " cache: mtime=$st[9] max_age=$max_age use=$use_c
}
$xml= $res->decoded_content;
-print __LINE__, " get_aleph_metadata: xml=[$xml]\n" if ($DEBUG >= 0);
+print __LINE__, " fetch: xml=[$xml]\n" if ($DEBUG > 0);
if (defined ($cache_file))
{
@@ -75,7 +75,7 @@ print __LINE__, " get_aleph_metadata: xml=[$xml]\n" if ($DEBUG >= 0);
}
$xmlref= XMLin ($xml, ForceContent => 1, ForceArray => 1, KeyAttr => [ ] );
-print __LINE__, " xmlref: ", main::Dumper ($xmlref) if ($DEBUG >= 0);
+print __LINE__, " xmlref: ", main::Dumper ($xmlref) if ($DEBUG > 0);
return ($xmlref, $xml);
}
--
GitLab