Add strtoul and strtol to avoidables.

1 files changed, 7 insertions, 0 deletions

diff --git a/t/porting/libperl.t b/t/porting/libperl.t
index cf6dbca3d1..9562556f1c 100644
--- a/t/porting/libperl.t
+++ b/t/porting/libperl.t
@@ -484,6 +484,8 @@ for my $symbol (sort keys %expected) {
 #
 # atoi has unsafe and undefined failure modes, and is affected by locale.
 #
+# strtol and strtoul are affected by locale.
+#
 
 my %unexpected;
 
@@ -493,8 +495,13 @@ for my $stdio (qw(gets fgets tmpfile sprintf vsprintf)) {
 for my $str (qw(strcat strcpy strncat strncpy)) {
     $unexpected{$str} = undef; # No Configure symbol for these.
 }
+
 $unexpected{atoi} = undef; # No Configure symbol for atoi.
 
+for my $str (qw(strtol strtoul)) {
+    $unexpected{$str} = "d_$str";
+}
+
 for my $symbol (sort keys %unexpected) {
     if (defined $unexpected{$symbol} && !$Config{$unexpected{$symbol}}) {
       SKIP: {