Bug 20019: use Modern::Perl in misc perl scripts

[srvgit] / 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 ba4a138..a333f89 100755 (executable)
--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
@@ -30,8 +30,7 @@ This PGTIOU will allow us to retrive the matching PGTID
 
 =cut 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use Authen::CAS::Client;
 use Storable qw(fd_retrieve);