# New Ticket Created by 刘刊
# Please include the string: [perl #128824]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=128824 >
liukan@candor:~/Code$ cat p1.pl6
use v6;
my $p = Promise.start: { sleep 1; 42 };
$p.then: { say .result }; $p.result;
my $s = $p.status;
#say $s;
exit 0;
liukan@candor:~/Code$ perl6 p1.pl6
42
## this is OK
BUG SYMPTOM:
liukan@candor:~/Code$ cat p2.pl6
use v6;
my $p = Promise.start: { sleep 1; 42 };
$p.then: { say .result }; $p.result;
my $s = $p.status;
#say $s;
#exit 0;
liukan@candor:~/Code$ perl6 p2.pl6
liukan@candor:~/Code$
## nothing is printed
liukan@candor:~/Code$ perl6 -v
This is Rakudo version 2016.07.1 built on MoarVM version 2016.07
implementing Perl 6.c.
liukan@candor:~/Code$ uname -a
Linux candor 4.4.0-31-generic #50-Ubuntu SMP Wed Jul 13 00:07:12 UTC 2016
x86_64 x86_64 x86_64 GNU/Linux
- kan
