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"