diff --git a/build/build.tcl b/build/build.tcl index 3a6ab0c7..c2889354 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -30,6 +30,8 @@ proc pdset {} { respond "IT IS NOW" "Q" } "IT IS NOW" { type "Q" + } "ITS revived" { + type "Q" } expect ":KILL" } @@ -201,7 +203,7 @@ respond "DSKDMP" "m\033nsalv bin\r" expect "\n"; type "d\033nits\r" expect "\n"; type "nits\r" expect "\n"; type "\033g" -pdset +maybe_pdset respond "*" ":login db\r" sleep 1