--- loncom/Attic/lonc	2001/11/27 23:11:42	1.20
+++ loncom/Attic/lonc	2001/11/28 21:19:58	1.21
@@ -16,7 +16,7 @@
 # 12/05 Scott Harrison
 # 12/05 Gerd Kortemeyer
 # 01/10/01 Scott Harrison
-# 03/14/01,03/15,06/12,11/26,11/27 Gerd Kortemeyer
+# 03/14/01,03/15,06/12,11/26,11/27,11/28 Gerd Kortemeyer
 # 
 # based on nonforker from Perl Cookbook
 # - server who multiplexes without forking
@@ -182,12 +182,14 @@ sub subreply {
                                       Type    => SOCK_STREAM,
                                       Timeout => 10)
        or return "con_lost";
+
+
     $SIG{ALRM}=sub { die "timeout" };
     $SIG{__DIE__}='DEFAULT';
     eval {
      alarm(10);
      print $sclient "$cmd\n";
-     my $answer=<$sclient>;
+     $answer=<$sclient>;
      chomp($answer);
      alarm(0);
     };