[LON-CAPA-cvs] cvs: loncom / lond

[albertel]

albertel		Wed Feb  1 17:08:49 2006 EDT

  Modified files:              
    /loncom	lond 
  Log:
  - convert to throwing numerical errors
  
  
Index: loncom/lond
diff -u loncom/lond:1.315 loncom/lond:1.316
--- loncom/lond:1.315	Tue Jan 31 16:54:34 2006
+++ loncom/lond	Wed Feb  1 17:08:48 2006
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.315 2006/01/31 21:54:34 albertel Exp $
+# $Id: lond,v 1.316 2006/02/01 22:08:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,7 @@
 my $lastlog='';
 my $lond_max_wait_time = 13;
 
-my $VERSION='$Revision: 1.315 $'; #' stupid emacs
+my $VERSION='$Revision: 1.316 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -2451,7 +2451,7 @@
 			$userinput);
 	    }
 	} else {
-	    &Failure( $client, "error: ".($!)." tie(GDBM) Failed ".
+	    &Failure( $client, "error: ".($!+0)." tie(GDBM) Failed ".
 		     "while attempting put\n", $userinput);
 	}
     } else {
@@ -2487,7 +2487,7 @@
     my $hashref = &tie_user_hash($udom, $uname, $namespace,
 				 &GDBM_WRCREAT(),"N",$what);
     if(!$hashref) {
-	&Failure( $client, "error: ".($!)." tie(GDBM) Failed ".
+	&Failure( $client, "error: ".($!+0)." tie(GDBM) Failed ".
 		  "while attempting put\n", $userinput);
 	return 1;
     }