From 40b95ea03c6c4ea894c4c8d85932bbc33e2ae2ca Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Thu, 4 Jul 2019 13:55:13 +0200
Subject: [PATCH] =?UTF-8?q?Alte=20=C3=BCbnerbleibsel=20entfernt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SYS/lhs_uuid.pbi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/SYS/lhs_uuid.pbi b/SYS/lhs_uuid.pbi
index 50f72a6..daa0913 100644
--- a/SYS/lhs_uuid.pbi
+++ b/SYS/lhs_uuid.pbi
@@ -7,7 +7,7 @@
 ;*
 ;* Lizenz LGPL V2.1
 
-Enumeration WCS_UUID_Version
+Enumeration UUID_Version
   #UUID_V1
   #UUID_V2
   #UUID_V3
@@ -61,14 +61,14 @@ Procedure.s CreateUUID(Type.i=#UUID_V4, String.s="")
       Key = AllocateMemory(16)
       ;Key = 0
       CompilerIf #PB_Compiler_OS <> #PB_OS_Web
-        If WCS_UUID_CryptRandom And Key
+        If UUID_CryptRandom And Key
           CryptRandomData(Key, 16)
           For P_Count = 0 To 15
             P_Numbers(P_Count) = PeekB(Key+P_Count)
           Next P_Count     
         Else
       CompilerElse
-        If WCS_UUID_CryptRandom = 0
+        If UUID_CryptRandom = 0
       CompilerEndIf
         For P_Count = 0 To 15
           P_Numbers(P_Count) = Random(255)