[Bio] / Sprout / Sapling.pm Repository:
ViewVC logotype

Diff of /Sprout/Sapling.pm

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

revision 1.37, Mon Jan 3 18:08:10 2011 UTC revision 1.38, Tue Jan 11 15:04:03 2011 UTC
# Line 1034  Line 1034 
1034      # Normalize the subsystem name by converting underscores to spaces.      # Normalize the subsystem name by converting underscores to spaces.
1035      # Underscores at the end are not converted.      # Underscores at the end are not converted.
1036      my $retVal = $subName;      my $retVal = $subName;
1037      $retVal =~ s/_(?=.)/ /g;      my $trailer = chop $retVal;
1038        $retVal =~ tr/_/ /;
1039        $retVal .= $trailer;
1040      # Return the result.      # Return the result.
1041      return $retVal;      return $retVal;
1042  }  }

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3