*** perceps.pl	Mon May  3 19:01:31 1999
--- /ldcg/bin/perceps	Tue Aug 24 10:39:57 1999
***************
*** 1,4 ****
! #!/usr/bin/perl
  
  require "ctime.pl";
  require "getopts.pl";
--- 1,4 ----
! #!/ldcg/bin/perl
  
  require "ctime.pl";
  require "getopts.pl";
***************
*** 2105,2111 ****
          $temp1=$1,$temp2=$2,$temp3=$3,$temp4=$4,$temp5=$5;
          $fid=&PROCARGS($temp2);
          $newmem=1;
!         $membername="$temp1($fid)";
          $members{$classname,$ptype}.="$membername$;";
          $access{$classname,$membername}=$ptype;
          $memname{$classname,$membername}=$temp1;
--- 2105,2111 ----
          $temp1=$1,$temp2=$2,$temp3=$3,$temp4=$4,$temp5=$5;
          $fid=&PROCARGS($temp2);
          $newmem=1;
!         $membername="$temp1($fid) ";
          $members{$classname,$ptype}.="$membername$;";
          $access{$classname,$membername}=$ptype;
          $memname{$classname,$membername}=$temp1;
***************
*** 2295,2301 ****
    if ($block=~/^\s*(\S+|operator\s*\S\s*\S?)\s*\(([^\{\)]*)\)\s*(const|)\s*(throw\s*\w*\s*\([^\{\)]*\)|)/) {
      $temp1=$1,$temp2=$2,$temp3=$3,$temp4=$4,$temp5=$5;
      $fid=&PROCARGS($temp2);
!     $gfunc="$temp1($fid)";
      $funcname{$gfunc}=$temp1;
      $args{$gfunc}=$temp2;
      $type{$gfunc}="";
--- 2295,2301 ----
    if ($block=~/^\s*(\S+|operator\s*\S\s*\S?)\s*\(([^\{\)]*)\)\s*(const|)\s*(throw\s*\w*\s*\([^\{\)]*\)|)/) {
      $temp1=$1,$temp2=$2,$temp3=$3,$temp4=$4,$temp5=$5;
      $fid=&PROCARGS($temp2);
!     $gfunc="$temp1($fid) ";
      $funcname{$gfunc}=$temp1;
      $args{$gfunc}=$temp2;
      $type{$gfunc}="";
***************
*** 2356,2362 ****
      $rclass=$1;
      $nsname=$2;
      $nonscoped=$gfunc;
!     $nonscoped=~s/$funcname{$gfunc}/$nsname/;
      $related_func{$rclass,$nonscoped}=$gfunc;
      if ($modtime>$modtime{$rclass}) { $modtime{$rclass}=$modtime; }
      if (!$mergefunc) {
--- 2356,2364 ----
      $rclass=$1;
      $nsname=$2;
      $nonscoped=$gfunc;
!     $fixup=$funcname{$gfunc};
! 	$fixup=~s/([\[\]])/\\\1/g;
!     $nonscoped=~s/$fixup/$nsname/;
      $related_func{$rclass,$nonscoped}=$gfunc;
      if ($modtime>$modtime{$rclass}) { $modtime{$rclass}=$modtime; }
      if (!$mergefunc) {