bugfix #340 : don't set cache=none to cdrom

[qemu-server.git] / qmupdate

diff --git a/qmupdate b/qmupdate
index c6796323f520185149756ba8040dad8aba06fca3..0b806ddd16493bdf0aedf0f53ae2769e16a59b23 100755 (executable)
--- a/qmupdate
+++ b/qmupdate
@@ -2,7 +2,7 @@
 
 use strict;
 use IO::File;
-use Digest::SHA1;
+use Digest::SHA;
 
 # script to upgrade V0.9.1 to V0.9.2 format
 
@@ -78,7 +78,7 @@ sub parse_network_0_9_1 {
 
 sub random_ether_addr {
 
-    my $rand = Digest::SHA1::sha1_hex (rand(), time());
+    my $rand = Digest::SHA::sha1_hex (rand(), time());
 
     my $mac = '';
     for (my $i = 0; $i < 6; $i++) {