diff --git a/perl/Gnome-Tomboy/lib/Tomboy.pm b/perl/Gnome-Tomboy/lib/Tomboy.pm
index 5ef51439f4158cb392cd51d7b3801450c4535ef8..fe90d3bfb8f68de5310a613e487918f900ed64bd 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;
-  }
 }