fallback mechanism for UUID module on cygwin

perl/Gnome-Tomboy/lib/Tomboy.pm

@@ -25,7 +25,10 @@ use strict;
 
 use POSIX;
 
-eval {
+BEGIN
+{
+  eval
+  {
     require UUID;
 
     sub get_uuid
@@ -39,10 +42,14 @@ eval {
 
   if ($@)
   {
-  print "no UUID\n";
-  eval {
-    use Data::UUID;
+    eval
+    {
+      require Data::UUID;
+    };
 
+    if ($@) { die "install either UUID or Data::UUID"; }
+    else
+    {
       sub get_uuid2
       {
         my $uc= new Data::UUID;
@@ -51,11 +58,9 @@ if ($@)
         $str;
       }
       *get_uuid= *get_uuid2;
-  };
-  if ($@) { die "install either UUID or Data::UUID"; }
-
     }
-
+  }
+}
 
 my %options_passed= map { $_ => 1 } qw(--note-path); # used by start_tb() function