Here's a patch : 

diff -u -r1.63 Session.pm
--- Session.pm  2001/05/28 06:42:01     1.63
+++ Session.pm  2001/06/27 07:15:51
@@ -481,7 +481,7 @@
 
   # Trace the state invocation if tracing is enabled.
 
-  if (exists($self->[SE_OPTIONS]->{OPT_TRACE})) {
+  if ($self->[SE_OPTIONS]->{OPT_TRACE}) {
     warn {% fetch_id $self %}, " -> $state (from $file at $line)\n";
   }
 
@@ -508,7 +508,7 @@
     # If we get this far, then there's a _default state to redirect
     # the transition to.  Trace the redirection.
 
-    if (exists($self->[SE_OPTIONS]->{OPT_TRACE})) {
+    if ($self->[SE_OPTIONS]->{OPT_TRACE}) {
       warn {% fetch_id $self %}, " -> $state redirected to _default\n";
     }
 
@@ -582,7 +582,7 @@
 
     else {
       if ( (ref($handler) eq 'CODE') and
-           exists($self->[SE_OPTIONS]->{OPT_TRACE})
+           $self->[SE_OPTIONS]->{OPT_TRACE}
          ) {
         carp( {% fetch_id $self %},
               " : state($name) is not a proper ref - not registered"

Reply via email to