From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 8 Jun 2018 13:32:02 +0000 (+0100)
Subject: Bug 20906: Prevent test failures due to stricter perl
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=ea39ac2b180c576d80eea44d2d2f2ab0bdb2ddde;p=koha.git

Bug 20906: Prevent test failures due to stricter perl

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---

diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
index a333f89faa..34f4ce07d1 100755
--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
@@ -56,7 +56,7 @@ if ($cgi->param('PGTIOU')) {
       # The callback page stored it in the application vars (in our case a storable object in a file)
       open FILE, "casSession.tmp" or die "Unable to open file";
       my $hashref = fd_retrieve(\*FILE);
-      my $pgtId = %$hashref->{$cgi->param('PGTIOU')};
+      my $pgtId = %{$hashref->{$cgi->param('PGTIOU')}};
       close FILE;
 
       # Now that we have a PgtId, we can ask the cas server for a proxy ticket...