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

Diff of /FigKernelPackages/Tracer.pm

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

revision 1.56, Thu Jun 29 18:50:59 2006 UTC revision 1.57, Thu Jun 29 19:00:28 2006 UTC
# Line 2154  Line 2154 
2154              # that, we need to pull the individual part of the name off of the              # that, we need to pull the individual part of the name off of the
2155              # whole path.              # whole path.
2156              my $simpleName = $dir;              my $simpleName = $dir;
2157              if ($dir =~ m!/(.+)$!) {              if ($dir =~ m!/([^/]+)$!) {
2158                  $simpleName = $1;                  $simpleName = $1;
2159              }              }
2160              Trace("Simple directory name for $dir is $simpleName.") if T(4);              Trace("Simple directory name for $dir is $simpleName.") if T(4);

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3