From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 1 Aug 2007 12:35:11 +0000 (+0000)
Subject: Missing a couple of aTHX_'s in #31670.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dffb32cfd5805d7e577558679d1ec1691e82e697;p=p5sagit%2Fp5-mst-13.2.git

Missing a couple of aTHX_'s in #31670.

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

diff --git a/vms/vms.c b/vms/vms.c
index 27a5531..c8e0536 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1924,7 +1924,7 @@ Perl_do_rmdir(pTHX_ const char *name)
 	PerlMem_free(dirfile);
 	return -1;
     }
-    if (flex_lstat(dirfile, &st) || !S_ISDIR(st.st_mode)) {
+    if (Perl_flex_lstat(aTHX_ dirfile, &st) || !S_ISDIR(st.st_mode)) {
 	errno = ENOTDIR;
 	retval = -1;
     }
@@ -1959,7 +1959,7 @@ Perl_kill_file(pTHX_ const char *name)
     * This needs special handling to work with the ACL hacks.
      */
    if (flex_stat(name, &st) && S_ISDIR(st.st_mode)) {
-	rmsts = Perl_do_rmdir(name);
+	rmsts = Perl_do_rmdir(aTHX_ name);
 	return rmsts;
     }