diff options
| -rw-r--r-- | dateibeziehungen.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 6c3958a..c1cf391 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -1077,8 +1077,9 @@ begin else begin assignFile(ausg,ausgabeDatei); rewrite(ausg); + writeln(ausg,'set -e'); for i:=0 to befehle.count-1 do - writeln(ausg,'('+befehle[i]+') || (read -p "Ein Fehler ist aufgetreten! ... "; exit 1)'); + writeln(ausg,'('+befehle[i]+') || (printf ''In\n"%s"\n'' "'+escape(befehle[i],'\"','"')+'"; read -p "ist ein Fehler aufgetreten! ... "; exit 1)'); closeFile(ausg); end; befehle.free; |