diff options
author | Paul Smith <psmith@gnu.org> | 2021-12-18 18:11:30 -0500 |
---|---|---|
committer | Paul Smith <psmith@gnu.org> | 2021-12-19 16:34:19 -0500 |
commit | 9230bfb9aea55201d47afb666c104cc4542a1f39 (patch) | |
tree | d3d37454b412e0c904d9b3259dcb2cce76bab8e1 /tests/run_make_tests.pl | |
parent | 55b993ae09ad009c18e7097a78d3b868c16e15df (diff) | |
download | make-git-9230bfb9aea55201d47afb666c104cc4542a1f39.tar.gz |
Use a well-known error string for out-of-bound function arguments
* src/function.c (parse_numeric): Check for empty value and error.
If we find ERANGE just print our own error, not strerror.
(func_word): Use a generic "not good" error message.
(func_wordlist): Ditto
(func_intcmp): Ditto
* tests/run_make_tests.pl: Remove code to find strerror(ERANGE)
* tests/scrips/functions/intcmp: Update the error message.
* tests/scrips/functions/word: Ditto.
Diffstat (limited to 'tests/run_make_tests.pl')
-rw-r--r-- | tests/run_make_tests.pl | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl index ebf202a2..4cc375e5 100644 --- a/tests/run_make_tests.pl +++ b/tests/run_make_tests.pl @@ -108,7 +108,6 @@ $ERR_read_only_file = undef; $ERR_unreadable_file = undef; $ERR_nonexe_file = undef; $ERR_exe_dir = undef; -$ERR_out_of_range = undef; { use locale; @@ -122,9 +121,6 @@ $ERR_out_of_range = undef; # See set_defaults() as this doesn't work right on Windows :( $! = &POSIX::ERANGE; - $ERR_out_of_range = "$!"; - } else { - $ERR_out_of_range = 'Numerical result out of range'; } if (open(my $F, '<', 'file.none')) { @@ -464,10 +460,6 @@ sub set_defaults $scriptsuffix = '.com'; } else { $scriptsuffix = '.bat'; - - # Frustratingly, Perl reports the wrong strerror string for ERANGE. - # It's weird because Python gets it right. Not sure what's going on. - $ERR_out_of_range = 'Result too large'; } } |