dateibeziehungen.pas: eher abbrechen bei Fehler, Fehler etwas genauer ausgeben

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;