From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Thu, 7 Mar 2019 10:32:07 +0000 (+0100)
Subject: allow to set DEBUG over environment and load Data::Dumper conditionally
X-Git-Url: https://git.proxmox.com/?p=pve-zsync.git;a=commitdiff_plain;h=8e9ef0caacd0f4224ec73f48bd5362475fbcf595

allow to set DEBUG over environment and load Data::Dumper conditionally

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---

diff --git a/pve-zsync b/pve-zsync
index 9e84492..e99cd30 100755
--- a/pve-zsync
+++ b/pve-zsync
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Data::Dumper qw(Dumper);
+
 use Fcntl qw(:flock SEEK_END);
 use Getopt::Long qw(GetOptionsFromArray);
 use File::Path qw(make_path);
@@ -21,7 +21,16 @@ my $LXC_CONF = "${PVE_DIR}/lxc";
 my $LOCKFILE = "$CONFIG_PATH/${PROGNAME}.lock";
 my $PROG_PATH = "$PATH/${PROGNAME}";
 my $INTERVAL = 15;
-my $DEBUG = 0;
+my $DEBUG;
+
+BEGIN {
+    $DEBUG = 0; # change default here. not above on declaration!
+    $DEBUG ||= $ENV{ZSYNC_DEBUG};
+    if ($DEBUG) {
+	require Data::Dumper;
+	Data::Dumper->import();
+    }
+}
 
 my $IPV4OCTET = "(?:25[0-5]|(?:[1-9]|1[0-9]|2[0-4])?[0-9])";
 my $IPV4RE = "(?:(?:$IPV4OCTET\\.){3}$IPV4OCTET)";