inspector: Make RPM application data more specific (RHBZ#552718).

[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 c97fae3..49c08b3 100644 (file)
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -1426,7 +1426,7 @@ sub _check_for_applications
             foreach (@lines) {
                 if (m/^(.*) (.*) (.*) (.*) (.*)$/) {
                     my $epoch = $2;
             foreach (@lines) {
                 if (m/^(.*) (.*) (.*) (.*) (.*)$/) {
                     my $epoch = $2;

-                    $epoch = "" if $epoch eq "(none)";
+                    undef $epoch if $epoch eq "(none)";

                     my $app = {
                         name => $1,
                         epoch => $epoch,
                     my $app = {
                         name => $1,
                         epoch => $epoch,