From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sun, 27 Nov 2005 09:29:00 +0000 (+0000)
Subject: fix wrong pool error in cygwin build
X-Git-Tag: v5.10.0~5271
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/a236cecb4eb33c5fc33f13db720024e00b1bf519

fix wrong pool error in cygwin build
Message-ID: <20051127082918.GA2556@efn.org>

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

diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c
index 03f48dd..68a6fcd 100644
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -147,7 +147,7 @@ XS(Cygwin_cwd)
 	Perl_croak(aTHX_ "Usage: Cwd::cwd()");
     if((cwd = getcwd(NULL, -1))) {
 	ST(0) = sv_2mortal(newSVpv(cwd, 0));
-	safesysfree(cwd);
+	free(cwd);
 #ifndef INCOMPLETE_TAINTS
 	SvTAINTED_on(ST(0));
 #endif