From 9e867f9412a7d52e7d95e265f742a28facfd3e8d Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 1 Oct 2017 14:39:47 -0700
Subject: [PATCH] fix error w/current perl - can't call keys on a scalar
 hashref anymore, RT#77532

Conflicts:
	httemplate/search/cust_main.html
---
 httemplate/search/cust_main.html | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html
index 0d80b6dfe..d4b4fafc1 100755
--- a/httemplate/search/cust_main.html
+++ b/httemplate/search/cust_main.html
@@ -72,9 +72,13 @@ for my $param (qw( classnum refnum payby tagnum pkg_classnum )) {
   $search_hash{$param} = [ $cgi->param($param) ];
 }
 
+my $params = $cgi->Vars;
+
 #contacts
 $search_hash{'contacts'} = {
-  map { $_ => $cgi->param($_), } grep { /^(contacts_*)/ && $cgi->param($_) } keys $cgi->Vars
+  map { $_ => $cgi->param($_), }
+    grep { /^(contacts_*)/ && $cgi->param($_) }
+      keys %$params
 };
 
 ###
-- 
2.11.0