[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.106, Fri May 16 08:32:02 2008 UTC revision 1.107, Mon Jul 7 19:58:47 2008 UTC
# Line 731  Line 731 
731      # Get the parameters.      # Get the parameters.
732      my $message = shift @_;      my $message = shift @_;
733      my %options = map { $_ => 1 } @_;      my %options = map { $_ => 1 } @_;
734        # Save $@;
735        my $savedError = $@;
736      # Trace the message.      # Trace the message.
737      Trace($message);      Trace($message);
738      # This will contain the lock handle. If it's defined, it means we need to unlock.      # This will contain the lock handle. If it's defined, it means we need to unlock.
# Line 887  Line 889 
889          flock $lock, LOCK_UN;          flock $lock, LOCK_UN;
890          undef $lock;          undef $lock;
891      }      }
892        # Restore the error message.
893        $@ = $savedError;
894  }  }
895    
896    

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3