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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.100, Wed Apr 4 21:22:52 2007 UTC revision 1.101, Wed Apr 4 21:31:55 2007 UTC
# Line 1442  Line 1442 
1442      @abbrs = $self->get_abbrs();      @abbrs = $self->get_abbrs();
1443    
1444      #      #
1445      # Check abbreviations for validity. We disallow spaces, and enforce      # Check abbreviations for validity. We disallow spaces, commas, and colons,
1446      # uniqueness.      # and enforce uniqueness.
1447      #      #
1448    
1449      my %abbrs;      my %abbrs;
1450      map { s/\s*//g; } @abbrs;      map { s/[\s,:]*//g; } @abbrs;
1451      map { $abbrs{$_}++ } @abbrs;      map { $abbrs{$_}++ } @abbrs;
1452    
1453      for (my $i = 0; $i < @abbrs; $i++)      for (my $i = 0; $i < @abbrs; $i++)

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3