remove deprecated PL_timesbuf

Saves memory in interp struct.

diff --git a/embedvar.h b/embedvar.h
index c6213c0..5b05ed4 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -322,7 +322,6 @@
 #define PL_tainted             (vTHX->Itainted)
 #define PL_tainting            (vTHX->Itainting)
 #define PL_threadhook          (vTHX->Ithreadhook)
-#define PL_timesbuf            (vTHX->Itimesbuf)
 #define PL_tmps_floor          (vTHX->Itmps_floor)
 #define PL_tmps_ix             (vTHX->Itmps_ix)
 #define PL_tmps_max            (vTHX->Itmps_max)

diff --git a/intrpvar.h b/intrpvar.h
index 090bc58..400b4b7 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -190,11 +190,6 @@ PERLVAR(I, statcache,      Stat_t)         /* _ */
 PERLVAR(I, statgv,     GV *)
 PERLVARI(I, statname,  SV *,   NULL)
 
-#ifdef HAS_TIMES
-/* Will be removed soon after v5.21.0. See RT #121351 */
-PERLVAR(I, timesbuf,   struct tms)
-#endif
-
 /*
 =for apidoc mn|SV*|PL_rs
 

diff --git a/makedef.pl b/makedef.pl
index 05252cf..90c9368 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -212,7 +212,6 @@ if ($ARGS{PLATFORM} ne 'os2') {
                                PL_generation
                                PL_lastgotoprobe
                                PL_modcount
-                               PL_timesbuf
                                main
                                 );
        }

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index f02d559..8aa2456 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -338,13 +338,14 @@ XXX Changes which affect the interface available to C<XS> code go here.  Other
 significant internal changes for future core maintainers should be noted as
 well.
 
-[ List each change as a =item entry ]
-
 =over 4
 
 =item *
 
-XXX
+The obscure C<PL_timesbuf> variable, effectively a vestige of Perl 1, has
+been removed. It was documented as deprecated in Perl 5.20, with a statement
+that it would be removed early in the 5.21.x series; that has now finally
+happened.  [perl #121351]
 
 =back
 

diff --git a/t/porting/globvar.t b/t/porting/globvar.t
index 6679c92..bc0203a 100644 (file)
--- a/t/porting/globvar.t
+++ b/t/porting/globvar.t
@@ -14,7 +14,7 @@ skip_all("Code to read symbols not ported to $^O")
 my %skip = map { ("PL_$_", 1) }
     qw(
          DBcv bitcount cshname force_link_funcs generation lastgotoprobe
-         mod_latin1_uc modcount no_symref_sv timesbuf uudmap
+         mod_latin1_uc modcount no_symref_sv uudmap
          watchaddr watchok warn_uninit_sv
      );