From: Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de>
Date: Mon, 23 Sep 1996 12:11:38 +0000 (+0200)
Subject: Patch for Term::Cap
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc0ab01fb1c539c42424293680fb98deb8de2bb0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {