Lib.pm: Use Perl backtick instead of slurp (Aron Griffis).

[libguestfs.git] / perl / lib / Sys / Guestfs / Lib.pm

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 1e5638e..7a734aa 100644 (file)
--- 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") {
 
        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);
                }
                if (/ELF.*executable, (.+?),/) {
                    return _elf_arch_to_canonical ($1);
                }