[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.84, Thu May 3 12:28:00 2007 UTC revision 1.89, Tue Jun 19 21:15:37 2007 UTC
# Line 579  Line 579 
579      my $tkey = EmergencyKey();      my $tkey = EmergencyKey();
580      # Add the tracing options.      # Add the tracing options.
581      if (! exists $options->{trace}) {      if (! exists $options->{trace}) {
582          $options->{trace} = ['E', "tracing level (E for emergency tracing)"];          $options->{trace} = ['2', "tracing level (E for emergency tracing)"];
583      }      }
584      $options->{sql} = [0, "turn on SQL tracing"];      $options->{sql} = [0, "turn on SQL tracing"];
585      $options->{help} = [0, "display command-line options"];      $options->{help} = [0, "display command-line options"];
# Line 1264  Line 1264 
1264              if (!$package) {              if (!$package) {
1265                  $category = "main";                  $category = "main";
1266              } else {              } else {
1267                  $category = $package;                  my @cats = split /::/, $package;
1268                    $category = $cats[$#cats];
1269              }              }
1270          }          }
1271          # Save the category name.          # Save the category name.
# Line 1772  Line 1773 
1773  sub Confess {  sub Confess {
1774      # Get the parameters.      # Get the parameters.
1775      my ($message) = @_;      my ($message) = @_;
1776        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.
1778            my $toolHeaderFile = "$FIG_Config::fig_disk/dist/releases/current/$FIG_Config::arch";
1779            # Only proceed if the tool header file is actually present.
1780            if (-f $toolHeaderFile) {
1781                my @lines = GetFile($toolHeaderFile);
1782                Trace("Tool header has " . scalar(@lines) . " lines.");
1783            }
1784        }
1785      # Trace the call stack.      # Trace the call stack.
1786      Cluck($message);      Cluck($message);
1787      # Abort the program.      # Abort the program.
# Line 2323  Line 2333 
2333      # Get the parameters.      # Get the parameters.
2334      my ($tkey, $myDest) = @_;      my ($tkey, $myDest) = @_;
2335      # Declare the return variable.      # Declare the return variable.
2336      my $retVal;      my $retVal = $myDest;
2337      # Process according to the destination value.      # Process according to the destination value.
2338      if ($myDest eq 'FILE') {      if ($myDest eq 'FILE') {
2339          $retVal = ">" . EmergencyFileTarget($tkey);          $retVal = ">" . EmergencyFileTarget($tkey);
# Line 3175  Line 3185 
3185      return $retVal;      return $retVal;
3186  }  }
3187    
3188    
3189  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3