tadzik

> grep -i mhz /proc/cpuinfo
cpu MHz		: 2601.000
cpu MHz		: 2601.000
cpu MHz		: 2601.000
cpu MHz		: 2601.000

tadzik

┌─[tadzik@yavin]─[~/src/github.com/rakudo/star] (master)
└─[%]─> perl Configure.pl --backends=parrot --gen-parrot

===SORRY!===
I see a .git directory here -- you appear to be trying
to run Configure.pl from a clone of the Rakudo Star git
repository.
The git repository contains the tools needed to build a Rakudo Star
release, but does not contain a complete Rakudo Star release.
To download and build the latest release of Rakudo Star, please

tadzik

diff --git a/perl.c b/perl.c
index 3de3acf..8df24db 100644
--- a/perl.c
+++ b/perl.c
@@ -2881,7 +2881,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
 /*
 =for apidoc p||eval_pv
 
-Tells Perl to C<eval> the given string and return an SV* result.
+Tells Perl to C<eval> the given string in scalar context and return an SV* result.

tadzik

> s $header
Date: Fri, 22 Aug 2014 11:22:44 GMT
Server: Apache
Content-Length: 321
Content-Type: text/html; charset=iso-8859-1

tadzik

┌─[tadzik@yavin]─[~/src/github.com/sergot/HTTP-UserAgent] (master)*
└─[%]─> perl6-debug-m -Ilib t/09-ua-ssl.t
>>> LOADING t/09-ua-ssl.t
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/UserAgent.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Response.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Message.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Header.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Header/Field.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Request.pm6
>>> LOADING /home/tadzik/src/github.com/sergot/HTTP-UserAgent/lib/HTTP/Cookies.pm6

tadzik

─> g diff|cat
diff --git a/t/09-ua-ssl.t b/t/09-ua-ssl.t
index b49986f..75d0920 100644
--- a/t/09-ua-ssl.t
+++ b/t/09-ua-ssl.t
@@ -12,5 +12,7 @@ my $url = 'https://github.com/';
 my $ssl = HTTP::UserAgent.new;
 my $get = ~$ssl.get($url);
 
+say $get;

tadzik

2> $a = "foo5bar10baz"; split /\d+/, $a;
$res[2] = [
  'foo',
  'bar',
  'baz'
]

3> $a = "foo5bar10baz"; split /(\d+)/, $a;
$res[3] = [
  'foo',

tadzik

class Base {}
class Foo is Base {}
class Bar is Base {}

say Foo ~~ Base;
say Bar ~~ Base;
say (Foo & Bar) ~~ Base;

tadzik

$SIG{QUIT} = 'nope';
$SIG{INT} = 'nope';

while (1) {
    print "choo choo\n";
    sleep 1;
}

tadzik

          - QAST::Stmts 1..100
            - QAST::Stmt 1..100
              - QAST::Want
                - QAST::WVal(Range)
                - v
                - QAST::Op(locallifetime)
                  - QAST::Stmts
                    - QAST::Op(bind)
                      - QAST::Var(local sink_1 :decl(var))
                      - QAST::Op(call &infix:<..>) ..