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
   
  
  
  


Reply via email to