X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Flib%2FSys%2FGuestfs%2FLib.pm;h=7a734aa06a484b4905e4dad93b630f988f5fb8fd;hp=1e5638e322d44a7d0d3d5186f555ffade60dfbbd;hb=8b854734bd13b7f68b72422932de3bf24c84ca15;hpb=25c4b0190c22e3bdc5594aff994c8e8f99db5ab3

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 1e5638e..7a734aa 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -440,9 +440,7 @@ sub file_architecture
 
 	foreach my $bin (@_initrd_binaries) {
 	    if (-f "$dir/bin/$bin") {
-		open PIPE, "file $dir/bin/$bin |";
-		local $/ = undef;
-		$_ = <PIPE>;
+		$_ = `file $dir/bin/$bin`;
 		if (/ELF.*executable, (.+?),/) {
 		    return _elf_arch_to_canonical ($1);
 		}