Change 31671 by [EMAIL PROTECTED] on 2007/08/01 12:35:11
Missing a couple of aTHX_'s in #31670.
Affected files ...
... //depot/perl/vms/vms.c#205 edit
Differences ...
==== //depot/perl/vms/vms.c#205 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#204~31670~ 2007-07-31 20:24:03.000000000 -0700
+++ perl/vms/vms.c 2007-08-01 05:35:11.000000000 -0700
@@ -1924,7 +1924,7 @@
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 @@
* 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;
}
End of Patch.
