Make pp_reverse fetch the lexical $_ from the correct pad

[perl5.git] / lib / termcap.pl

diff --git a/lib/termcap.pl b/lib/termcap.pl
index f295a2d..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';
@@ -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') {