--- loncom/lonhttpd	2003/05/02 21:03:19	1.7
+++ loncom/lonhttpd	2003/07/01 19:57:45	1.8
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: lonhttpd,v 1.7 2003/05/02 21:03:19 www Exp $
+# $Id: lonhttpd,v 1.8 2003/07/01 19:57:45 albertel Exp $
 
 $VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative $Revison$)";
 
@@ -296,7 +296,7 @@ $date = "$dt/$mon/$yr:$tm +0000";
 select(STDOUT); $|=1; $address = 0; 
 alarm 1;
 while (<STDIN>) {
-	if(/^([A-Z]+)\s+([^\s]+)\s+([^\s\r\l\n]*)/) {
+	if(/^([A-Z]+)\s+(\S+)\s+(\S*)/) {
 		$method = $1;
 		$address = $2; 
 		$httpver = $3;