[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.87, Mon Jun 11 17:34:16 2007 UTC revision 1.88, Thu Jun 14 19:27:32 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            #
1779            # Don't try to GetFile before checking if the file exists, otherwise we
1780            # have an infinite loop. We shoudl probably look for tool_hdr in the right place
1781            # though.
1782            #
1783            if (-f "$FIG_Config::common_runtime/tool_hdr")
1784            {
1785          my @lines = GetFile("$FIG_Config::common_runtime/tool_hdr");          my @lines = GetFile("$FIG_Config::common_runtime/tool_hdr");
1786          Trace("Tool header has " . scalar(@lines) . " lines.");          Trace("Tool header has " . scalar(@lines) . " lines.");
1787      }      }
1788        }
1789      # Trace the call stack.      # Trace the call stack.
1790      Cluck($message);      Cluck($message);
1791      # Abort the program.      # Abort the program.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3