Added Fail to Sha constructor if no OpenSSL

2017-02-28 06:53:48 -08:00 · 2017-02-28 06:53:48 -08:00 · 824b4804e8
parent 99e482b8bc
commit 824b4804e8
1 changed files with 1 additions and 0 deletions
--- a/Hash.Sha.pp
+++ b/Hash.Sha.pp
@ -76,6 +76,7 @@ begin
    raise Exception.Create('Please install OpenSSL.') at
    get_caller_addr(get_frame),
    get_caller_frame(get_frame);
+    Fail;
  end;
 end;