From dffb32cfd5805d7e577558679d1ec1691e82e697 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Wed, 1 Aug 2007 12:35:11 +0000 Subject: Missing a couple of aTHX_'s in #31670. p4raw-id: //depot/perl@31671 --- vms/vms.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'vms') diff --git a/vms/vms.c b/vms/vms.c index 27a55316c3..c8e0536e2c 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; } -- cgit v1.2.1