System error

error:  Can't use string ("<1-3,20-24>") as a HASH ref while "strict refs" in use at /net/www/h-k.fr/www/lib/mason/local/extraits.create-jpg-pdf.mas line 98.
context: 
... 
92: 
93:  # Dans tous les cas, on aura besoin de lire la fiche du livre.
94:  my %fiche = io::hash::read("/home/seb/hk/data/infos_livres/$code");
95:  my %gratis;
96:  if (defined $fiche{'communication'}) {
97:  if (defined $fiche{'communication'}{'pages-gratuites'}) {
98:  %gratis = %{ $fiche{'communication'}{'pages-gratuites'} };
99:  }
100:  else {
... 
code stack:  /net/www/h-k.fr/www/lib/mason/local/extraits.create-jpg-pdf.mas:96
/net/www/h-k.fr/www/bin/livre.mas:165
/net/www/h-k.fr/www/main.html:185
/net/www/h-k.fr/www/autohandler:70
raw error






























Can't use string ("<1-3,20-24>") as a HASH ref while "strict refs" in use at /net/www/h-k.fr/www/lib/mason/local/extraits.create-jpg-pdf.mas line 98.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Can\'t use string ("<1-3,20-24>") as a HASH ref while "strict refs" in use at /net/www/h-k.fr/www/lib/mason/local/extraits.create-jpg-pdf.mas line 98.^J') called at /net/www/h-k.fr/www/lib/mason/local/extraits.create-jpg-pdf.mas line 96
HTML::Mason::Commands::__ANON__('code', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55eb48586f80)', 'code', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1298
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'code', 'adc.ps.2010MPp') called at /net/www/h-k.fr/www/bin/livre.mas line 165
HTML::Mason::Commands::__ANON__('q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55eb48435288)', 'q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'q', 'adc.ps.2010MPp') called at /net/www/h-k.fr/www/main.html line 185
HTML::Mason::Commands::__ANON__('q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55eb483da5f0)', 'q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 955
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x55eb4801ba48)') called at /net/www/h-k.fr/www/autohandler line 70
HTML::Mason::Commands::__ANON__('q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55eb483fe3e8)', 'q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1300
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'q', 'adc.ps.2010MPp') called at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55eb4801ba48)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55eb4801ba48)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x55eb48014d00)', 'Apache2::RequestRec=SCALAR(0x55eb47f4da70)') called at (eval 27) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x55eb47f4da70)') called at -e line 0
eval {...} at -e line 0