[win32] add Nick's dTHR fixes

p4raw-id: //depot/win32/perl@787

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index e30e874117..925743495a 100644
--- a/op.c
+++ b/op.c
@@ -87,6 +87,7 @@ assertref(OP *o)
     if (type != OP_AELEM && type != OP_HELEM) {
 	yyerror(form("Can't use subscript on %s", op_desc[type]));
 	if (type == OP_ENTERSUB || type == OP_RV2HV || type == OP_PADHV) {
+	    dTHR;
 	    SV *msg = sv_2mortal(
 			newSVpvf("(Did you mean $ or @ instead of %c?)\n",
 				 type == OP_ENTERSUB ? '&' : '%'));