--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 20:41:51	1.6
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/19 16:37:54	1.7
@@ -253,10 +253,23 @@
   {
     my $self = shift;
 
-    eval ("use Data::UUID;");
-    return if $@;
-    my $ug = Data::UUID->new();
-    my $guid = $ug->create_str();
+    my $guid;
+
+    # try to use Data::UUID first ...
+    eval("use Data::UUID;");
+    if (!$@) {
+      my $ug = Data::UUID->new();
+      $guid = $ug->create_str();
+      
+    # ... if this fails, try to fallback to Data::UUID::PurePerl instead ...
+    } else {
+      eval("use Data::UUID::PurePerl;");
+      if (!$@) {
+        $guid = Data::UUID::PurePerl::generate_id();
+      } else {
+        croak "couldn't create globally unique identifier";
+      }
+    }
     
     return $guid;
   }