From 824b4804e881208acb248f9528c24d0b45946774 Mon Sep 17 00:00:00 2001
From: "R. Eric Wheeler" <sikofitt@gmail.com>
Date: Tue, 28 Feb 2017 06:53:48 -0800
Subject: [PATCH] Added Fail to Sha constructor if no OpenSSL

---
 Hash.Sha.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Hash.Sha.pp b/Hash.Sha.pp
index 13b4935..dfa2af3 100644
--- 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;