Commit 7f7b643c authored by Dan Fandrich's avatar Dan Fandrich
Browse files

Made the test work on perl 5.00

parent cd281472

tests/libtest/test1022.pl

+1 −1
Original line number Diff line number Diff line
@@ -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