From baf43e6a5b1ddd57306ef779d725e05534aad92b Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Fri, 8 Jun 2018 14:32:02 +0100 Subject: [PATCH] Bug 20906: Prevent test failures due to stricter perl Signed-off-by: Tomas Cohen Arazi Signed-off-by: Nick Clemens Signed-off-by: Martin Renvoize --- docs/CAS/CASProxy/examples/proxy_cas_data.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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... -- 2.39.5