--- lib/Net/TFTPd.pm	2009/08/03 08:53:47	119
+++ lib/Net/TFTPd.pm	2009/08/03 08:54:23	120
@@ -228,7 +228,7 @@
 		else
 		{
 			$! = $udpserver->sockopt(SO_ERROR);
-			$LASTERROR = sprintf "Socket RECV error: %s\n", $!;
+			$LASTERROR = sprintf "Socket RECV error: %s\n", $! if $!;
 			return(undef);
 		}
 	}
@@ -837,7 +837,7 @@
 		else
 		{
 			$! = $udpserver->sockopt(SO_ERROR);
-			$LASTERROR = sprintf "Socket RECV error: %s\n", $!;
+			$LASTERROR = sprintf "Socket RECV error: %s\n", $! if $!;
 			return(undef);
 		}
 	}