cvs commit: modperl-2.0/lib/Apache Build.pm

[dougm]

dougm       01/03/27 16:28:59

  Modified:    lib/Apache Build.pm
  Log:
  get of stoopid CHECK block
  
  Revision  Changes    Path
  1.38      +5 -5      modperl-2.0/lib/Apache/Build.pm
  
  Index: Build.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
  retrieving revision 1.37
  retrieving revision 1.38
  diff -u -r1.37 -r1.38
  --- Build.pm  2001/03/26 22:07:12     1.37
  +++ Build.pm  2001/03/28 00:28:59     1.38
  @@ -348,9 +348,9 @@
   
   my $noedit_warning_hash;
   
  -#we are use'd by ModPerl::Code, so delay this until after compilation
  -CHECK {
  -    $noedit_warning_hash = ModPerl::Code::noedit_warning_hash(__PACKAGE__);
  +sub noedit_warning_hash {
  +    $noedit_warning_hash ||=
  +      ModPerl::Code::noedit_warning_hash(__PACKAGE__);
   }
   
   sub save {
  @@ -367,7 +367,7 @@
       #work around autosplit braindeadness
       my $package = 'package Apache::BuildConfig';
   
  -    print $fh $noedit_warning_hash;
  +    print $fh noedit_warning_hash();
   
       print $fh <<EOF;
   $package;
  @@ -662,7 +662,7 @@
   
       open my $fh, '>', $mf or die "open $mf: $!";
   
  -    print $fh $noedit_warning_hash;
  +    print $fh noedit_warning_hash();
   
       $self->make_tools($fh);