Made the test work on perl 5.00

This commit is contained in:
Dan Fandrich 2008-03-28 18:19:11 +00:00
parent cd2814725a
commit 7f7b643c0d
1 changed files with 1 additions and 1 deletions

View File

@ -28,7 +28,7 @@ if ( $what eq "version" ) {
}
else {
# Convert hex version to decimal for comparison's sake
/^([[:xdigit:]]{2})([[:xdigit:]]{2})([[:xdigit:]]{2})$/ ;
/^(..)(..)(..)$/ ;
$curlconfigversion = hex($1) . "." . hex($2) . "." . hex($3);
# Strip off the -CVS from the curl version if it's there