Commit 22dc2ca6 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor fix.

parent 6d6bca86
...@@ -450,6 +450,8 @@ sub TBMakeLogname($) ...@@ -450,6 +450,8 @@ sub TBMakeLogname($)
sub TBGenSecretKey() sub TBGenSecretKey()
{ {
my $key=`/bin/dd if=/dev/urandom count=128 bs=1 2> /dev/null | /sbin/md5`; my $key=`/bin/dd if=/dev/urandom count=128 bs=1 2> /dev/null | /sbin/md5`;
return undef
if ($?);
chomp($key); chomp($key);
return $key; return $key;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment