[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.337, Sat Aug 6 15:30:29 2005 UTC revision 1.338, Sun Aug 7 22:06:58 2005 UTC
# Line 8596  Line 8596 
8596      my $func = (@_ == 1) ? $_[0] : $_[1];      my $func = (@_ == 1) ? $_[0] : $_[1];
8597    
8598      $func =~ s/\!.*$//;      $func =~ s/\!.*$//;
8599      return (split(/\s*;\s+|\s+[\@\/]\s+/,$func),($func =~ /\d+\.\d+\.\d+\.\d+/g));      my %roles = map { $_ => 1 } (split(/\s*;\s+|\s+[\@\/]\s+/,$func),($func =~ /\d+\.\d+\.\d+\.\d+/g),$func);
8600        return keys(%roles);
8601  }  }
8602    
8603  =head3 seqs_with_role  =head3 seqs_with_role

Legend:
Removed from v.1.337  
changed lines
  Added in v.1.338

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3