Browse Source
perl: update to 5.28
Refresh patches 900 and 910. Add fix (920) for improperly gated variable. Add workaround (020) for Storable's run-time check for stacksize. Signed-off-by: Philip Prindeville <philipp@redfish-solutions.com>lilik-openwrt-22.03
Philip Prindeville
7 years ago
8 changed files with 520 additions and 68 deletions
Unified View
Diff Options
-
+2 -2lang/perl/Makefile
-
+21 -0lang/perl/files/base.config
-
+3 -3lang/perl/files/version.config
-
+73 -0lang/perl/patches/020-storables-stacksize.patch
-
+21 -21lang/perl/patches/900-use-rm-force.patch
-
+0 -41lang/perl/patches/910-miniperl-needs-inc-dot.patch
-
+399 -0lang/perl/patches/920-fix-no-locale.patch
-
+1 -1lang/perl/perlmod.mk
+ 2
- 2
lang/perl/Makefile
View File
+ 21
- 0
lang/perl/files/base.config
View File
+ 3
- 3
lang/perl/files/version.config
View File
+ 73
- 0
lang/perl/patches/020-storables-stacksize.patch
View File
| @ -0,0 +1,73 @@ | |||||
| From 682a4acb98783a7f9b5c286b308f12863599fec3 Mon Sep 17 00:00:00 2001 | |||||
| From: Tony Cook <tony@develop-help.com> | |||||
| Date: Mon, 30 Jul 2018 21:00:52 +1000 | |||||
| Subject: (perl #133411) don't try to load Storable with -Dusecrosscompile | |||||
| --- | |||||
| dist/Storable/Makefile.PL | 9 ++++++++- | |||||
| dist/Storable/stacksize | 10 +++++++--- | |||||
| 2 files changed, 15 insertions(+), 4 deletions(-) | |||||
| diff --git a/dist/Storable/Makefile.PL b/dist/Storable/Makefile.PL | |||||
| index a5d9e66891..db420ab30b 100644 | |||||
| --- a/dist/Storable/Makefile.PL | |||||
| +++ b/dist/Storable/Makefile.PL | |||||
| @@ -90,12 +90,19 @@ sub depend { | |||||
| # blib.pm needs arch/lib | |||||
| $extra_deps = ' Storable.pm'; | |||||
| } | |||||
| + my $whichperl; | |||||
| + if ($Config::Config{usecrosscompile}) { | |||||
| + $whichperl = '$(PERLRUN)'; | |||||
| + } | |||||
| + else { | |||||
| + $whichperl = '$(FULLPERLRUNINST)'; | |||||
| + } | |||||
| my $linktype = uc($_[0]->{LINKTYPE}); | |||||
| my $limit_pm = File::Spec->catfile('lib', 'Storable', 'Limit.pm'); | |||||
| " | |||||
| $limit_pm : stacksize \$(INST_$linktype)$extra_deps | |||||
| \$(MKPATH) \$(INST_LIB) | |||||
| - \$(FULLPERLRUNINST) stacksize $options | |||||
| + $whichperl stacksize $options | |||||
| release : dist | |||||
| git tag \$(VERSION) | |||||
| diff --git a/dist/Storable/stacksize b/dist/Storable/stacksize | |||||
| index 7abd3a84cc..14e0739734 100644 | |||||
| --- a/dist/Storable/stacksize | |||||
| +++ b/dist/Storable/stacksize | |||||
| @@ -7,6 +7,9 @@ use Cwd; | |||||
| use File::Spec; | |||||
| use strict; | |||||
| +-d "lib" or mkdir "lib"; | |||||
| +-d "lib/Storable" or mkdir "lib/Storable"; | |||||
| + | |||||
| my $fn = "lib/Storable/Limit.pm"; | |||||
| my $ptrsize = $Config{ptrsize}; | |||||
| my ($bad1, $bad2) = (65001, 25000); | |||||
| @@ -29,6 +32,10 @@ sub is_miniperl { | |||||
| } | |||||
| if (is_miniperl()) { | |||||
| + if ($Config{usecrosscompile}) { | |||||
| + write_limits(500, 265); | |||||
| + exit; | |||||
| + } | |||||
| die "Should not run during miniperl\n"; | |||||
| } | |||||
| my $prefix = ""; | |||||
| @@ -68,9 +75,6 @@ if ($ENV{PERL_CORE}) { | |||||
| } | |||||
| } | |||||
| --d "lib" or mkdir "lib"; | |||||
| --d "lib/Storable" or mkdir "lib/Storable"; | |||||
| - | |||||
| if ($^O eq "MSWin32") { | |||||
| require Win32; | |||||
| my ($str, $major, $minor) = Win32::GetOSVersion(); | |||||
| -- | |||||
| 2.11.0 | |||||
+ 21
- 21
lang/perl/patches/900-use-rm-force.patch
View File
+ 0
- 41
lang/perl/patches/910-miniperl-needs-inc-dot.patch
View File
+ 399
- 0
lang/perl/patches/920-fix-no-locale.patch
View File
| @ -0,0 +1,399 @@ | |||||
| commit d36adde059ed1c4f7af210b4f9fc3a7bd2d7d343 | |||||
| Author: Karl Williamson <khw@cpan.org> | |||||
| Date: Wed May 23 15:32:47 2018 -0600 | |||||
| Fix to compile under -DNO_LOCALE | |||||
| Several problems with this compile option were not caught before 5.28 | |||||
| was frozen. | |||||
| diff --git a/embed.fnc b/embed.fnc | |||||
| index 0f06e38..36f9f97 100644 | |||||
| --- a/embed.fnc | |||||
| +++ b/embed.fnc | |||||
| @@ -2765,9 +2765,11 @@ s |bool |isa_lookup |NN HV *stash|NN const char * const name \ | |||||
| #endif | |||||
| #if defined(PERL_IN_LOCALE_C) | |||||
| +# ifdef USE_LOCALE | |||||
| sn |const char*|category_name |const int category | |||||
| s |const char*|switch_category_locale_to_template|const int switch_category|const int template_category|NULLOK const char * template_locale | |||||
| s |void |restore_switched_locale|const int category|NULLOK const char * const original_locale | |||||
| +# endif | |||||
| # ifdef HAS_NL_LANGINFO | |||||
| sn |const char*|my_nl_langinfo|const nl_item item|bool toggle | |||||
| # else | |||||
| diff --git a/embed.h b/embed.h | |||||
| index cf3ad9e..fb66c26 100644 | |||||
| --- a/embed.h | |||||
| +++ b/embed.h | |||||
| @@ -1724,16 +1724,16 @@ | |||||
| #define unshare_hek_or_pvn(a,b,c,d) S_unshare_hek_or_pvn(aTHX_ a,b,c,d) | |||||
| # endif | |||||
| # if defined(PERL_IN_LOCALE_C) | |||||
| -#define category_name S_category_name | |||||
| -#define restore_switched_locale(a,b) S_restore_switched_locale(aTHX_ a,b) | |||||
| #define save_to_buffer S_save_to_buffer | |||||
| -#define switch_category_locale_to_template(a,b,c) S_switch_category_locale_to_template(aTHX_ a,b,c) | |||||
| # if defined(USE_LOCALE) | |||||
| +#define category_name S_category_name | |||||
| #define new_collate(a) S_new_collate(aTHX_ a) | |||||
| #define new_ctype(a) S_new_ctype(aTHX_ a) | |||||
| #define new_numeric(a) S_new_numeric(aTHX_ a) | |||||
| +#define restore_switched_locale(a,b) S_restore_switched_locale(aTHX_ a,b) | |||||
| #define set_numeric_radix(a) S_set_numeric_radix(aTHX_ a) | |||||
| #define stdize_locale(a) S_stdize_locale(aTHX_ a) | |||||
| +#define switch_category_locale_to_template(a,b,c) S_switch_category_locale_to_template(aTHX_ a,b,c) | |||||
| # if defined(USE_POSIX_2008_LOCALE) | |||||
| #define emulate_setlocale S_emulate_setlocale | |||||
| # endif | |||||
| diff --git a/locale.c b/locale.c | |||||
| index 7653340..f8f77fb 100644 | |||||
| --- a/locale.c | |||||
| +++ b/locale.c | |||||
| @@ -1264,6 +1264,7 @@ S_locking_setlocale(pTHX_ | |||||
| } | |||||
| #endif | |||||
| +#ifdef USE_LOCALE | |||||
| STATIC void | |||||
| S_set_numeric_radix(pTHX_ const bool use_locale) | |||||
| @@ -1299,6 +1300,10 @@ S_set_numeric_radix(pTHX_ const bool use_locale) | |||||
| } | |||||
| # endif | |||||
| +#else | |||||
| + | |||||
| + PERL_UNUSED_ARG(use_locale); | |||||
| + | |||||
| #endif /* USE_LOCALE_NUMERIC and can find the radix char */ | |||||
| } | |||||
| @@ -1481,7 +1486,6 @@ S_new_ctype(pTHX_ const char *newctype) | |||||
| #ifndef USE_LOCALE_CTYPE | |||||
| - PERL_ARGS_ASSERT_NEW_CTYPE; | |||||
| PERL_UNUSED_ARG(newctype); | |||||
| PERL_UNUSED_CONTEXT; | |||||
| @@ -1994,6 +1998,8 @@ S_new_collate(pTHX_ const char *newcoll) | |||||
| } | |||||
| +#endif | |||||
| + | |||||
| #ifdef WIN32 | |||||
| STATIC char * | |||||
| @@ -2139,11 +2145,20 @@ Perl_setlocale(const int category, const char * locale) | |||||
| { | |||||
| /* This wraps POSIX::setlocale() */ | |||||
| +#ifdef NO_LOCALE | |||||
| + | |||||
| + PERL_UNUSED_ARG(category); | |||||
| + PERL_UNUSED_ARG(locale); | |||||
| + | |||||
| + return "C"; | |||||
| + | |||||
| +#else | |||||
| + | |||||
| const char * retval; | |||||
| const char * newlocale; | |||||
| dSAVEDERRNO; | |||||
| - DECLARATION_FOR_LC_NUMERIC_MANIPULATION; | |||||
| dTHX; | |||||
| + DECLARATION_FOR_LC_NUMERIC_MANIPULATION; | |||||
| #ifdef USE_LOCALE_NUMERIC | |||||
| @@ -2262,6 +2277,8 @@ Perl_setlocale(const int category, const char * locale) | |||||
| return retval; | |||||
| +#endif | |||||
| + | |||||
| } | |||||
| PERL_STATIC_INLINE const char * | |||||
| @@ -2414,13 +2431,16 @@ S_my_nl_langinfo(const int item, bool toggle) | |||||
| dTHX; | |||||
| const char * retval; | |||||
| +#ifdef USE_LOCALE_NUMERIC | |||||
| + | |||||
| /* We only need to toggle into the underlying LC_NUMERIC locale for these | |||||
| * two items, and only if not already there */ | |||||
| if (toggle && (( item != RADIXCHAR && item != THOUSEP) | |||||
| || PL_numeric_underlying)) | |||||
| - { | |||||
| + | |||||
| +#endif /* No toggling needed if not using LC_NUMERIC */ | |||||
| + | |||||
| toggle = FALSE; | |||||
| - } | |||||
| #if defined(HAS_NL_LANGINFO) /* nl_langinfo() is available. */ | |||||
| # if ! defined(HAS_THREAD_SAFE_NL_LANGINFO_L) \ | |||||
| @@ -2468,6 +2488,8 @@ S_my_nl_langinfo(const int item, bool toggle) | |||||
| do_free = TRUE; | |||||
| } | |||||
| +# ifdef USE_LOCALE_NUMERIC | |||||
| + | |||||
| if (toggle) { | |||||
| if (PL_underlying_numeric_obj) { | |||||
| cur = PL_underlying_numeric_obj; | |||||
| @@ -2478,6 +2500,8 @@ S_my_nl_langinfo(const int item, bool toggle) | |||||
| } | |||||
| } | |||||
| +# endif | |||||
| + | |||||
| /* We have to save it to a buffer, because the freelocale() just below | |||||
| * can invalidate the internal one */ | |||||
| retval = save_to_buffer(nl_langinfo_l(item, cur), | |||||
| @@ -5169,9 +5193,7 @@ Perl_my_strerror(pTHX_ const int errnum) | |||||
| LOCALE_UNLOCK; | |||||
| # endif /* End of doesn't have strerror_l */ | |||||
| -#endif /* End of does have locale messages */ | |||||
| - | |||||
| -#ifdef DEBUGGING | |||||
| +# ifdef DEBUGGING | |||||
| if (DEBUG_Lv_TEST) { | |||||
| PerlIO_printf(Perl_debug_log, "Strerror returned; saving a copy: '"); | |||||
| @@ -5179,7 +5201,8 @@ Perl_my_strerror(pTHX_ const int errnum) | |||||
| PerlIO_printf(Perl_debug_log, "'\n"); | |||||
| } | |||||
| -#endif | |||||
| +# endif | |||||
| +#endif /* End of does have locale messages */ | |||||
| SAVEFREEPV(errstr); | |||||
| return errstr; | |||||
| @@ -5301,10 +5324,17 @@ L<C<Perl_switch_to_global_locale>|perlapi/switch_to_global_locale>. | |||||
| bool | |||||
| Perl_sync_locale() | |||||
| { | |||||
| + | |||||
| +#ifndef USE_LOCALE | |||||
| + | |||||
| + return TRUE; | |||||
| + | |||||
| +#else | |||||
| + | |||||
| const char * newlocale; | |||||
| dTHX; | |||||
| -#ifdef USE_POSIX_2008_LOCALE | |||||
| +# ifdef USE_POSIX_2008_LOCALE | |||||
| bool was_in_global_locale = FALSE; | |||||
| locale_t cur_obj = uselocale((locale_t) 0); | |||||
| @@ -5316,11 +5346,11 @@ Perl_sync_locale() | |||||
| * will affect the */ | |||||
| if (cur_obj == LC_GLOBAL_LOCALE) { | |||||
| -# ifdef HAS_QUERY_LOCALE | |||||
| +# ifdef HAS_QUERY_LOCALE | |||||
| do_setlocale_c(LC_ALL, setlocale(LC_ALL, NULL)); | |||||
| -# else | |||||
| +# else | |||||
| unsigned int i; | |||||
| @@ -5330,17 +5360,17 @@ Perl_sync_locale() | |||||
| do_setlocale_r(categories[i], setlocale(categories[i], NULL)); | |||||
| } | |||||
| -# endif | |||||
| +# endif | |||||
| was_in_global_locale = TRUE; | |||||
| } | |||||
| -#else | |||||
| +# else | |||||
| bool was_in_global_locale = TRUE; | |||||
| -#endif | |||||
| -#ifdef USE_LOCALE_CTYPE | |||||
| +# endif | |||||
| +# ifdef USE_LOCALE_CTYPE | |||||
| newlocale = savepv(do_setlocale_c(LC_CTYPE, NULL)); | |||||
| DEBUG_Lv(PerlIO_printf(Perl_debug_log, | |||||
| @@ -5349,8 +5379,8 @@ Perl_sync_locale() | |||||
| new_ctype(newlocale); | |||||
| Safefree(newlocale); | |||||
| -#endif /* USE_LOCALE_CTYPE */ | |||||
| -#ifdef USE_LOCALE_COLLATE | |||||
| +# endif /* USE_LOCALE_CTYPE */ | |||||
| +# ifdef USE_LOCALE_COLLATE | |||||
| newlocale = savepv(do_setlocale_c(LC_COLLATE, NULL)); | |||||
| DEBUG_Lv(PerlIO_printf(Perl_debug_log, | |||||
| @@ -5359,8 +5389,8 @@ Perl_sync_locale() | |||||
| new_collate(newlocale); | |||||
| Safefree(newlocale); | |||||
| -#endif | |||||
| -#ifdef USE_LOCALE_NUMERIC | |||||
| +# endif | |||||
| +# ifdef USE_LOCALE_NUMERIC | |||||
| newlocale = savepv(do_setlocale_c(LC_NUMERIC, NULL)); | |||||
| DEBUG_Lv(PerlIO_printf(Perl_debug_log, | |||||
| @@ -5369,9 +5399,12 @@ Perl_sync_locale() | |||||
| new_numeric(newlocale); | |||||
| Safefree(newlocale); | |||||
| -#endif /* USE_LOCALE_NUMERIC */ | |||||
| +# endif /* USE_LOCALE_NUMERIC */ | |||||
| return was_in_global_locale; | |||||
| + | |||||
| +#endif | |||||
| + | |||||
| } | |||||
| #if defined(DEBUGGING) && defined(USE_LOCALE) | |||||
| diff --git a/makedef.pl b/makedef.pl | |||||
| index dbd756d..661b71d 100644 | |||||
| --- a/makedef.pl | |||||
| +++ b/makedef.pl | |||||
| @@ -574,6 +574,9 @@ unless ($define{USE_LOCALE_COLLATE}) { | |||||
| PL_collxfrm_mult | |||||
| Perl_sv_collxfrm | |||||
| Perl_sv_collxfrm_flags | |||||
| + PL_strxfrm_NUL_replacement | |||||
| + PL_strxfrm_is_behaved | |||||
| + PL_strxfrm_max_cp | |||||
| ); | |||||
| } | |||||
| @@ -583,6 +586,9 @@ unless ($define{USE_LOCALE_NUMERIC}) { | |||||
| PL_numeric_name | |||||
| PL_numeric_radix_sv | |||||
| PL_numeric_standard | |||||
| + PL_numeric_underlying | |||||
| + PL_numeric_underlying_is_standard | |||||
| + PL_underlying_numeric_obj | |||||
| ); | |||||
| } | |||||
| diff --git a/perl.h b/perl.h | |||||
| index 3e1f6cd..d457776 100644 | |||||
| --- a/perl.h | |||||
| +++ b/perl.h | |||||
| @@ -5657,6 +5657,9 @@ typedef struct am_table_short AMTS; | |||||
| # define IN_LC_COMPILETIME(category) 0 | |||||
| # define IN_LC_RUNTIME(category) 0 | |||||
| # define IN_LC(category) 0 | |||||
| +# define _CHECK_AND_WARN_PROBLEMATIC_LOCALE | |||||
| +# define _CHECK_AND_OUTPUT_WIDE_LOCALE_UTF8_MSG(s, send) | |||||
| +# define _CHECK_AND_OUTPUT_WIDE_LOCALE_CP_MSG(c) | |||||
| #endif | |||||
| diff --git a/proto.h b/proto.h | |||||
| index 3e027ab..558c33a 100644 | |||||
| --- a/proto.h | |||||
| +++ b/proto.h | |||||
| @@ -4669,8 +4669,6 @@ PERL_CALLCONV SV* Perl_hfree_next_entry(pTHX_ HV *hv, STRLEN *indexp); | |||||
| assert(hv); assert(indexp) | |||||
| #endif | |||||
| #if defined(PERL_IN_LOCALE_C) | |||||
| -STATIC const char* S_category_name(const int category); | |||||
| -STATIC void S_restore_switched_locale(pTHX_ const int category, const char * const original_locale); | |||||
| #ifndef PERL_NO_INLINE_FUNCTIONS | |||||
| PERL_STATIC_INLINE const char * S_save_to_buffer(const char * string, char **buf, Size_t *buf_size, const Size_t offset) | |||||
| __attribute__warn_unused_result__; | |||||
| @@ -4678,17 +4676,19 @@ PERL_STATIC_INLINE const char * S_save_to_buffer(const char * string, char **buf | |||||
| assert(buf_size) | |||||
| #endif | |||||
| -STATIC const char* S_switch_category_locale_to_template(pTHX_ const int switch_category, const int template_category, const char * template_locale); | |||||
| # if defined(USE_LOCALE) | |||||
| +STATIC const char* S_category_name(const int category); | |||||
| STATIC void S_new_collate(pTHX_ const char* newcoll); | |||||
| STATIC void S_new_ctype(pTHX_ const char* newctype); | |||||
| #define PERL_ARGS_ASSERT_NEW_CTYPE \ | |||||
| assert(newctype) | |||||
| STATIC void S_new_numeric(pTHX_ const char* newnum); | |||||
| +STATIC void S_restore_switched_locale(pTHX_ const int category, const char * const original_locale); | |||||
| STATIC void S_set_numeric_radix(pTHX_ const bool use_locale); | |||||
| STATIC char* S_stdize_locale(pTHX_ char* locs); | |||||
| #define PERL_ARGS_ASSERT_STDIZE_LOCALE \ | |||||
| assert(locs) | |||||
| +STATIC const char* S_switch_category_locale_to_template(pTHX_ const int switch_category, const int template_category, const char * template_locale); | |||||
| # if defined(USE_POSIX_2008_LOCALE) | |||||
| STATIC const char* S_emulate_setlocale(const int category, const char* locale, unsigned int index, const bool is_index_valid); | |||||
| # endif | |||||
| diff --git a/sv.c b/sv.c | |||||
| index 07865bb..81223ca 100644 | |||||
| --- a/sv.c | |||||
| +++ b/sv.c | |||||
| @@ -13330,10 +13330,15 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p | |||||
| SvTAINT(sv); | |||||
| +#ifdef USE_LOCALE_NUMERIC | |||||
| + | |||||
| if (lc_numeric_set) { | |||||
| RESTORE_LC_NUMERIC(); /* Done outside loop, so don't have to | |||||
| save/restore each iteration. */ | |||||
| } | |||||
| + | |||||
| +#endif | |||||
| + | |||||
| } | |||||
| /* ========================================================================= | |||||
| diff --git a/t/lib/warnings/regexec b/t/lib/warnings/regexec | |||||
| index 900dd6e..b9e53c9 100644 | |||||
| --- a/t/lib/warnings/regexec | |||||
| +++ b/t/lib/warnings/regexec | |||||
| @@ -215,6 +215,10 @@ Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - | |||||
| Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. | |||||
| ######## | |||||
| # NAME (?[ ]) in non-UTF-8 locale | |||||
| +require '../loc_tools.pl'; | |||||
| +unless (locales_enabled()) { | |||||
| + print("SKIPPED\n# locales not available\n"),exit; | |||||
| +} | |||||
| eval { require POSIX; POSIX->import("locale_h") }; | |||||
| if ($@) { | |||||
| print("SKIPPED\n# no POSIX\n"),exit; | |||||
| @@ -229,14 +233,14 @@ setlocale(&POSIX::LC_CTYPE, "C"); | |||||
| ":" =~ /(?[ \: ])/; | |||||
| no warnings 'locale'; | |||||
| EXPECT | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 9. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 9. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 10. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 10. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 11. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 11. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 12. | |||||
| -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 12. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 13. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 13. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 14. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 14. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 15. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 15. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. | |||||
| +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. | |||||
| ######## | |||||
| # NAME (?[ ]) in UTF-8 locale | |||||
| require '../loc_tools.pl'; | |||||