Patch for Term::Cap

'use Term::Cap' produces a warning when diagnosics are active. The
patch below avoids the warning.

[The $entry .= $_ usage is idiomatic enough that it ought to be
ok, I would think, but the patch certainly is ok too.]

diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm
index 6568895..d4d91c6 100644 (file)
--- a/lib/Term/Cap.pm
+++ b/lib/Term/Cap.pm
@@ -195,7 +195,11 @@ sub Tgetent { ## public -- static method
                last;
            }
        }
-       $entry .= $_;
+        if (defined $entry) {
+          $entry .= $_;
+        } else {
+          $entry = $_;
+        }
     };
 
     while ($state != 0) {