1 files changed, 43 insertions, 0 deletions
diff --git a/contrib/perl5/myconfig b/contrib/perl5/myconfig
new file mode 100755
index 0000000..c143aea
--- /dev/null
+++ b/contrib/perl5/myconfig
@@ -0,0 +1,43 @@
+#!/bin/sh
+
+# This script is designed to provide a handy summary of the configuration
+# information being used to build perl. This is especially useful if you
+# are requesting help from comp.lang.perl.misc on usenet or via mail.
+
+if test -f config.sh; then TOP=.;
+elif test -f ../config.sh; then TOP=..;
+elif test -f ../../config.sh; then TOP=../..;
+elif test -f ../../../config.sh; then TOP=../../..;
+elif test -f ../../../../config.sh; then TOP=../../../..;
+else
+	echo "Can't find the perl config.sh file produced by Configure"; exit 1
+fi
+. $TOP/config.sh
+
+# Note that the text lines /^Summary of/ .. /^\s*$/ are copied into Config.pm.
+
+$spitshell <<!GROK!THIS!
+Summary of my $package ($baserev patchlevel $PATCHLEVEL subversion $SUBVERSION) configuration:
+  Platform:
+    osname=$osname, osvers=$osvers, archname=$archname
+    uname='$myuname'
+    hint=$hint, useposix=$useposix, d_sigaction=$d_sigaction
+    usethreads=$usethreads useperlio=$useperlio d_sfio=$d_sfio
+  Compiler:
+    cc='$cc', optimize='$optimize', gccversion=$gccversion
+    cppflags='$cppflags'
+    ccflags ='$ccflags'
+    stdchar='$stdchar', d_stdstdio=$d_stdstdio, usevfork=$usevfork
+    intsize=$intsize, longsize=$longsize, ptrsize=$ptrsize, doublesize=$doublesize
+    d_longlong=$d_longlong, longlongsize=$longlongsize, d_longdbl=$d_longdbl, longdblsize=$longdblsize
+    alignbytes=$alignbytes, usemymalloc=$usemymalloc, prototype=$prototype
+  Linker and Libraries:
+    ld='$ld', ldflags ='$ldflags'
+    libpth=$libpth
+    libs=$libs
+    libc=$libc, so=$so, useshrplib=$useshrplib, libperl=$libperl
+  Dynamic Linking:
+    dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags'
+    cccdlflags='$cccdlflags', lddlflags='$lddlflags'
+
+!GROK!THIS!