dougm 02/03/25 18:45:32
Modified: lib/ModPerl WrapXS.pm
Log:
this BEGIN block crashes the server on win32; backing out
Revision Changes Path
1.41 +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.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- WrapXS.pm 13 Mar 2002 17:26:50 -0000 1.40
+++ WrapXS.pm 26 Mar 2002 02:45:32 -0000 1.41
@@ -497,12 +497,10 @@
package $module;
-BEGIN {
- $isa
- use $loader ();
- our \$VERSION = '0.01';
- $loader\::load __PACKAGE__;
-}
+$isa
+use $loader ();
+our \$VERSION = '0.01';
+$loader\::load __PACKAGE__;
$code
