--- loncom/lond 2010/07/26 21:52:10 1.450 +++ loncom/lond 2010/08/17 20:06:25 1.451 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.450 2010/07/26 21:52:10 raeburn Exp $ +# $Id: lond,v 1.451 2010/08/17 20:06:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,7 +58,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.450 $'; #' stupid emacs +my $VERSION='$Revision: 1.451 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -3183,7 +3183,7 @@ sub dump_with_regexp { $loncaparev = $Apache::lonnet::loncaparevs{$clientname}; } my ($major,$minor); - if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\d.\-]+\'?/) { + if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?/) { $major = $1; $minor = $2; }