cvs commit: modperl-2.0/xs/APR/PerlIO PerlIO.pm

[randyk]

randyk      2004/06/22 15:44:14

  Modified:    lib/ModPerl WrapXS.pm
               xs/APR/Const Const.pm
               xs/APR/PerlIO PerlIO.pm
  Log:
  Reviewed by:  stas
  Add 'use APR ()' in APR::* modules, so APR is loaded by APR::*.
  
  Revision  Changes    Path
  1.75      +2 -0      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.74
  retrieving revision 1.75
  diff -u -r1.74 -r1.75
  --- WrapXS.pm 28 May 2004 01:35:15 -0000      1.74
  +++ WrapXS.pm 22 Jun 2004 22:44:14 -0000      1.75
  @@ -572,6 +572,7 @@
   
       my $fh = $self->open_class_file($module, '.pm');
       my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash();
  +    my $use_apr = ($module =~ /^APR::\w+$/) ? 'use APR ();' : '';
   
       print $fh <<EOF;
   $noedit_warning
  @@ -582,6 +583,7 @@
   use warnings FATAL => 'all';
   
   $isa
  +$use_apr
   use $loader ();
   our \$VERSION = '0.01';
   $loader\::load __PACKAGE__;
  
  
  
  1.3       +1 -0      modperl-2.0/xs/APR/Const/Const.pm
  
  Index: Const.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Const/Const.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Const.pm  4 Mar 2004 06:01:09 -0000       1.2
  +++ Const.pm  22 Jun 2004 22:44:14 -0000      1.3
  @@ -15,6 +15,7 @@
   package APR::Const;
   
   use ModPerl::Const ();
  +use APR ();
   use XSLoader ();
   
   our $VERSION = '0.01';
  
  
  
  1.5       +1 -0      modperl-2.0/xs/APR/PerlIO/PerlIO.pm
  
  Index: PerlIO.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/PerlIO.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- PerlIO.pm 4 Mar 2004 06:01:10 -0000       1.4
  +++ PerlIO.pm 22 Jun 2004 22:44:14 -0000      1.5
  @@ -22,6 +22,7 @@
   use Config;
   use constant PERLIO_LAYERS_ARE_ENABLED => $Config{useperlio} && $] >= 5.00703;
   
  +use APR ();
   use APR::XSLoader ();
   APR::XSLoader::load __PACKAGE__;