X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Flib%2FSys%2FGuestfs%2FLib.pm;h=be17a30398e483896cca91989a2688006a2a96b9;hp=601b3f48835ba876c040c915c7f4981a6ced9ba1;hb=4fbd283c67831d8ef0f0b49045b3369f3ce036db;hpb=b742f0874798050d31ef31fb7f66053e34d36194

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 601b3f4..be17a30 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -381,6 +381,8 @@ sub _elf_arch_to_canonical
 	return "i486";	# probably not in the wild
     } elsif ($_ eq "x86-64") {
 	return "x86_64";
+    } elsif ($_ eq "AMD x86-64") {
+	return "x86_64";
     } elsif (/SPARC32/) {
 	return "sparc";
     } elsif (/SPARC V9/) {