utf8.c: Modify doc comment; change whitespace

[perl5.git] / lib / termcap.pl

diff --git a/lib/termcap.pl b/lib/termcap.pl
index 06da956..4c029d3 100644 (file)
--- a/lib/termcap.pl
+++ b/lib/termcap.pl
@@ -2,12 +2,15 @@
 #
 # This library is no longer being maintained, and is included for backward
 # compatibility with Perl 4 programs which may require it.
+# This legacy library is deprecated and will be removed in a future
+# release of perl.
 #
 # In particular, this should not be used as an example of modern Perl
 # programming techniques.
 #
 # Suggested alternative: Term::Cap
 #
+
 ;#
 ;# Usage:
 ;#     require 'ioctl.pl';
@@ -22,7 +25,7 @@ sub Tgetent {
     local($TERM) = @_;
     local($TERMCAP,$_,$entry,$loop,$field);
 
-    warn "Tgetent: no ospeed set" unless $ospeed;
+    # warn "Tgetent: no ospeed set" unless $ospeed;
     foreach $key (keys %TC) {
        delete $TC{$key};
     }
@@ -152,8 +155,8 @@ sub Tgoto {
        }
        elsif ($code eq '>') {
            ($code,$tmp,$string) = unpack("CCa99",$string);
-           if ($tmp[$[] > $code) {
-               $tmp[$[] += $tmp;
+           if ($tmp[0] > $code) {
+               $tmp[0] += $tmp;
            }
        }
        elsif ($code eq '2') {