gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Martin Renvoize 2018-06-08 14:32:02 +01:00 committed by Nick Clemens
parent 82be39a389
commit ea39ac2b18
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/CAS/CASProxy/examples/proxy_cas_data.pl
View File

@ -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...