mirror of
https://anongit.gentoo.org/git/repo/gentoo.git
synced 2025-06-07 13:44:38 +02:00
aaa3d3281f
revert commit ebe886820c
updated ebuild to EAPI 4 -> 8 & metadata.xml
Bug: https://bugs.gentoo.org/724210
Signed-off-by: Z. Liu <zhixu.liu@gmail.com>
Closes: https://github.com/gentoo/gentoo/pull/39693
Signed-off-by: Sam James <sam@gentoo.org>
26 lines
777 B
Diff
26 lines
777 B
Diff
--- a/passook
|
|
+++ b/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);
|