From: Steve Hay <SteveHay@planit.com>
Date: Thu, 23 Jun 2005 10:21:53 +0000 (+0000)
Subject: Oops! Change 24946 wasn't quite right
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d08fa7601ff56603f730a23e4363d5e951ce06c2;p=p5sagit%2Fp5-mst-13.2.git

Oops! Change 24946 wasn't quite right

p4raw-id: //depot/perl@24950
---

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