From 4f2d7949f03e1c198bc888f2d05f421d35c57e21 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Mon, 9 Oct 2017 18:53:29 +0100 Subject: reinit the tree, so we can have metadata --- app-admin/passook/files/passook.patch | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 app-admin/passook/files/passook.patch (limited to 'app-admin/passook/files') diff --git a/app-admin/passook/files/passook.patch b/app-admin/passook/files/passook.patch new file mode 100644 index 000000000000..db14e6ec817c --- /dev/null +++ b/app-admin/passook/files/passook.patch @@ -0,0 +1,26 @@ +--- passook.orig ++++ passook +@@ -1,4 +1,4 @@ +-#!/usr/bin/perl ++#!@GENTOO_PORTAGE_EPREFIX@/usr/bin/perl + + srand; + $p = 3; #default pronouce level +@@ -38,7 +38,7 @@ + } + + sub fourletterword { +- my $grepstring = 'egrep "^....$" /usr/dict/words'; ++ my $grepstring = 'egrep "^....$" @GENTOO_PORTAGE_EPREFIX@/usr/share/dict/words'; + my @fourletters = split(/\n/,`$grepstring`); + my $word = $fourletters[rand(@fourletters)]; + $word = &tangle($word) if ($p<5); +@@ -46,7 +46,7 @@ + } + + sub threeletterword { +- my $grepstring = 'egrep "^...$" /usr/dict/words'; ++ my $grepstring = 'egrep "^...$" @GENTOO_PORTAGE_EPREFIX@/usr/share/dict/words'; + my @threeletters = split(/\n/,`$grepstring`); + my $word = $threeletters[rand(@threeletters)]; + $word = &tangle($word) if ($p<5); -- cgit v1.2.3