--- loncom/lond 2003/10/30 22:52:24 1.159 +++ loncom/lond 2003/11/01 16:32:32 1.160 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.159 2003/10/30 22:52:24 albertel Exp $ +# $Id: lond,v 1.160 2003/11/01 16:32:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -50,7 +50,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.159 $'; #' stupid emacs +my $VERSION='$Revision: 1.160 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -2430,7 +2430,7 @@ sub currentversion { # see if this is a regular file (ignore links produced earlier) my $thisfile=$ulsdir.'/'.$ulsfn; unless (-l $thisfile) { - if ($thisfile=~/\Q$fnamere1\E(\d+)\Q$fnamere2\E/) { + if ($thisfile=~/\Q$fnamere1\E(\d+)\Q$fnamere2\E$/) { if ($1>$version) { $version=$1; } } }