mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-16 16:23:30 +00:00
Coerce PERL_VERSION with %vd to fix 5.8.
This commit is contained in:
@@ -46,6 +46,16 @@ sub test_v {
|
||||
"$args{name} versions"
|
||||
);
|
||||
|
||||
# Perl 5.8 $^V/$PERL_VERSION is borked, make sure
|
||||
# the module is coping with it.
|
||||
if ( $items->{Perl} ) {
|
||||
like(
|
||||
$versions->{Perl},
|
||||
q/\d+\.\d+.\d+/,
|
||||
"Perl version looks like a version"
|
||||
);
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user