[LON-CAPA-cvs] cvs: loncom / LondConnection.pm

[albertel]

albertel		Tue Mar  2 17:38:08 2004 EDT

  Modified files:              
    /loncom	LondConnection.pm 
  Log:
  - making the regexp effieceint
  
  
Index: loncom/LondConnection.pm
diff -u loncom/LondConnection.pm:1.28 loncom/LondConnection.pm:1.29
--- loncom/LondConnection.pm:1.28	Tue Mar  2 09:57:40 2004
+++ loncom/LondConnection.pm	Tue Mar  2 17:38:07 2004
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.28 2004/03/02 14:57:40 albertel Exp $
+# $Id: LondConnection.pm,v 1.29 2004/03/02 22:38:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -308,7 +308,7 @@
 
     &Debug(9,"Received from host: ".$data);
     $self->{TransactionReply} .= $data;
-    if($self->{TransactionReply} =~ /(.*\n)/) {
+    if($self->{TransactionReply} =~ m/\n$/) {
 	&Debug(8,"Readable End of line detected");
 	if ($self->{State}  eq "Initialized") { # We received the challenge:
 	    if($self->{TransactionReply} eq "refused\n") {	# Remote doesn't have