[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.98, Fri May 28 19:27:00 2004 UTC revision 1.99, Sat May 29 14:08:58 2004 UTC
# Line 4150  Line 4150 
4150  =cut  =cut
4151    
4152  sub roles_of_function {  sub roles_of_function {
4153      my($func) = @_;      my $func = (@_ == 1) ? $_[0] : $_[1];
4154    
4155      return (split(/\s*[\/;]\s+/,$func),($func =~ /\d+\.\d+\.\d+\.\d+/g));      return (split(/\s*[\/;]\s+/,$func),($func =~ /\d+\.\d+\.\d+\.\d+/g));
4156  }  }

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3