From c52cb8175c7c08890821789b4c7177b1e0e92558 Mon Sep 17 00:00:00 2001
From: Daniel Dragan <bulk88@hotmail.com>
Date: Tue, 11 Aug 2015 14:17:52 -0400
Subject: [PATCH] remove deprecated PL_timesbuf

Saves memory in interp struct.
---
 embedvar.h          | 1 -
 intrpvar.h          | 5 -----
 makedef.pl          | 1 -
 pod/perldelta.pod   | 7 ++++---
 t/porting/globvar.t | 2 +-
 5 files changed, 5 insertions(+), 11 deletions(-)

diff --git a/embedvar.h b/embedvar.h
index c6213c0..5b05ed4 100644
--- 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
--- 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
--- 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
--- 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
--- 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
      );
 
-- 
1.8.3.1