Altreus

<StreamWriter(gpgi-output(gpg --status-fd=2 --passphrase-fd=0 --no-use-agent --enable-progress-filter --batch --verbose --with-colons --utft
<StreamWriter(gpgi-output(gpg --status-fd=2 --passphrase-fd=0 --no-use-agent --enable-progress-filter --batch --verbose --with-colons --utft
Traceback (most recent call last):
  File "/Mailpile/mailpile/crypto/gpgi.py", line 442, in writeout
    fd.write(line)
IOError: [Errno 32] Broken pipe
Traceback (most recent call last):
  File "/Mailpile/mailpile/crypto/gpgi.py", line 442, in writeout
    fd.write(line)
IOError: [Errno 32] Broken pipe

Altreus

#!/usr/bin/env perl

use strict;
use warnings;
use 5.014;

use Getopt::Long qw(:config gnu_getopt);
use App::Multigit qw(mg_each);
use Path::Class;
use Future;

Altreus

[alias]
	lg = log --graph --decorate --branches --oneline --remotes --tags --all
	st = status
	co = checkout
	ci = commit
	cdiff = diff --cached
	yoink = cherry-pick
[status]
	submodulesummary = true

Altreus

perl -Ilib -MTest::WWW::Mechanize::Roles -MTest::WWW::Mechanize::Roles::JSON -E'package J; use Moose; extends "Test::WWW::Mechanize::Roles"; with "Test::WWW::Mechanize::Roles::JSON"; package main; my $j = J->new; $j->json_ok'

Altreus

function sunzip() {
  unzip -l "$1" | \
  head -n -2 | \
  tail -n +4 | \
  perl -lnE'$dirs{((split " ")[3] =~ m!([^/]*)!)[0]}++ } { exit 1 if keys %dirs > 1'
  
  if [[ "$?" -eq "0" ]]; then
    unzip "$1"
  else
    EXDIR="${1/%.zip/}"

Altreus

#!/usr/bin/env perl

use strict;
use warnings;
use Text::Template 'fill_in_file';
use 5.010;

my $template = shift;
my @content = <>;
say fill_in_file($template, 

Altreus

// ==UserScript==
// @name         Ultimate Guitar cleanup
// @version      0.1
// @match        http://tabs.ultimate-guitar.com/*
// ==/UserScript==

(function() {
    var tab = document.getElementById('cont');
    var body = document.body;
    while (body.hasChildNodes()) {

Altreus

#!/usr/bin/env perl

use strict;
use warnings;
use 5.014;

my $letters = lc sort_letters(shift);

my $dict = shift // '/usr/share/dict/words';

Altreus

<script type="text/javascript">
  [% footer_js %]
  PF.Admin.M.activate();
  PF.Admin.M.init(cfg);
</script>

Altreus

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Capture::Tiny qw(capture_stdout);
use List::MoreUtils qw(uniq);

sub prereqs;
my %modules;