[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.88, Thu Jun 14 19:27:32 2007 UTC revision 1.89, Tue Jun 19 21:15:37 2007 UTC
# Line 1775  Line 1775 
1775      my ($message) = @_;      my ($message) = @_;
1776      if (! defined($FIG_Config::no_tool_hdr)) {      if (! defined($FIG_Config::no_tool_hdr)) {
1777          # Here we have a tool header. Display its length so that the user can adjust the line numbers.          # Here we have a tool header. Display its length so that the user can adjust the line numbers.
1778          #          my $toolHeaderFile = "$FIG_Config::fig_disk/dist/releases/current/$FIG_Config::arch";
1779          # Don't try to GetFile before checking if the file exists, otherwise we          # Only proceed if the tool header file is actually present.
1780          # have an infinite loop. We shoudl probably look for tool_hdr in the right place          if (-f $toolHeaderFile) {
1781          # though.              my @lines = GetFile($toolHeaderFile);
         #  
         if (-f "$FIG_Config::common_runtime/tool_hdr")  
         {  
             my @lines = GetFile("$FIG_Config::common_runtime/tool_hdr");  
1782              Trace("Tool header has " . scalar(@lines) . " lines.");              Trace("Tool header has " . scalar(@lines) . " lines.");
1783          }          }
1784      }      }

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3