simplify logic for $entry in the main termcap loop

diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
index f6fb566..7608998 100644 (file)
--- a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
+++ b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
@@ -332,11 +332,14 @@ sub Tgetent
                    defined(my $x = <$fh>) or last;
                    $_ .= $x; chomp;
                }
+               if (defined $entry) {
+                   $entry .= $_;
+               } else {
+                   $entry = $_;
+               }
                last;
            }
        }
-       defined $entry or $entry = '';
-       $entry .= $_ if $_;
         close $fh;
        waitpid($child, 0) if defined $child;