tadzik

I'd just like to interject for a moment.
What you're referring to as Linux, is in fact, GNU/Linux, or as I've recently taken to calling it, GNU plus Linux.
Linux is not an operating system unto itself, but rather another free component of a fully functioning GNU system made useful by the GNU corelibs, shell utilities and vital system components comprising a full OS as defined by POSIX.
Many computer users run a modified version of the GNU system every day, without realizing it. Through a peculiar turn of events, the version of GNU which is widely used today is often called Linux, and many of its users are not aware that it is basically the GNU system, developed by the GNU Project.
There really is a Linux, and these people are using it, but it is just a part of the system they use. Linux is the kernel: the program in the system that allocates the machine's resources to the other programs that you run. The kernel is an essential part of an operating system, but useless by itself; it can only function in the con

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;
}