From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 18 Jul 2005 22:59:19 +0000 (-0500)
Subject: Final (hopefully) fix for fchdir
X-Git-Tag: accepted/trunk/20130322.191538~20083
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0f1f2428e1f9e9aa05108acb4c8ec2a0a83d728e;p=platform%2Fupstream%2Fperl.git

Final (hopefully) fix for fchdir
Message-ID: <20050719035919.GA32670@mccoy.peters.homeunix.org>

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

diff --git a/pp_sys.c b/pp_sys.c
index 545765c..0ce6f43 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3592,7 +3592,7 @@ PP(pp_chdir)
 #ifdef HAS_DIRFD
 		PUSHi(fchdir(dirfd(IoDIRP(io))) >= 0);
 #else
-		DIE(aTHX PL_no_func, "dirfd");
+		DIE(aTHX_ PL_no_func, "dirfd");
 #endif
 	    }
 	    else {