This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patcho fix.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 22 Jun 2001 20:22:58 +0000 (20:22 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Fri, 22 Jun 2001 20:22:58 +0000 (20:22 +0000)
p4raw-id: //depot/perlio@10833

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;
         }
     }