From 8790f825d5f6ff0beed9873a34e145cf35e3ce5c Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 30 Apr 2011 21:49:03 +0100 Subject: [PATCH] Eliminate PL_patleave, unused since perl 5.0 alpha 2. patleave was added in perl 3.0 patch #35 patch #29 -- 395c379347344a50, used in scanpat(). scanpat() was refactored and renamed to scan_pat() in 5.0 alpha 2, "commented" out with the C pre-processor in 5.000, and removed in 5.001. --- embedvar.h | 3 --- perlapi.h | 2 -- perlvars.h | 1 - 3 files changed, 6 deletions(-) diff --git a/embedvar.h b/embedvar.h index 85d7af5..13d2e56 100644 --- a/embedvar.h +++ b/embedvar.h @@ -753,8 +753,6 @@ #define PL_Gop_seq (my_vars->Gop_seq) #define PL_op_sequence (my_vars->Gop_sequence) #define PL_Gop_sequence (my_vars->Gop_sequence) -#define PL_patleave (my_vars->Gpatleave) -#define PL_Gpatleave (my_vars->Gpatleave) #define PL_perlio_debug_fd (my_vars->Gperlio_debug_fd) #define PL_Gperlio_debug_fd (my_vars->Gperlio_debug_fd) #define PL_perlio_fd_refcnt (my_vars->Gperlio_fd_refcnt) @@ -824,7 +822,6 @@ #define PL_Gop_mutex PL_op_mutex #define PL_Gop_seq PL_op_seq #define PL_Gop_sequence PL_op_sequence -#define PL_Gpatleave PL_patleave #define PL_Gperlio_debug_fd PL_perlio_debug_fd #define PL_Gperlio_fd_refcnt PL_perlio_fd_refcnt #define PL_Gperlio_fd_refcnt_size PL_perlio_fd_refcnt_size diff --git a/perlapi.h b/perlapi.h index ddbb120..2842fc6 100644 --- a/perlapi.h +++ b/perlapi.h @@ -149,8 +149,6 @@ END_EXTERN_C #define PL_op_seq (*Perl_Gop_seq_ptr(NULL)) #undef PL_op_sequence #define PL_op_sequence (*Perl_Gop_sequence_ptr(NULL)) -#undef PL_patleave -#define PL_patleave (*Perl_Gpatleave_ptr(NULL)) #undef PL_perlio_debug_fd #define PL_perlio_debug_fd (*Perl_Gperlio_debug_fd_ptr(NULL)) #undef PL_perlio_fd_refcnt diff --git a/perlvars.h b/perlvars.h index 87a0d8b..cd88851 100644 --- a/perlvars.h +++ b/perlvars.h @@ -37,7 +37,6 @@ PERLVAR(Gthr_key, perl_key) /* key to retrieve per-thread struct */ PERLVARISC(GYes, "1") PERLVARISC(GNo, "") PERLVARISC(Ghexdigit, "0123456789abcdef0123456789ABCDEF") -PERLVARISC(Gpatleave, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}") /* XXX does anyone even use this? */ PERLVARI(Gdo_undump, bool, FALSE) /* -u or dump seen? */ -- 2.7.4