From 7ac8e19f4148e69afa7925c34233d91e0e4d7f6f Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sat, 11 Apr 2015 05:41:31 +0200
Subject: [PATCH] still not happy with UUID generator
---
perl/Gnome-Tomboy/lib/Tomboy.pm | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
diff --git a/perl/Gnome-Tomboy/lib/Tomboy.pm b/perl/Gnome-Tomboy/lib/Tomboy.pm
index 5ef5143..fe90d3b 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy.pm
@@ -39,16 +39,21 @@ eval {
if ($@)
{
- eval { require Data::UUID; };
+ print "no UUID\n";
+ eval {
+ use Data::UUID;
+
+ sub get_uuid2
+ {
+ my $uc= new Data::UUID;
+ my $str= $uc->create_str();
+ $str =~ tr/A-F/a-f/;
+ $str;
+ }
+ *get_uuid= *get_uuid2;
+ };
if ($@) { die "install either UUID or Data::UUID"; }
- sub get_uuid
- {
- my $uc= new Data::UUID;
- my $str= $uc->create_str();
- $str =~ tr/A-F/a-f/;
- $str;
- }
}
--
GitLab