From 0b8e0ad258cd870980b4104d1556e8d164855532 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 4 Sep 2009 21:21:40 +0000
Subject: [PATCH] the Perl UUID module is not easily installed nor does it
 appear to be maintained.  use UUID::Tiny instead

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13982 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/extras/Makefile.install                  | 4 ++--
 Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 8 ++------
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/Open-ILS/src/extras/Makefile.install b/Open-ILS/src/extras/Makefile.install
index b8d641527..559161c51 100644
--- a/Open-ILS/src/extras/Makefile.install
+++ b/Open-ILS/src/extras/Makefile.install
@@ -101,8 +101,7 @@ DEBS =  \
 	libtext-csv-perl\
 	libtext-csv-perl\
 	libuniversal-require-perl\
-	libunix-syslog-perl\
-	libuuid-perl
+	libunix-syslog-perl
 
 # Debian Lenny and Ubuntu Intrepid bundle recent versions of yaz
 EXTRA_DEBS = \
@@ -214,6 +213,7 @@ DEB_APACHE_DISMODS = \
 CPAN_MODULES = \
     Business::CreditCard::Object \
     Net::Z3950::Simple2ZOOM \
+	UUID::Tiny \
     SRU
 
 # Intrepid and Lenny have libmarc-charset-perl, libmarc-xml-perl, libnet-z3950-zoom-perl
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index b83b1776c..8d254bdc1 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -13,7 +13,7 @@ use OpenILS::Utils::CStoreEditor;
 use OpenILS::Const qw/:const/;
 use Unicode::Normalize;
 use OpenSRF::Utils::SettingsClient;
-use UUID;
+use UUID::Tiny;
 
 # ---------------------------------------------------------------------------
 # Pile of utilty methods used accross applications.
@@ -1519,11 +1519,7 @@ sub create_trigger_event {
 }
 
 sub create_uuid_string {
-    my $uuid;
-    my $uuidstr;
-    UUID::generate($uuid);
-    UUID::unparse($uuid, $uuidstr);
-    return $uuidstr;
+    return create_UUID_as_string();
 }
 
 1;
-- 
2.11.0