picolisp

commit 9581e378a6c8c3d7ec573ee52ee3fc9c83cefbd5
parent a82668c1081610e26ac07f6154793c81b03e759e
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 13 May 2011 09:52:04 +0200

Use /dev/urandom instead of /dev/random
Diffstat:
M
lib/http.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -1,4 +1,4 @@
-# 06may11abu
+# 13may11abu
 # (c) Software Lab. Alexander Burger
 
 # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked
@@ -65,7 +65,7 @@
 # Local Password
 (de pw (N)
    (if N
-      (out ".pw" (prinl (fmt64 (in "/dev/random" (rd N)))))
+      (out ".pw" (prinl (fmt64 (in "/dev/urandom" (rd N)))))
       (in ".pw" (line T)) ) )
 
 # PicoLisp Shell