perl uuid corretions

diff --git a/Tools/creorgadb.pl b/Tools/creorgadb.pl
index 3891ff5..dcecf3d 100644 (file)
--- 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;