perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
Date Mon, 24 Mar 2003 04:38:19 GMT
stas        2003/03/23 20:38:19

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  oops. lost the typemap for classes, fix that
  
  Revision  Changes    Path
  1.54      +4 -6      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.53
  retrieving revision 1.54
  diff -u -r1.53 -r1.54
  --- WrapXS.pm	24 Mar 2003 04:29:45 -0000	1.53
  +++ WrapXS.pm	24 Mar 2003 04:38:19 -0000	1.54
  @@ -539,18 +539,16 @@
       my $max_key_len = 0;
       while (my($type, $class) = each %$map) {
           $class ||= $type;
  -        my $val;
           next if $seen{$type}++ || $typemap->special($class);
   
           if ($class =~ /::/) {
  -            $val = $typemap{$class} || 'T_PTROBJ';
  +            $entries{$class} = $typemap{$class} || 'T_PTROBJ';
  +            $max_key_len = length $class if length $class > $max_key_len;
           }
           else {
  -            $val = $typemap{$type} || "T_$class";
  +            $entries{$type} = $typemap{$type} || "T_$class";
  +            $max_key_len = length $type if length $type > $max_key_len;
           }
  -
  -        $entries{$type} = $val;
  -        $max_key_len = length $type if length $type > $max_key_len;
       }
   
       for (sort keys %entries) {
  
  
  

Mime
View raw message