--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:50:07	1.5
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/16 20:41:51	1.6
@@ -254,6 +254,7 @@
     my $self = shift;
 
     eval ("use Data::UUID;");
+    return if $@;
     my $ug = Data::UUID->new();
     my $guid = $ug->create_str();