cvs commit: modperl-2.0/util source_scan.pl

[dougm]

dougm       01/03/04 19:57:40

  Modified:    util     source_scan.pl
  Log:
  specify Apache/APR prefixes to look for
  pass @ARGV to optionally specify apxs
  build the ModPerl::FunctionTable module
  
  Revision  Changes    Path
  1.3       +10 -1     modperl-2.0/util/source_scan.pl
  
  Index: source_scan.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/util/source_scan.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- source_scan.pl    2001/01/22 20:21:49     1.2
  +++ source_scan.pl    2001/03/05 03:57:40     1.3
  @@ -4,11 +4,20 @@
   
   use strict;
   use Apache::ParseSource ();
  +use ModPerl::ParseSource ();
  +use ModPerl::FunctionMap ();
   
  -my $p = Apache::ParseSource->new;
  +my $p = Apache::ParseSource->new(prefixes => ModPerl::FunctionMap->prefixes,
  +                                 @ARGV);
   
   $p->parse;
   
   $p->write_functions_pm;
   
   $p->write_structs_pm;
  +
  +$p = ModPerl::ParseSource->new(@ARGV);
  +
  +$p->parse;
  +
  +$p->write_functions_pm;