*** HandlerPerl.pm	Fri May 18 20:33:09 2001
--- HandlerPerl.pm.orig	Fri May 18 20:31:58 2001
***************
*** 95,99 ****
  
  	# if ISA in line then extract templates/superclasses
! 	if ($line =~ /^\s*\@[\w:]*ISA.*\((.*)\)/)
  	  {
  	    my $superclass = $1;
--- 95,99 ----
  
  	# if ISA in line then extract templates/superclasses
! 	if ($line =~ /^\s*\@ISA.*\((.*)\)/)
  	  {
  	    my $superclass = $1;