# HG changeset patch
# User HackBot
# Date 1462782746 0
# Node ID ea34842a51f6a5f02ca2447e4496f425435a8877
# Parent  291728b85ecdac807009eaa046a2e075bff3433d
<b_jonas> `` echo $\'#!/bin/sh\\nexec perl -e\\\'\'\'open$I,"<","share/mtg/allsets.txt"or die$!;$/=""; @c=grep{/(?:$ARGV[0])/}<$I>; print $c[rand($c)];\'\\\'\' "$1"\' > bin/random-card && chmod -v a+x bin/random-card

diff -r 291728b85ecd -r ea34842a51f6 bin/random-card
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/random-card	Mon May 09 08:32:26 2016 +0000
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec perl -e'open$I,"<","share/mtg/allsets.txt"or die$!;$/=""; @c=grep{/(?:$ARGV[0])/}<$I>; print $c[rand($c)];' "$1"