Re: 100 level deep in subroutine calls [sympa]

[Christophe Wolfhugel <adresse@cachée>]

Si votre sympa fait beaucoup de chargement de listes, je vous recommande
vivement d'appliquer le patch suivant :

--- List.pm     1998/02/03 13:06:56
***************
*** 163,169 ****
  use Conf;
  
  ## RCS identification.
! my $id = '@(#)$Id: List.pm,v 1.5 1998/01/27 14:19:48 sympa Exp sympa $';
  
  ## Generic variables : name of the file having the subscribers, the
  ## control information and the welcome message.
--- 163,169 ----
  use Conf;
  
  ## RCS identification.
! my $id = '@(#)$Id: List.pm,v 1.5 1998/01/27 14:19:48 sympa Exp $';
  
  ## Generic variables : name of the file having the subscribers, the
  ## control information and the welcome message.
***************
*** 721,730 ****
  
     ## Create the in memory btree using DB_File.
     my %users;
!    my $btree = new DB_File::BTREEINFO;
!    return undef unless ($btree);
!    $btree->{'compare'} = 'List::_compare_addresses';
!    my $ref = tie %users, 'DB_File', undef, O_CREAT|O_RDWR, 0600, $btree;
     return undef unless ($ref);
  
     ## Counters.
--- 721,731 ----
  
     ## Create the in memory btree using DB_File.
     my %users;
!    #my $btree = new DB_File::BTREEINFO;
!    #return undef unless ($btree);
!    #$btree->{'compare'} = 'List::_compare_addresses';
!    $DB_BTREE->{'compare'} = 'List::_compare_addresses';
!    my $ref = tie %users, 'DB_File', undef, O_CREAT|O_RDWR, 0600, $DB_BTREE;
     return undef unless ($ref);
  
     ## Counters.

qui corrige le problème indiqué. Un message ultérieur expliquera où fut
l'erreur. Ceux d'entre vous qui ont un sympa actif et qui ne fait pas
cette erreur c'est probablement que vous n'avez pas fait de mise à jour
depuis fort longtemps :(.

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