1 files changed, 2 insertions, 0 deletions
diff --git a/doop.c b/doop.c
index 3f8bd10a94..0be09acfc9 100644
--- a/doop.c
+++ b/doop.c
@@ -257,6 +257,7 @@ I32
 do_chomp(sv)
 register SV *sv;
 {
+    dTHR;
     register I32 count;
     STRLEN len;
     char *s;
@@ -334,6 +335,7 @@ SV *sv;
 SV *left;
 SV *right;
 {
+    dTHR;	/* just for taint */
 #ifdef LIBERAL
     register long *dl;
     register long *ll;