belden

// Here's a simple lambda combinator; it'll turn the function passed in
// into a function which, when called, returns a recursible copy of itself.
function y_combinator(curried) {
    return function(f1){
        return curried(function () { f1(f1)(arguments) });
    }(function (f2) {
        return curried(function () { f2(f2)(arguments) });
    });
}

belden

#!/usr/bin/env perl

use strict;
use warnings;

use Want qw(rreturn);
use Test::Resub qw(resub);
BEGIN { *CORE::GLOBAL::die = sub { CORE::die(@_) } }

use Data::Dumper;

belden

# this is for Perl v5.10.1
#
($$$$$)
	msgrcv

($$$$)
	semctl
	shmread
	shmwrite

belden

#!/usr/bin/env perl

use strict;
use warnings;
use Carp qw(cluck);

use autodie ':all';
use Getopt::Long 2.33 qw(:config auto_help);
use File::Find::Rule;
use File::Basename 'basename';