Bug 21395: Make perlcritic happy

[koha.git] / docs / CAS / CASProxy / examples / proxy_cas_data.pl

diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
index 34f4ce0..70ea24c 100755 (executable)
--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
@@ -54,10 +54,10 @@ if ($cgi->param('PGTIOU')) {
       # At this point, we must retrieve the PgtId by matching the PgtIou we
       # just received and the PgtIou given by the CAS Server to the callback URL
       # 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);
+      open my $fh, '<', "casSession.tmp" or die "Unable to open file";
+      my $hashref = fd_retrieve($fh);
       my $pgtId = %{$hashref->{$cgi->param('PGTIOU')}};
-      close FILE;
+      close $fh;
 
       # Now that we have a PgtId, we can ask the cas server for a proxy ticket...
       my $rp = $cas->proxy( $pgtId, $target_service );