cvs commit: modperl-2.0/lib/ModPerl Code.pm

[dougm]

dougm       01/12/17 21:58:54

  Modified:    lib/ModPerl Code.pm
  Log:
  generate a modperl_largefiles.h include file with the
  $Config{ccflags_uselargefiles} we have ripped out when compiling
  modperl.
  
  Revision  Changes    Path
  1.74      +16 -0     modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.73
  retrieving revision 1.74
  diff -u -r1.73 -r1.74
  --- Code.pm   2001/12/05 02:22:24     1.73
  +++ Code.pm   2001/12/18 05:58:54     1.74
  @@ -466,6 +466,21 @@
       ();
   }
   
  +sub generate_largefiles {
  +    my($self, $h_fh) = @_;
  +
  +    my $flags = $self->perl_config('ccflags_uselargefiles');
  +
  +    return unless $flags;
  +
  +    for my $flag (split /\s+/, $flags) {
  +        my($name, $val) = split '=', $flag;
  +        $val ||= '';
  +        $name =~ s/^-D//;
  +        print $h_fh "#define $name $val\n";
  +    }
  +}
  +
   sub ins_underscore {
       $_[0] =~ s/([a-z])([A-Z])/$1_$2/g;
   }
  @@ -526,6 +541,7 @@
      generate_flags              => {h => 'modperl_flags.h',
                                      c => 'modperl_flags.c'},
      generate_trace              => {h => 'modperl_trace.h'},
  +   generate_largefiles         => {h => 'modperl_largefiles.h'},
      generate_constants          => {h => 'modperl_constants.h',
                                      c => 'modperl_constants.c'},
   );