Advertisement
Guest User

Untitled

a guest
Apr 12th, 2016
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.31 KB | None | 0 0
  1. # Workaround for https://github.com/MoarVM/MoarVM/issues/165
  2. # my $stdinput = $*IN.Supply;
  3. my $insupplier = Supplier.new;
  4. {
  5.     use Readline;
  6.     start {
  7.     my $readline = Readline.new;
  8.     while my $msg = $readline.readline( "" ) {
  9.         $insupplier.emit($msg);
  10.     }
  11.     };
  12. }
  13. my $stdinput = $insupplier.Supply;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement