--- git/bleadperl/lib/locale.t	2018-07-15 10:33:46 +1000
+++ locale.t	2018-07-29 22:21:25 +1000
@@ -2167,8 +2167,8 @@
     my $first_c_test = $locales_test_number;
 
     $test_names{++$locales_test_number} = 'Verify that a different locale radix works when doing "==" with a constant';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
+    if ($Config{usequadmath} || ($Config{uselongdouble} && $Config{d_strtold}) || (!$Config{uselongdouble} && $Config{d_strtod})) {
+        print "# Skip: no locale radix with Perl_strtod ($test_names{$locales_test_number})\n";
         report_result($Locale, $locales_test_number, 1);
     } else {
         report_result($Locale, $locales_test_number, $ok3);
@@ -2176,8 +2176,8 @@
     }
 
     $test_names{++$locales_test_number} = 'Verify that a different locale radix works when doing "==" with a scalar';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
+    if ($Config{usequadmath} || ($Config{uselongdouble} && $Config{d_strtold}) || (!$Config{uselongdouble} && $Config{d_strtod})) {
+        print "# Skip: no locale radix with Perl_strtod ($test_names{$locales_test_number})\n";
         report_result($Locale, $locales_test_number, 1);
     } else {
         report_result($Locale, $locales_test_number, $ok4);
@@ -2198,8 +2198,8 @@
     $test_names{$locales_test_number} = 'Verify that "==" with a scalar still works in inner no locale';
 
     $test_names{++$locales_test_number} = 'Verify that "==" with a scalar and an intervening sprintf still works in inner no locale';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
+    if ($Config{usequadmath} || ($Config{uselongdouble} && $Config{d_strtold}) || (!$Config{uselongdouble} && $Config{d_strtod})) {
+        print "# Skip: no locale radix with Perl_strtod ($test_names{$locales_test_number})\n";
         report_result($Locale, $locales_test_number, 1);
     } else {
         report_result($Locale, $locales_test_number, $ok8);
@@ -2218,8 +2218,8 @@
     $problematical_tests{$locales_test_number} = 1;
 
     $test_names{++$locales_test_number} = 'Verify that after a no-locale block, a different locale radix still works when doing "==" with a scalar and an intervening sprintf';
-    if ($Config{usequadmath}) {
-        print "# Skip: no locale radix with usequadmath ($test_names{$locales_test_number})\n";
+    if ($Config{usequadmath} || ($Config{uselongdouble} && $Config{d_strtold}) || (!$Config{uselongdouble} && $Config{d_strtod})) {
+        print "# Skip: no locale radix with Perl_strtod ($test_names{$locales_test_number})\n";
         report_result($Locale, $locales_test_number, 1);
     } else {
         report_result($Locale, $locales_test_number, $ok11);
@@ -2465,8 +2465,8 @@
             }
         }
 
-        if ($Config{usequadmath}) {
-            print "# Skip: no locale radix with usequadmath ($Locale)\n";
+        if ($Config{usequadmath} || ($Config{uselongdouble} && $Config{d_strtold}) || (!$Config{uselongdouble} && $Config{d_strtod})) {
+            print "# Skip: no locale radix with Perl_strtod ($Locale)\n";
             report_result($Locale, $locales_test_number, 1);
         } else {
             report_result($Locale, $locales_test_number, @f == 0);