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

Diff of /FigKernelPackages/SeedUtils.pm

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

revision 1.29, Fri Jan 22 16:53:30 2010 UTC revision 1.30, Fri Jan 29 23:25:55 2010 UTC
# Line 921  Line 921 
921      # Get the parameters.      # Get the parameters.
922      my ($assignment) = @_;      my ($assignment) = @_;
923      # Remove any comment.      # Remove any comment.
924      my $commentFree = ($assignment =~ /(.+?)\s*#/ ? $1 : $assignment);      my $commentFree = ($assignment =~ /(.+?)\s*[#!]/ ? $1 : $assignment);
925      # Split out the roles.      # Split out the roles.
926      my @retVal = split /\s+[\/@;]\s+/, $commentFree;      my @retVal = split /\s+[\/@]\s+|\s*;\s+/, $commentFree;
927      # Return the result.      # Return the result.
928      return @retVal;      return @retVal;
929  }  }

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3