cvs commit: modperl-2.0/lib/ModPerl TypeMap.pm WrapXS.pm

[dougm]

dougm       01/03/12 20:03:01

  Modified:    lib/ModPerl TypeMap.pm WrapXS.pm
  Log:
  make sure Apache::Structure table is loaded
  
  Revision  Changes    Path
  1.3       +1 -0      modperl-2.0/lib/ModPerl/TypeMap.pm
  
  Index: TypeMap.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/TypeMap.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- TypeMap.pm        2001/03/13 01:47:23     1.2
  +++ TypeMap.pm        2001/03/13 04:03:00     1.3
  @@ -272,6 +272,7 @@
   
       my(@types, @missing, %seen);
   
  +    require Apache::StructureTable;
       for my $entry (@$Apache::StructureTable) {
           push @types, map $_->{type}, @{ $entry->{elts} };
       }
  
  
  
  1.2       +1 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- WrapXS.pm 2001/03/05 03:47:33     1.1
  +++ WrapXS.pm 2001/03/13 04:03:00     1.2
  @@ -163,6 +163,7 @@
       my $self = shift;
       my $typemap = $self->typemap;
   
  +    require Apache::StructureTable;
       for my $entry (@$Apache::StructureTable) {
           my $struct = $typemap->map_structure($entry);
           next unless $struct;