This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Partly revert 9c359e8280d731ca92428e10705200e1c7ebf844
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 21 Jan 2020 19:51:45 +0000 (20:51 +0100)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 21 Jan 2020 19:51:45 +0000 (20:51 +0100)
No here doc inside case

U/compline/Compile.U

index 05e4112..4d6442c 100644 (file)
@@ -48,10 +48,7 @@ compile='
 mc_file=$1;
 shift;
 case "$usedevel" in $define|true|[yY]*) if $test ! -f "${mc_file}.c"; then
 mc_file=$1;
 shift;
 case "$usedevel" in $define|true|[yY]*) if $test ! -f "${mc_file}.c"; then
-cat >&4 <<EOM
-Internal Configure script bug - compiler test file ${mc_file}.c is missing.
-Please report this to <$maintloc>
-EOM
+echo "Internal Configure script bug - compiler test file ${mc_file}.c is missing. Please report this to <$maintloc>" >&4;
 exit 1;
 fi;
 esac;
 exit 1;
 fi;
 esac;