The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
@echo off

set CONFIG=

set PATH_SEPARATOR=;

set PATH_EXPAND=y

sh -c 'if test $PATH_SEPARATOR = ";"; then exit 1; fi'

if ERRORLEVEL 1 goto path_sep_ok

echo Error:

echo Make sure the environment variable PATH_SEPARATOR=; while building perl!

echo Please check your DJGPP.ENV!

goto end



:path_sep_ok

sh -c 'if test $PATH_EXPAND = "Y" -o $PATH_EXPAND = "y"; then exit 1; fi'

if ERRORLEVEL 1 goto path_exp_ok

echo Error:

echo Make sure the environment variable PATH_EXPAND=Y while building perl!

echo Please check your DJGPP.ENV!

goto end



:path_exp_ok

sh -c '$SHELL -c "exit 128"'

if ERRORLEVEL 128 goto shell_ok



echo Error:

echo The SHELL environment variable must be set to the full path of your sh.exe!

goto end



:shell_ok

sh -c 'if test ! -d /tmp; then mkdir /tmp; fi'

cp djgpp.[hc] config.over ..

cd ..

echo Running sed...

sh djgpp/djgppsed.sh



echo Running Configure...

sh Configure %1 %2 %3 %4 %5 %6 %7 %8 %9

:end