From: Kilian Saffran <ksaffran@dks.lu>
Date: Thu, 18 Oct 2018 06:13:21 +0000 (+0200)
Subject: perl uuid corretions
X-Git-Tag: 3.27.3
X-Git-Url: http://cloud.dks.lu/git/?a=commitdiff_plain;h=feee990ff79c2e9ffee2b8668b95ea3c69ae92d9;p=creorga.git

perl uuid corretions
---

diff --git a/Tools/creorgadb.pl b/Tools/creorgadb.pl
index 3891ff5..dcecf3d 100644
--- a/Tools/creorgadb.pl
+++ b/Tools/creorgadb.pl
@@ -19,7 +19,7 @@ GetOptions("dbfile|db=s" => \$dbfile,
            "template|t=s" => \$templatedb
           ); 
 #-db "C:\\Users\\ksaff\\DKS\\projects\\Creorga\\lechatpotte\\7c41cbd9-92b6-6d49-8682-a5404b726d10.sqlite" -t "C:\\Users\\ksaff\\Workspace\\creorga\\app\\defaults\\profile\\creorga.sqlite"
-my $ug = UUID::Generator::PurePerl->new();
+#my $ug = UUID::Generator::PurePerl->new();
 sub	getcoldef($){
 	my $strddl = shift;
 	my $curddl = $strddl;