exodist

Cleaning up build files
Building Hash-StoredIterator
cc -I/home/exodist/perl5/perlbrew/perls/perl-5.16.1/lib/5.16.1/x86_64-linux/CORE -DXS_VERSION="0.004" -DVERSION="0.004" -fPIC -c -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -o lib/Hash/StoredIterator.o lib/Hash/StoredIterator.c
lib/Hash/StoredIterator.c: In function ‘XS_Hash__StoredIterator_hash_get_iterator’:
lib/Hash/StoredIterator.c:212:2: warning: passing argument 2 of ‘Perl_sv_setpv’ from incompatible pointer type [enabled by default]
In file included from /home/exodist/perl5/perlbrew/perls/perl-5.16.1/lib/5.16.1/x86_64-linux/CORE/perl.h:5030:0,
                 from lib/Hash/StoredIterator.xs:2:
/home/exodist/perl5/perlbrew/perls/perl-5.16.1/lib/5.16.1/x86_64-linux/CORE/proto.h:4154:20: note: expected ‘const char * const’ but argument is of type ‘struct hsi *’
ExtUtils::Mkbootstrap::Mkbootstrap('blib/arch/auto/Hash/StoredIterator/StoredIterator.bs')
cc -shared -O2 -L/usr/local/lib -f

exodist

#!/usr/bin/perl
use strict;
use warnings;

my $foo = "hello\n";

$a = undef;
$b = undef;
EVIL:
$foo = $a if $a; 

exodist

exodist@Aswan $ setopt PROMPT_SUBST           
exodist@Aswan $ function foo() { date +%s }   
exodist@Aswan $ export RPROMPT="%{$(foo)%}"      
exodist@Aswan $                                                                                                       1394749035
exodist@Aswan $                                                                                                       1394749035
exodist@Aswan $                                                                                                       1394749035
exodist@Aswan $                                                                                                       1394749035

exodist

BLACK="%{"$'\033[01;30m'"%}"
GREEN="%{"$'\033[01;32m'"%}"
RED="%{"$'\033[01;31m'"%}"
YELLOW="%{"$'\033[01;33m'"%}"
BLUE="%{"$'\033[01;34m'"%}"
BOLD="%{"$'\033[01;39m'"%}"
NORM="%{"$'\033[00m'"%}"

function gstat() {
    branchinfo=`git branch 2>/dev/null`

exodist

package Test::Calculate;
use strict;
use warnings;

use Data::Dumper;
use base 'Exporter';
use Carp qw/croak/;

our @EXPORT = ('CALCULATE');

exodist

use strict;
use warnings;

{
    package Foo;

    sub finish {
        $_[0] = undef;
    }   

exodist

sub use_fork {
    require Storable;

    my ($r, $w);
    pipe($r, $w) || confess "Could not open pipe! $!";

    $_[0]->[_USE_FORK] ||= [$r, $w];

    return 1;
}

exodist

use strict;
use warnings;

BEGIN {
    if( $ENV{PERL_CORE} ) { 
        chdir 't';
        @INC = '../lib';
    }   
}

exodist

package Test::SkipWithout;
use strict;
use warnings;

require Test::More;

sub import {
    my $class = shift;
    my ($module, $version) = @_;

exodist

:map <F9> :w<cr>:! PERL5LIB="" /usr/bin/prove -v -Ilib -I/home/cgranum/ndn/perl %<CR>
:imap <F9> <ESC>:w<cr>:! PERL5LIB="" /usr/bin/prove -v -Ilib -I/home/cgranum/ndn/perl %<CR>

:map <F10> :w<cr>:! PERL5LIB="" /opt/plack/perl/bin/prove -v -Ilib -I/home/cgranum/ndn/perl %<CR>
:imap <F10> <ESC>:w<cr>:! PERL5LIB="" /opt/plack/perl/bin/prove -v -Ilib -I/home/cgranum/ndn/perl %<CR>

function! RunFennecLine()
    let cur_line = line(".")
    exe "!FENNEC_TEST='" . cur_line . "' prove -v -Ilib -I. -I/home/cgranum/ndn/perl %"
endfunction