1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index bcad18ce2c..a2300fc189 100644
--- a/doio.c
+++ b/doio.c
@@ -1841,7 +1841,7 @@ nothing in the core.
 	    APPLY_TAINT_PROPER();
 	    tot = sp - mark;
 	    while (++mark <= sp) {
-		char *name = SvPV_nolen_const(*mark);
+		char *name = SvPV_nolen(*mark);
 		APPLY_TAINT_PROPER();
 		if (PerlLIO_utime(name, utbufp))
 		    tot--;