1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
From 03df0cdd7228a412d2adfe9ee9c746b3ec69dd6b Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Sun, 11 Jun 2017 10:31:03 +1200
Subject: [PATCH] Fix for 5.26 removal of '.' in @INC
Previous scripts assumed CWD was in @INC and that "PARI::822" was in
wherever CWD was.
This fixes both of those, and the latter, because its not obvious
from the build system where one should assume CWD to be.
Instead, the absolute path of the directory of these scripts is
inserted into @INC
---
src/desc/doc_make | 4 ++++
src/desc/gen_proto | 4 ++++
src/desc/merge_822 | 4 ++++
3 files changed, 12 insertions(+)
diff --git a/src/desc/doc_make b/src/desc/doc_make
index 02dc90d..55296ed 100755
--- a/src/desc/doc_make
+++ b/src/desc/doc_make
@@ -1,4 +1,8 @@
#!/usr/bin/perl
+use File::Spec;
+use File::Basename qw( dirname );
+use lib dirname(File::Spec->rel2abs(__FILE__));
+
use PARI::822;
PARI::822::read(\%funcs, "pari.desc");
diff --git a/src/desc/gen_proto b/src/desc/gen_proto
index 38c2daf..ffb4276 100755
--- a/src/desc/gen_proto
+++ b/src/desc/gen_proto
@@ -1,4 +1,8 @@
#!/usr/bin/perl -w
+use File::Spec;
+use File::Basename qw( dirname );
+use lib dirname(File::Spec->rel2abs(__FILE__));
+
use PARI::822;
$class=$ARGV[0];
diff --git a/src/desc/merge_822 b/src/desc/merge_822
index 4c9217b..32b3cc9 100755
--- a/src/desc/merge_822
+++ b/src/desc/merge_822
@@ -1,4 +1,8 @@
#!/usr/bin/perl -w
+use File::Spec;
+use File::Basename qw( dirname );
+use lib dirname(File::Spec->rel2abs(__FILE__));
+
use PARI::822;
open(IN, $ARGV[0]) || die "cannot find $ARGV[0]";
--
2.13.1
|
GitWeb
