From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 22 Jun 2001 20:22:58 +0000 (+0000)
Subject: Patcho fix.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a45baeabe2db1c5939737d9a253ed11845363b6;p=p5sagit%2Fp5-mst-13.2.git

Patcho fix.

p4raw-id: //depot/perlio@10833
---

diff --git a/util.c b/util.c
index aa8a84f..1cab029 100644
--- 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;
         }
     }