media-sound/squeezeboxserver/files/squeezeboxserver-7.5.1-uuid-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

--- slimserver.pl.old	2010-06-10 13:15:09.050446973 +0100
+++ slimserver.pl	2010-06-10 13:15:09.050446973 +0100
@@ -397,8 +397,9 @@
 	
 	# Generate a UUID for this SC instance on first-run
 	if ( !$prefs->get('server_uuid') ) {
-		require UUID::Tiny;
-		$prefs->set( server_uuid => UUID::Tiny::create_UUID_as_string( UUID::Tiny::UUID_V4() ) );
+		require Data::UUID;
+		my $ug = new Data::UUID;
+		$prefs->set( server_uuid => lc $ug->create_str() );
 	}
 
 	main::INFOLOG && $log->info("Squeezebox Server binary search path init...");