Chad Granum exodist
exodist
/ gist:5655101
Created
May 27, 2013 03:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ gist:8870805
Last active
August 29, 2015 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| my $foo = "hello\n"; | |
| $a = undef; | |
| $b = undef; | |
| EVIL: | |
| $foo = $a if $a; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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` |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package Test::Calculate; | |
| use strict; | |
| use warnings; | |
| use Data::Dumper; | |
| use base 'Exporter'; | |
| use Carp qw/croak/; | |
| our @EXPORT = ('CALCULATE'); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| { | |
| package Foo; | |
| sub finish { | |
| $_[0] = undef; | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| sub use_fork { | |
| require Storable; | |
| my ($r, $w); | |
| pipe($r, $w) || confess "Could not open pipe! $!"; | |
| $_[0]->[_USE_FORK] ||= [$r, $w]; | |
| return 1; | |
| } |
exodist
/ gist:8d530dd8b8b0ff74a789
Created
September 24, 2014 15:38
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| BEGIN { | |
| if( $ENV{PERL_CORE} ) { | |
| chdir 't'; | |
| @INC = '../lib'; | |
| } | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package Test::SkipWithout; | |
| use strict; | |
| use warnings; | |
| require Test::More; | |
| sub import { | |
| my $class = shift; | |
| my ($module, $version) = @_; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| :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 |