[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.49, Tue Mar 26 02:10:46 2013 UTC revision 1.50, Wed May 8 20:28:44 2013 UTC
# Line 1041  Line 1041 
1041      # Get the parameters.      # Get the parameters.
1042      my ($self, $subName) = @_;      my ($self, $subName) = @_;
1043      # Normalize the subsystem name by converting underscores to spaces.      # Normalize the subsystem name by converting underscores to spaces.
1044      # Underscores at the end are not converted.      # Underscores at the beginning and end are not converted.
1045      my $retVal = $subName;      my $retVal = $subName;
1046      my $trailer = chop $retVal;      my $trailer = chop $retVal;
1047        my $prefix = substr($retVal,0,1);
1048        $retVal = substr($retVal, 1);
1049      $retVal =~ tr/_/ /;      $retVal =~ tr/_/ /;
1050      $retVal .= $trailer;      $retVal = $prefix . $retVal . $trailer;
1051      # Return the result.      # Return the result.
1052      return $retVal;      return $retVal;
1053  }  }

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3