From 03df0cdd7228a412d2adfe9ee9c746b3ec69dd6b Mon Sep 17 00:00:00 2001 From: Kent Fredric 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