Skip to content

Instantly share code, notes, and snippets.

@Ovid
Created October 18, 2015 15:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ovid/4cb42aefd126fde16000 to your computer and use it in GitHub Desktop.
Save Ovid/4cb42aefd126fde16000 to your computer and use it in GitHub Desktop.
await start weirdness in Perl 6
05:20:34 ~/temp $ time perl6 -MHTTP::UserAgent -e 'my $url = "http://www.rakudo.org/"; my $ua = HTTP::UserAgent.new; $ua.get($url)'
real 0m12.382s
user 0m10.374s
sys 0m0.203s
05:21:33 ~/temp $ time perl6 -MHTTP::UserAgent -e 'my $url = "http://www.rakudo.org/"; my $ua = HTTP::UserAgent.new; $ua.get($url); await start { $ua.get($url) }'
real 0m13.869s
user 0m10.607s
sys 0m0.215s
05:21:59 ~/temp $ time perl6 -MHTTP::UserAgent -e 'my $url = "http://www.rakudo.org/"; my $ua = HTTP::UserAgent.new; await start { $ua.get($url) }'
# hangs forever unless we do a FIRST $ua.get outside of start {}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment