diff options
| -rw-r--r-- | mg.c | 10 | ||||
| -rw-r--r-- | pod/perlvar.pod | 13 | ||||
| -rw-r--r-- | win32/win32.c | 6 | ||||
| -rw-r--r-- | win32/win32.h | 2 |
4 files changed, 2 insertions, 29 deletions
@@ -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) { diff --git a/pod/perlvar.pod b/pod/perlvar.pod index cfe9ff2f38..2c295ddbd2 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -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 diff --git a/win32/win32.c b/win32/win32.c index 8cbe4dad92..eb11e147d8 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -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 */ diff --git a/win32/win32.h b/win32/win32.h index 171cbfb8b8..40ab7e043a 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -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); |