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;