This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove ${^WIN32_SLOPPY_STAT}
authorTony Cook <tony@develop-help.com>
Thu, 15 Oct 2020 00:46:15 +0000 (11:46 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 1 Dec 2020 04:29:33 +0000 (15:29 +1100)
The new implementation, like the UCRT implementation, always
opens the specified file.

mg.c
pod/perlvar.pod
win32/win32.c
win32/win32.h

diff --git a/mg.c b/mg.c
index 8b90aa4..f302489 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1128,11 +1128,6 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
                          *PL_compiling.cop_warnings);
            }
        }
-#ifdef WIN32
-       else if (strEQ(remaining, "IN32_SLOPPY_STAT")) {
-           sv_setiv(sv, w32_sloppystat);
-       }
-#endif
        break;
     case '+':
        if (PL_curpm && (rx = PM_GETRE(PL_curpm))) {
@@ -3044,11 +3039,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                }
            }
        }
-#ifdef WIN32
-       else if (strEQ(mg->mg_ptr+1, "IN32_SLOPPY_STAT")) {
-           w32_sloppystat = SvTRUE(sv);
-       }
-#endif
        break;
     case '.':
        if (PL_localizing) {
index cfe9ff2..2c295dd 100644 (file)
@@ -750,18 +750,9 @@ Mnemonic: use ^V for a version object.
 =item ${^WIN32_SLOPPY_STAT}
 X<${^WIN32_SLOPPY_STAT}> X<sitecustomize> X<sitecustomize.pl>
 
-If this variable is set to a true value, then C<stat()> on Windows will
-not try to open the file.  This means that the link count cannot be
-determined and file attributes may be out of date if additional
-hardlinks to the file exist.  On the other hand, not opening the file
-is considerably faster, especially for files on network drives.
+This variable no longer has any function.
 
-This variable could be set in the F<sitecustomize.pl> file to
-configure the local Perl installation to use "sloppy" C<stat()> by
-default.  See the documentation for B<-f> in L<perlrun|perlrun/-f>
-for more information about site customization.
-
-This variable was added in Perl v5.10.0.
+This variable was added in Perl v5.10.0 and removed in Perl v5.34.0.
 
 =item $EXECUTABLE_NAME
 
index 8cbe4da..eb11e14 100644 (file)
@@ -5030,11 +5030,6 @@ Perl_sys_intern_init(pTHX)
     w32_timerid                 = 0;
     w32_message_hwnd            = CAST_HWND__(INVALID_HANDLE_VALUE);
     w32_poll_count              = 0;
-#ifdef PERL_IS_MINIPERL
-    w32_sloppystat              = TRUE;
-#else
-    w32_sloppystat              = FALSE;
-#endif
     for (i=0; i < SIG_SIZE; i++) {
        w32_sighandler[i] = SIG_DFL;
     }
@@ -5103,7 +5098,6 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst)
     dst->timerid                = 0;
     dst->message_hwnd          = CAST_HWND__(INVALID_HANDLE_VALUE);
     dst->poll_count             = 0;
-    dst->sloppystat             = src->sloppystat;
     Copy(src->sigtable,dst->sigtable,SIG_SIZE,Sighandler_t);
 }
 #  endif /* USE_ITHREADS */
index 171cbfb..40ab7e0 100644 (file)
@@ -563,7 +563,6 @@ struct interp_intern {
     UINT       timerid;
     unsigned   poll_count;
     Sighandler_t sigtable[SIG_SIZE];
-    bool sloppystat;
 };
 
 #define WIN32_POLL_INTERVAL 32768
@@ -597,7 +596,6 @@ struct interp_intern {
 #define w32_init_socktype      (PL_sys_intern.thr_intern.Winit_socktype)
 #define w32_use_showwindow     (PL_sys_intern.thr_intern.Wuse_showwindow)
 #define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
-#define w32_sloppystat (PL_sys_intern.sloppystat)
 
 #ifdef USE_ITHREADS
 void win32_wait_for_children(pTHX);