This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Hide the VMS error identifier SS$_NOPRIV, as customary.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 28 May 2014 13:24:14 +0000 (09:24 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 28 May 2014 13:25:09 +0000 (09:25 -0400)
doio.c

diff --git a/doio.c b/doio.c
index c868b29..0eec22c 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1907,7 +1907,7 @@ nothing in the core.
                    tot--;
                else if (S_ISDIR(PL_statbuf.st_mode)) {
                    tot--;
                    tot--;
                else if (S_ISDIR(PL_statbuf.st_mode)) {
                    tot--;
-                   SETERRNO(EISDIR, SS$_NOPRIV);
+                   SETERRNO(EISDIR, SS_NOPRIV);
                }
                else {
                    if (UNLINK(s))
                }
                else {
                    if (UNLINK(s))