[BUG FIX] $URANDOM_FH is closed FH if there is no /dev/urandom.

We should undef() if it can't open /dev/urandom.
tokuhirom · Aug 1, 2014 · d018c36 · d018c36
1 parent 89a8909
commit d018c36
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/HTTP/Session2/Random.pm b/lib/HTTP/Session2/Random.pm
@@ -14,7 +14,10 @@ our $URANDOM_FH;
 
 # $URANDOM_FH is undef if there is no /dev/urandom
 open $URANDOM_FH, '<:raw', '/dev/urandom'
-    or warn "Cannot open /dev/urandom: $!.";
+    or do {
+    undef $URANDOM_FH;
+    warn "Cannot open /dev/urandom: $!.";
+};
 
 sub generate_session_id {
     if ($URANDOM_FH) {