-case $CONFIGDOTSH in
+case $PERL_CONFIG_SH in
'')
if test -f config.sh; then TOP=.;
elif test -f ../config.sh; then TOP=..;
rm -f writemain
$spitshell >writemain <<!GROK!THIS!
$startsh
-src=$src
!GROK!THIS!
: In the following dollars and backticks do not need the extra backslash.
: Remove any .a suffixes and any leading path components
for file in $orig ; do
case "$file" in
- *.a) file=`echo $file | sed 's/\.a//g'`
- ;;
+ *.a) file=`echo $file | sed 's/\.a//g'`;;
+ *.o) file=`echo $file | sed 's/\.o//g'`;;
esac
case "$file" in
ext/*) file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'`
done
-sed '/Do not delete this line--writemain depends on it/q' $src/miniperlmain.c
+sed '/Do not delete this line--writemain depends on it/q' miniperlmain.c
if test X"$args" != "X" ; then
EOP
if test X"$args" != "X" ; then
- echo " char *file = __FILE__;"
+ echo " static const char file[] = __FILE__;"
echo " dXSUB_SYS;"
ai=''