diff -ubBr pari-2.3.4.orig/src/desc/gen_member pari-2.3.4/src/desc/gen_member
--- pari-2.3.4.orig/src/desc/gen_member	2008-01-17 00:55:50.000000000 +0900
+++ pari-2.3.4/src/desc/gen_member	2020-01-16 12:36:42.888060000 +0900
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+BEGIN { push @INC, "." if $INC[-1] ne "."; }
 use PARI::822;
 
 $class='member_functions';
diff -ubBr pari-2.3.4.orig/src/desc/gen_proto pari-2.3.4/src/desc/gen_proto
--- pari-2.3.4.orig/src/desc/gen_proto	2008-01-17 00:55:51.000000000 +0900
+++ pari-2.3.4/src/desc/gen_proto	2020-01-16 12:36:44.871411000 +0900
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+BEGIN { push @INC, "." if $INC[-1] ne "."; }
 use PARI::822;
 
 $class=$ARGV[0];
diff -ubBr pari-2.3.4.orig/src/desc/merge_822 pari-2.3.4/src/desc/merge_822
--- pari-2.3.4.orig/src/desc/merge_822	2008-01-17 00:55:50.000000000 +0900
+++ pari-2.3.4/src/desc/merge_822	2020-01-16 12:36:57.223570000 +0900
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+BEGIN { push @INC, "." if $INC[-1] ne "."; }
 use PARI::822;
 
 PARI::822::read(\%funcs,$_,1)