This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix wrong pool error in cygwin build
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Sun, 27 Nov 2005 09:29:00 +0000 (09:29 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Nov 2005 21:43:17 +0000 (21:43 +0000)
Message-ID: <20051127082918.GA2556@efn.org>

p4raw-id: //depot/perl@26215

cygwin/cygwin.c

index 03f48dd..68a6fcd 100644 (file)
@@ -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));
        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
 #ifndef INCOMPLETE_TAINTS
        SvTAINTED_on(ST(0));
 #endif