[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.86, Fri May 18 19:27:17 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 2323  Line 2323 
2323      # Get the parameters.      # Get the parameters.
2324      my ($tkey, $myDest) = @_;      my ($tkey, $myDest) = @_;
2325      # Declare the return variable.      # Declare the return variable.
2326      my $retVal;      my $retVal = $myDest;
2327      # Process according to the destination value.      # Process according to the destination value.
2328      if ($myDest eq 'FILE') {      if ($myDest eq 'FILE') {
2329          $retVal = ">" . EmergencyFileTarget($tkey);          $retVal = ">" . EmergencyFileTarget($tkey);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3