Re: CvFILE corruption under ithreads

[perl5.git] / util.c

diff --git a/util.c b/util.c
index aa8a84f..1cab029 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3723,7 +3723,7 @@ Perl_sv_getcwd(pTHX_ register SV *sv)
         *SvEND(sv) = '\0';
         SvPOK_only(sv);
 
-     hreif (PerlDir_chdir(SvPVX(sv)) < 0) {
+       if (PerlDir_chdir(SvPVX(sv)) < 0) {
             SV_CWD_RETURN_UNDEF;
         }
     }