From 7f7b643c0d2a3eb972e390281fe8ca896e891e5d Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Fri, 28 Mar 2008 18:19:11 +0000
Subject: [PATCH] Made the test work on perl 5.00

---
 tests/libtest/test1022.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/libtest/test1022.pl b/tests/libtest/test1022.pl
index 73bfc5fc3..5b16de3e0 100755
--- a/tests/libtest/test1022.pl
+++ b/tests/libtest/test1022.pl
@@ -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