FROGGS

diff --git a/t/sdlx_fps.t b/t/sdlx_fps.t
index a168b60..e929402 100644
--- a/t/sdlx_fps.t
+++ b/t/sdlx_fps.t
@@ -31,7 +31,9 @@ is( $fps->get, $_fps, 'fps->get' );
 is( $fps->rate, $_fps, 'fps->rate' );
 
 cmp_ok( $fps->lastticks, '>=', $ticks_start, 'fps->lastticks' );
-cmp_ok( $fps->lastticks, '<=', $ticks_init,  'fps->lastticks' );
+# Since SDL_gfx version 2.0.24 the ticks we get are always non-zero,

FROGGS

#!/opt/bin/perl6

my $file = q:to/END/;
=data ab cd ef gh ij kl
# ab cd ef gh ij
2: 6 8 0 15 6 1
3: 6 7 0 10 3 2
4: 8 8 2 13 5 8
5: 11 15 1 13 8 5
7: 8 8 2 15 2 1

FROGGS

$ perl Configure.pl

===SORRY!===
Cannot obtain configuration from NQP on parrot

To automatically clone (git) and build a copy of NQP 2014.04,
try re-running Configure.pl with the '--gen-nqp' or '--gen-parrot'
options.  Or, use '--prefix=' to explicitly
specify the path where the NQP and Parrot executable can be found that are use to build Rakudo.

FROGGS

Running install for module 'SDL'
Running make for F/FR/FROGGS/SDL-2.542.tar.gz
Fetching with HTTP::Tiny:
http://cpan-mirror.telesys.org.ua/authors/id/F/FR/FROGGS/SDL-2.542.tar.gz

Checksum mismatch for distribution file. Please investigate.

Distribution id = F/FR/FROGGS/SDL-2.542.tar.gz
    CPAN_USERID  FROGGS (Tobias Leich <froggs@cpan.org>)
    CALLED_FOR   SDL

FROGGS

use v6;
use QAST:from<NQP>;

grammar COBOL::Grammar {
    token statementlist($bootint) {
        .*
    }
};

FROGGS

1) wipe C:\rakudo
2) fetch the star tgz file
3) unpack to C:\rakudo-star-YYYY.MM
4) cd to it
5) mkdir nqp\install
6) C:\Perl\bin\perl.exe Configure.pl --prefix=C:\rakudo --gen-parrot
7) copy parrot\libparrot.lib C:\rakudo\bin
8) C:\Perl\bin\perl.exe Configure.pl --prefix=C:\rakudo --gen-parrot
9) nmake install
10) copy bin\p6doc.bat, panda.bat and ufo.bat from older version

FROGGS

use NativeCall;

class MVMCollectable is repr('CStruct') {
    has uint32 $.owner;
    has uint16 $.flags;
    has uint16 $.size;
}

my int8 $x = 42;

FROGGS

diff --git a/src/core/args.c b/src/core/args.c
index 3970dc1..1ffa19f 100644
--- a/src/core/args.c
+++ b/src/core/args.c
@@ -86,6 +86,8 @@ MVMObject * MVM_args_use_capture(MVMThreadContext *tc, MVMFrame *f) {
     MVMCallCapture *capture = (MVMCallCapture *)tc->cur_usecapture;
     if (capture->body.use_mode_frame)
         MVM_frame_dec_ref(tc, capture->body.use_mode_frame);
+    else if (capture->body.apc)
+        free(capture->body.apc);

FROGGS

sub fib(int $n) {
$n < 2 ?? $n !! fib( $n - 1 ) + fib( $n - 2 );
}
my $N = 30;
print "fib($N) = " ~ fib($N) ~ "\n";

FROGGS

use feature qw(say);
use MIME::Base64;
use Digest::SHA1 qw(sha1);
use Digest::HMAC qw(hmac);

# Calculates Pseudorandom SHA1 as defined in http://tools.ietf.org/html/rfc5246 (5.  HMAC and the Pseudorandom Function)
sub psha1 {
    my $secret  = shift;
    my $seed    = shift;
    my $keySize = shift || 256;