perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 33 insertions, 0 deletions

diff --git a/perl_exp.SH b/perl_exp.SH
new file mode 100644
index 0000000000..f67b165821
--- /dev/null
+++ b/perl_exp.SH
@@ -0,0 +1,33 @@
+#!/bin/sh
+
+# Create the export list for perl.
+# Needed by AIX to do dynamic linking.
+
+# This simple program relys on 'global.sym' being up to date
+# with all of the global symbols that a dynamicly link library
+# might want to access.
+
+echo "Extracting perl.exp"
+
+echo "#!" > perl.exp
+
+sed -n "/^[A-Za-z]/ p" global.sym >> perl.exp
+
+cat <<END >> perl.exp
+perl_init_ext
+perl_alloc
+perl_construct
+perl_destruct
+perl_free
+perl_parse
+perl_run
+perl_get_sv
+perl_get_av
+perl_get_hv
+perl_get_cv
+perl_call_argv
+perl_call_pv
+perl_call_method
+perl_call_sv
+perl_requirepv
+END