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