Skip to content

Instantly share code, notes, and snippets.

View autarch's full-sized avatar

Dave Rolsky autarch

View GitHub Profile
IPC Mismatch! at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/IPC.pm line 63.
Test2::IPC::apply_ipc(Test2::API::Stack=ARRAY(0x219a318)) called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/IPC.pm line 32
Test2::IPC::import("Test2::IPC") called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/Tools/AsyncSubtest.pm line 7
Test2::Tools::AsyncSubtest::BEGIN() called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/Tools/AsyncSubtest.pm line 7
eval {...} called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/Tools/AsyncSubtest.pm line 7
require Test2/Tools/AsyncSubtest.pm called at /home/autarch/projects/test-class-moose/lib/Test/Class/Moose/Role/Executor.pm line 16
Test::Class::Moose::Role::Executor::BEGIN() called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/Tools/AsyncSubtest.pm line 7
eval {...} called at /home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5/Test2/Tools/AsyncSubtest.pm line 7
require Tes
#!/bin/bash
current_branch=$(git branch --no-color 2> /dev/null | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/')
if [ "$current_branch" != "master" ]; then
echo "WARNING: You are on branch $current_branch, NOT master."
fi
echo -e "Fetching merged branches...\n"
git remote update --prune
local_branches=$(git branch --merged | grep -v 'master$' | grep -v "$current_branch$")
#!/home/autarch/perl5/perlbrew/perls/perl-5.24.1/bin/perl
use strict;
use warnings;
use lib '/home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5';
use Getopt::Long qw( :config pass_through );
use Perl::Tidy 20160302;
use Path::Class qw( file );
#!/bin/sh
set -e
set -x
BORG_REPO="/home/autarch/backup/houseabsolute.urth.org.borg"
export BORG_KEYS_DIR=/home/autarch/.config/borg/keys
DATE=$(date '+%Y-%m-%d')
borg create $BORG_REPO::$DATE -C lzma,9 /home/autarch/mnt/backup /home/autarch/mnt/music $@
#!/home/autarch/perl5/perlbrew/perls/perl-5.24.1/bin/perl
use strict;
use warnings;
use autodie;
use lib '/home/autarch/.perlbrew/libs/perl-5.24.1@system/lib/perl5';
use File::Find::Rule;
use Getopt::Long;
[D-BUS Service]
Name=org.freedesktop.secrets
Exec=/usr/bin/gnome-keyring-daemon --start --foreground --components=secrets
https://rjbs.manxome.org/rubric
http://www.perl.com/pub/
http://jjnapiorkowski.vox.com/
https://6guts.wordpress.com
https://www.joelonsoftware.com
https://p6weekly.wordpress.com
http://blog.plover.com
http://www.perl.com/pub/
https://martinfowler.com
https://culturedperl.com/feed
use v5.24;
{
package Mox;
use Moxie;
extends 'Moxie::Object';
has x => sub {0};
$ git clone git://perl5.git.perl.org/perl.git
Cloning into 'perl'...
remote: Counting objects: 488540, done.
remote: Compressing objects: 100% (107150/107150), done.
error: object 13b79730adea97e660de84bbe67f9d7cbe344302: missingSpaceBeforeDate: invalid author/committer line - missing space before date
fatal: Error in object
fatal: index-pack failed
use strict;
use warnings;
{
package Foo;
use Moose;
has foo => (
is => 'ro',