summaryrefslogtreecommitdiff
path: root/lib/Term
diff options
context:
space:
mode:
authorUlrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de>1996-09-23 14:11:38 +0200
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-09-23 14:11:38 +0200
commitfc0ab01fb1c539c42424293680fb98deb8de2bb0 (patch)
treeaa7dadc8daa832355120c0d36998258a4d6accd0 /lib/Term
parent7c584b3313a7851a594fef241fac27f0a4e4bbce (diff)
downloadperl-fc0ab01fb1c539c42424293680fb98deb8de2bb0.tar.gz
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.]
Diffstat (limited to 'lib/Term')
-rw-r--r--lib/Term/Cap.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm
index 656889591a..d4d91c6827 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) {