diff options
author | Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de> | 1996-09-23 14:11:38 +0200 |
---|---|---|
committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-23 14:11:38 +0200 |
commit | fc0ab01fb1c539c42424293680fb98deb8de2bb0 (patch) | |
tree | aa7dadc8daa832355120c0d36998258a4d6accd0 /lib/Term | |
parent | 7c584b3313a7851a594fef241fac27f0a4e4bbce (diff) | |
download | perl-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.pm | 6 |
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) { |