You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/02/21 02:40:03 UTC
cvs commit: modperl-2.0/lib/ModPerl TypeMap.pm
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;
}