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) {
