This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove deprecated PL_timesbuf
authorDaniel Dragan <bulk88@hotmail.com>
Tue, 11 Aug 2015 18:17:52 +0000 (14:17 -0400)
committerAaron Crane <arc@cpan.org>
Sun, 17 Jan 2016 15:24:36 +0000 (15:24 +0000)
Saves memory in interp struct.

embedvar.h
intrpvar.h
makedef.pl
pod/perldelta.pod
t/porting/globvar.t

index c6213c0..5b05ed4 100644 (file)
 #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)
index 090bc58..400b4b7 100644 (file)
@@ -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
 
index 05252cf..90c9368 100644 (file)
@@ -212,7 +212,6 @@ if ($ARGS{PLATFORM} ne 'os2') {
                                PL_generation
                                PL_lastgotoprobe
                                PL_modcount
-                               PL_timesbuf
                                main
                                 );
        }
index f02d559..8aa2456 100644 (file)
@@ -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
 
index 6679c92..bc0203a 100644 (file)
@@ -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
      );