dougm 02/02/20 17:40:03 Modified: lib/ModPerl TypeMap.pm Log: loosen aTHX check; might be "register PerlInterpreter" Revision Changes Path 1.13 +1 -1 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.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- TypeMap.pm 7 Nov 2001 03:14:54 -0000 1.12 +++ TypeMap.pm 21 Feb 2002 01:40:03 -0000 1.13 @@ -203,7 +203,7 @@ return unless $first; - if ($first->{type} =~ /^PerlInterpreter/) { + if ($first->{type} =~ /PerlInterpreter/) { shift @{ $func->{args} }; $func->{thx} = 1; }