Fixed bug with failed @su/@sd passwords breaking @program

diff --git a/src/prog.c b/src/prog.c
index a7b443a7ade79a474cd492743f80ecf67cfeb72d..65811f6d4bf26af6065ef13fafeff4b3464beb3c 100644 (file)
--- a/src/prog.c
+++ b/src/prog.c
@@ -521,6 +521,8 @@ password_handler(DESC * d, char *input)
     queue_newwrite(d, (unsigned char *) "Invalid password.\r\n", 19);
     do_log(LT_WIZ, d->player, d->pinfo.object, "** @SU FAIL **");
     d->pinfo.object = NOTHING;
+    d->pinfo.function = NULL;
+    d->pinfo.lock = 0;
     return 1;
   }