Fix for a segfault, from Marc Lehmann.

p4raw-id: //depot/perl@9962
Perl · May 2, 2001 · bf8afc6 · bf8afc6
1 parent b159ebd
commit bf8afc6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
@@ -3678,7 +3678,7 @@ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
 	    char *buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
 	    if (buf) {
 		ST(0) = sv_2mortal(newSVpv(buf, 0));
-		free(buf);
+		Safefree(buf);
 	    }
 	}
 

diff --git a/ext/Time/Piece/Piece.xs b/ext/Time/Piece/Piece.xs
@@ -30,6 +30,6 @@ __strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -
 	    char *buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
 	    if (buf) {
 		ST(0) = sv_2mortal(newSVpv(buf, 0));
-		free(buf);
+		Safefree(buf);
 	    }
 	}