From a836f07d56e35d230cdd9586bd35aae6343e9771 Mon Sep 17 00:00:00 2001
From: Lars Kruse <devel@sumpfralle.de>
Date: Thu, 8 Mar 2018 23:08:25 +0100
Subject: [PATCH] nginx_byprojects: use more compatible perl expression

"%ENV{foo}" does not work with older perl versions (e.g. v5.14).
---
 plugins/nginx/nginx_byprojects/byprojects_access          | 2 +-
 plugins/nginx/nginx_byprojects/byprojects_bandwidth       | 2 +-
 plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/plugins/nginx/nginx_byprojects/byprojects_access b/plugins/nginx/nginx_byprojects/byprojects_access
index bc400504..22572bf3 100755
--- a/plugins/nginx/nginx_byprojects/byprojects_access
+++ b/plugins/nginx/nginx_byprojects/byprojects_access
@@ -38,7 +38,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
 my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
 
 my @loglist = grep {$_ =~ /site\./} keys(%ENV);
-my %envLogs = %ENV{@loglist};
+my %envLogs = $ENV{@loglist};
 my %logs;
 while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }
 
diff --git a/plugins/nginx/nginx_byprojects/byprojects_bandwidth b/plugins/nginx/nginx_byprojects/byprojects_bandwidth
index af245e96..42a036ec 100755
--- a/plugins/nginx/nginx_byprojects/byprojects_bandwidth
+++ b/plugins/nginx/nginx_byprojects/byprojects_bandwidth
@@ -44,7 +44,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
 my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
 
 my @loglist = grep {$_ =~ /site\./} keys(%ENV);
-my %envLogs = %ENV{@loglist};
+my %envLogs = $ENV{@loglist};
 my %logs;
 while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }
 
diff --git a/plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth b/plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
index 21b36902..0feb15fd 100755
--- a/plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
+++ b/plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
@@ -44,7 +44,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
 my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
 
 my @loglist = grep {$_ =~ /site\./} keys(%ENV);
-my %envLogs = %ENV{@loglist};
+my %envLogs = $ENV{@loglist};
 my %logs;
 while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }