From 4dcba7838f3fd83292ddf7d8be7a7a2e8a4f9854 Mon Sep 17 00:00:00 2001 From: Tim Bunce Date: Wed, 11 Jun 1997 12:00:00 +1200 Subject: sdbm can fail if a config.h exists in system directories --- ext/SDBM_File/sdbm/Makefile.PL | 1 + 1 file changed, 1 insertion(+) (limited to 'ext') diff --git a/ext/SDBM_File/sdbm/Makefile.PL b/ext/SDBM_File/sdbm/Makefile.PL index 21ad7576c3..50fd83eb25 100644 --- a/ext/SDBM_File/sdbm/Makefile.PL +++ b/ext/SDBM_File/sdbm/Makefile.PL @@ -7,6 +7,7 @@ WriteMakefile( NAME => 'sdbm', # (doesn't matter what the name is here) oh yes it does LINKTYPE => 'static', DEFINE => $define, + INC => '-I$(PERL_INC)', # force PERL_INC dir ahead of system -I's SKIP => [qw(dynamic dynamic_lib)], OBJECT => '$(O_FILES)', clean => {'FILES' => 'dbu libsdbm.a dbd dba dbe x-dbu *.dir *.pag'}, -- cgit v1.2.1 From 1553ab042847244da5856825de22281fd831878d Mon Sep 17 00:00:00 2001 From: Tim Bunce Date: Wed, 11 Jun 1997 12:00:00 +1200 Subject: perl5.004 on AIX: Patches (this is the same change as commit a9581ec21a2686ca09657757555fcd66435bb205, but as applied) --- ext/DynaLoader/dl_aix.xs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'ext') diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs index bdf33b2410..746666636a 100644 --- a/ext/DynaLoader/dl_aix.xs +++ b/ext/DynaLoader/dl_aix.xs @@ -29,6 +29,12 @@ #include #include +/* If using PerlIO, redefine these macros from */ +#ifdef USE_PERLIO +#define FSEEK(ldptr,o,p) PerlIO_seek(IOPTR(ldptr),(p==BEGINNING)?(OFFSET(ldptr)+o):o,p) +#define FREAD(p,s,n,ldptr) PerlIO_read(IOPTR(ldptr),p,s*n) +#endif + /* * We simulate dlopen() et al. through a call to load. Because AIX has * no call to find an exported symbol we read the loader section of the @@ -389,7 +395,13 @@ static int readExports(ModulePtr mp) ; return -1; } +/* This first case is a hack, since it assumes that the 3rd parameter to + FREAD is 1. See the redefinition of FREAD above to see how this works. */ +#ifdef USE_PERLIO + if (FREAD(ldbuf, sh.s_size, 1, ldp) != sh.s_size) { +#else if (FREAD(ldbuf, sh.s_size, 1, ldp) != 1) { +#endif errvalid++; strcpy(errbuf, "readExports: cannot read loader section"); safefree(ldbuf); -- cgit v1.2.1