diff --git a/cpan/version/t/07locale.t b/cpan/version/t/07locale.t
index b86466fc80e9..88de8baa17a9 100644
--- a/cpan/version/t/07locale.t
+++ b/cpan/version/t/07locale.t
@@ -50,7 +50,7 @@ SKIP: {
 
 	while (<DATA>) {
 	    chomp;
-	    $loc = setlocale( LC_ALL, $_);
+	    $loc = setlocale( LC_NUMERIC, $_);
 	    last if $loc && radix() eq ',';
 	}
 	skip 'Cannot test locale handling without a comma locale', 6
@@ -70,7 +70,7 @@ SKIP: {
             $ver = 'version'->new($]);
             is "$ver", "$]", 'Use PV for dualvars';
         }
-	setlocale( LC_ALL, $orig_loc); # reset this before possible skip
+	setlocale( LC_NUMERIC, $orig_loc); # reset this before possible skip
 	skip 'Cannot test RT#46921 with Perl < 5.008', 1
 	    if ($] < 5.008);
 	my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
@@ -81,10 +81,10 @@ use locale;
 use POSIX qw(locale_h);
 \$^W = 1;
 use version;
-setlocale (LC_ALL, '$loc');
+setlocale (LC_NUMERIC, '$loc');
 use version ;
 eval "use Socket 1.7";
-setlocale( LC_ALL, '$orig_loc');
+setlocale( LC_NUMERIC, '$orig_loc');
 1;
 EOF
 	close $fh;
diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 7886ef1aeaae..ceca9ca2b629 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -22,4 +22,4 @@ Time::Piece cpan/Time-Piece/Piece.xs 543152540ee17788a638b2c5746b86c3d04401d1
 Win32API::File cpan/Win32API-File/File.pm 8fd212857f821cb26648878b96e57f13bf21b99e
 Win32API::File cpan/Win32API-File/File.xs beb870fed4490d2faa547b4a8576b8d64d1d27c5
 version cpan/version/lib/version.pm a963b513cf812bd7f4d28b3422efd9904e70a34c
-version cpan/version/t/07locale.t e3ee07d9f9159acb807a7fa29c712cc64f9b950b
+version cpan/version/t/07locale.t 889f83b3efd52fed133d0a1483cade2bfa0ad6f1