drop, bug have to recompute md5

Perl · Nov 17, 2023 · e1d2a21 · e1d2a21
1 parent 94e667e
commit e1d2a21
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cpan/version/t/07locale.t b/cpan/version/t/07locale.t
@@ -51,7 +51,8 @@ SKIP: {
 	while (<DATA>) {
 	    chomp;
 	    $loc = setlocale( LC_NUMERIC, $_);
-	    last if $loc && radix() eq ',';
+            next unless $loc;   # Not on this system
+	    last if radix() eq ',';
 	}
 	skip 'Cannot test locale handling without a comma locale', 6
 	    unless $loc and radix() eq ',';