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>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit baf43e6a5b)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
8cd11380a8
commit
a3b3019ad3
|
|
@ -57,7 +57,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...
|
||||
|
|
|
|||
Loading…
Reference in New Issue