100 level deep in subroutine calls [sympa]

[Christophe Wolfhugel <adresse@cachée>]

Bonjour.

Depuis quelques jours (et les récentes versions) j'observe ceci :

[...]
Analyse de : SUBSCRIBE smtp-fr Bertrand Astric
Carp::shortmess(/local/lib/perl5/Carp.pm:98):
98:         my $error = join '', @_;
100 levels deep in subroutine calls!

Mais qu'est-ce qui peut bien boucler 100 fois ainsi ?

  DB<3> T
@ = Carp::shortmess('DB_File::BTREEINFO does not define the method CLEAR') 
called from file `/local/lib/perl5/Carp.pm' line 139
$ = Carp::croak('DB_File::BTREEINFO does not define the method CLEAR') called 
from file `/local/lib/perl5/alpha-dec_osf/5.00401/DB_File.pm' line 98
$ = DB_File::HASHINFO::NotHere(ref(DB_File::BTREEINFO), 'CLEAR') called from 
file `/local/lib/perl5/alpha-dec_osf/5.00401/DB_File.pm' line 104
$ = DB_File::HASHINFO::CLEAR(ref(DB_File::BTREEINFO)) called from file 
`/local/lib/perl5/alpha-dec_osf/5.00401/DB_File.pm' line 101
$ = DB_File::HASHINFO::DESTROY(ref(DB_File::BTREEINFO)) called from file 
`/local/lib/perl5/perl5db.pl' line 1127
$ = eval {...} called from file `/local/lib/perl5/perl5db.pl' line 1127
$ = List::load(ref(List), 'smtp-fr') called from file 
`/var/sympa/bin/List.pm' line 199
$ = List::new('List', 'smtp-fr') called from file 
`/var/sympa/bin/Commands.pm' line 360
$ = Commands::subscribe(undef) called from file `/var/sympa/bin/Commands.pm' 
line 64
$ = Commands::parse('adresse@cachée', 'SUBSCRIBE smtp-fr 
Bertrand Astric') called from file `/var/sympa/bin/sympa.pl' line 348
$ = main::DoCommand('listserv^J', ref(Mail::Internet)) called from file 
`/var/sympa/bin/sympa.pl' line 164
$ = main::DoFile('/var/sympa/queue/0.886416153.9076') called from file 
`/var/sympa/bin/sympa.pl' line 117

Hélas je ne vois pas 100 niveaux de profondeur ici, et n'ai pas trop idée
de où cela se bloque. Puis-je, à raison, supposer que le problème se
situe quelque part dans DB_File.pm ? Faut-il chercher ailleurs ? Comment
en savoir plus ?

-- 
Christophe Wolfhugel  -+- SIS, Institut Pasteur, Paris
Boulot : adresse@cachée,  $HOME : adresse@cachée