summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test2/Util.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/Util.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Test2/Util.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/Util.pm b/Master/tlpkg/tlperl/lib/Test2/Util.pm
index b78f80a9040..aebfc2fd69e 100755
--- a/Master/tlpkg/tlperl/lib/Test2/Util.pm
+++ b/Master/tlpkg/tlperl/lib/Test2/Util.pm
@@ -2,7 +2,7 @@ package Test2::Util;
use strict;
use warnings;
-our $VERSION = '1.302183';
+our $VERSION = '1.302194';
use POSIX();
use Config qw/%Config/;
@@ -49,7 +49,8 @@ sub _can_thread {
# Threads are broken on perl 5.10.0 built with gcc 4.8+
if ($] == 5.010000 && $Config{'ccname'} eq 'gcc' && $Config{'gccversion'}) {
- my @parts = split /\./, $Config{'gccversion'};
+ return 0 unless $Config{'gccversion'} =~ m/^(\d+)\.(\d+)/;
+ my @parts = split /[\.\s]+/, $Config{'gccversion'};
return 0 if $parts[0] > 4 || ($parts[0] == 4 && $parts[1] >= 8);
}