POE::Session major bug.

[flw]

Sorry for my poor english, let me show it just by code.

flw@waker:~/study$ perl -MPOE -le 'print "$POE::VERSION
$POE::Kernel::VERSION $POE::Session::VERSION"'
1.299 1.299 1.299
flw@waker:~/study$ ./bug.pl
start
call bar ....
inner bar
call bar ....
inner bar
found bug.
call bar ....
call bar ....
call bar ....
flw@waker:~/study$ cat bug.pl
#!/usr/bin/perl
use strict;
use warnings;
use POE;

create POE::Session(
    package_states => [
        main => [qw( _start foo bar die_on_bug )],
    ],
);

run POE::Kernel();

sub _start{
    print "start\n";

    $_[KERNEL]->yield( 'foo' );
}

exit 0;

my $found_bug;

sub foo {
    my $sess = $_[KERNEL]->_resolve_session($_[SESSION]) || '';
    if ( $_[SESSION] ne $sess and not $found_bug ){
        $found_bug = 1;
        print "found bug.\n";
        $_[KERNEL]->delay( die_on_bug => 3 );
    }

    print "call bar ....\n";
    my $ret = $_[KERNEL]->call( $_[SESSION] => bar => 1 );    # bad
    #$_[KERNEL]->call( $_[SESSION] => bar => 1 ) or 1;         # bad too
    #my @ret = $_[KERNEL]->call( $_[SESSION] => bar => 1 );    # bad too
    # $_[KERNEL]->call( $_[SESSION] => bar => 1 );              # good

    $_[KERNEL]->delay( foo => 1 );
}

sub bar {
    print "inner bar\n";
}

sub die_on_bug {
    exit 0;
}
flw@waker:~/study$