diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/Util.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test2/Util.pm | 5 |
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); } |