File uuid-module.patch of Package VMware-vSphere-67-CLI-SDK

Index: bin/vmware-uninstall-vSphere-CLI.pl
===================================================================
--- bin/vmware-uninstall-vSphere-CLI.pl.orig
+++ bin/vmware-uninstall-vSphere-CLI.pl
@@ -2379,7 +2379,7 @@ sub install_content_vicli_perl {
     {'module' => 'version',                       'version' => '0.78',     'path' => 'version-0.78'},
     {'module' => 'Data::Dumper',                  'version' => '2.121',    'path' => 'Data-Dumper-2.121'},
     {'module' => 'HTML::Parser',                  'version' => '3.60',     'path' => 'HTML-Parser-3.60'},
-    {'module' => 'UUID',                          'version' => '0.27',     'path' => 'UUID-0.27'},
+    {'module' => 'Data::UUID',                    'version' => '1.217',    'path' => 'Data-UUID-1.217'},
     {'module' => 'XML::SAX',                      'version' => '0.99',     'path' => 'XML-SAX-0.99'},
     {'module' => 'XML::NamespaceSupport',         'version' => '1.12',     'path' => 'XML-NamespaceSupport-1.12'},
     {'module' => 'XML::LibXML::Common',           'version' => '2.0129',   'path' => 'XML-LibXML-Common-2.0129'},
Index: lib/WSMan/share/WSMan/WSBasic.pm
===================================================================
--- lib/WSMan/share/WSMan/WSBasic.pm.orig
+++ lib/WSMan/share/WSMan/WSBasic.pm
@@ -3,7 +3,7 @@ use strict;
 
 #=========================<Imports>==================================#
 use SOAP::Lite;
-use UUID;
+use Data::UUID;
 #use MIME::Base64;
 #=========================</Imports>=================================#
 
@@ -91,10 +91,8 @@ sub register_class_ns(%){
 
 #Method to generate UUIDs.
 sub _get_uuid{
-    my ($uuid, $string);
-    UUID::generate($uuid);
-    UUID::unparse($uuid, $string);
-    return $string;
+    my $ug = new Data::UUID;
+    return $ug->create_str();
 }
 
 #Identify Method.
Index: Makefile.PL
===================================================================
--- Makefile.PL.orig
+++ Makefile.PL
@@ -74,7 +74,7 @@ WriteMakefile(
                           'Class::MethodMaker' => '2.08',
                           'XML::LibXML' => '1.58',
                           'LWP' => '5.8.05',
-                          'UUID' => '0.03',
+                          'Data::UUID' => '1.0',
                           'SOAP::Lite' => '0.67'},
    #
    # These macros put things in the usual spot if you are running