Oops! Change 24946 wasn't quite right

p4raw-id: //depot/perl@24950

diff --git a/doio.c b/doio.c
index bcad18c..a2300fc 100644 (file)
--- 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--;