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 st...@apache.org on 2002/03/13 18:26:51 UTC
cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
stas 02/03/13 09:26:50
Modified: lib/ModPerl WrapXS.pm
Log:
- wrap the XS loading in the BEGIN block, to make sure that any constants
defined in the boot function will be immediately available during
the perl code compilation
Revision Changes Path
1.40 +7 -4 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.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- WrapXS.pm 14 Dec 2001 05:12:13 -0000 1.39
+++ WrapXS.pm 13 Mar 2002 17:26:50 -0000 1.40
@@ -496,10 +496,13 @@
$noedit_warning
package $module;
-$isa
-use $loader ();
-our \$VERSION = '0.01';
-$loader\::load __PACKAGE__;
+
+BEGIN {
+ $isa
+ use $loader ();
+ our \$VERSION = '0.01';
+ $loader\::load __PACKAGE__;
+}
$code