[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.34, Thu Mar 25 16:10:54 2010 UTC revision 1.35, Mon Apr 12 01:06:54 2010 UTC
# Line 223  Line 223 
223      my %dirs = ('+' => 0, '-' => 0);      my %dirs = ('+' => 0, '-' => 0);
224      # This will count the number of errors found.      # This will count the number of errors found.
225      my $error = 0;      my $error = 0;
226        # Insure the location is an array. If it's not, we assume it's a string of
227        # comma-separated values.
228        if (! ref $locs) {
229            $locs = [ split /\s*,\s*/, $locs ];
230        }
231      # Loop through the locations.      # Loop through the locations.
232      for my $loc (@$locs) {      for my $loc (@$locs) {
233          # Parse this location.          # Parse this location.

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3