[shell changes from patch from perl5.003_26 to perl5.003_27]

[p5sagit/p5-mst-13.2.git] / lib / Term / Cap.pm

diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm
index 6568895..5a73ecf 100644 (file)
--- a/lib/Term/Cap.pm
+++ b/lib/Term/Cap.pm
@@ -195,6 +195,7 @@ sub Tgetent { ## public -- static method
                last;
            }
        }
+       defined $entry or $entry = '';
        $entry .= $_;
     };