cvs commit: apache-1.3/src/helpers UpdateHide

[dgaudet]

dgaudet     98/03/04 01:47:38

  Modified:    src/helpers UpdateHide
  Log:
  Support for -DUSE_HSREGEX, no hiding for the regex symbols.
  Support for Linux... which incidentally has an R symbol type for read-only
  data (this is a gnu feature maybe, it may even be an optional posix thing).
  
  Revision  Changes    Path
  1.3       +7 -2      apache-1.3/src/helpers/UpdateHide
  
  Index: UpdateHide
  ===================================================================
  RCS file: /export/home/cvs/apache-1.3/src/helpers/UpdateHide,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- UpdateHide        1998/03/03 13:47:43     1.2
  +++ UpdateHide        1998/03/04 09:47:37     1.3
  @@ -18,6 +18,7 @@
       main errno environ optarg
       dlclose dlerror dlopen dlsym
       start end atexit exit etext edata
  +    regcomp regerror regexec regfree
   );
   @included   = qw(
       D:db_auth_module
  @@ -37,6 +38,10 @@
       $nm_cmd   = '/usr/ccs/bin/nm -p -g';
       $us_strip = 0;
   }
  +elsif ($gnutriple =~ /linux/) {
  +    $nm_cmd   = '/usr/bin/nm -g';
  +    $us_strip = 0;
  +}
   else {
       print STDERR "Sorry, UpdateHide currently can be used only under\n";
       print STDERR "the following OS: FreeBSD, Solaris, HPUX\n";
  @@ -57,7 +62,7 @@
   %ST = ();
   @L = `$nm_cmd $httpdbinary`;
   foreach $l (@L) {
  -    if ($l =~ m|^.*\s+([BDT])\s+(\S+)\s*$|) {
  +    if ($l =~ m|^.*\s+([BDRT])\s+(\S+)\s*$|) {
           ($type, $name) = ($1, $2);
   
           #   remove leading underscore (C linker convention)
  @@ -73,7 +78,7 @@
   
           #   insert the symbol into our lists
           $SB{$name}++ if $type eq 'B';
  -        $SD{$name}++ if $type eq 'D';
  +        $SD{$name}++ if $type eq 'D' or $type eq 'R';
           $ST{$name}++ if $type eq 'T';
       }
   }