diff options
Diffstat (limited to 'perl/lib')
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index c97fae38..49c08b39 100644 --- 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; - $epoch = "" if $epoch eq "(none)"; + undef $epoch if $epoch eq "(none)"; my $app = { name => $1, epoch => $epoch, |