[open-ils-commits] r13982 - in trunk/Open-ILS/src: extras perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-04 17:21:40 -0400 (Fri, 04 Sep 2009)
New Revision: 13982

Modified:
   trunk/Open-ILS/src/extras/Makefile.install
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
the Perl UUID module is not easily installed nor does it appear to be maintained.  use UUID::Tiny instead

Modified: trunk/Open-ILS/src/extras/Makefile.install
===================================================================
--- trunk/Open-ILS/src/extras/Makefile.install	2009-09-04 20:50:35 UTC (rev 13981)
+++ trunk/Open-ILS/src/extras/Makefile.install	2009-09-04 21:21:40 UTC (rev 13982)
@@ -101,8 +101,7 @@
 	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 @@
 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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-09-04 20:50:35 UTC (rev 13981)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-09-04 21:21:40 UTC (rev 13982)
@@ -13,7 +13,7 @@
 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_uuid_string {
-    my $uuid;
-    my $uuidstr;
-    UUID::generate($uuid);
-    UUID::unparse($uuid, $uuidstr);
-    return $uuidstr;
+    return create_UUID_as_string();
 }
 
 1;