This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Term-Cap to CPAN version 1.15
[perl5.git] / cpan / Term-Cap / Cap.pm
index 004a03c..9a70251 100644 (file)
@@ -19,7 +19,7 @@ use strict;
 use vars qw($VERSION $VMS_TERMCAP);
 use vars qw($termpat $state $first $entry);
 
-$VERSION = '1.12';
+$VERSION = '1.15';
 
 # Version undef: Thu Dec 14 20:02:42 CST 1995 by sanders@bsdi.com
 # Version 1.00:  Thu Nov 30 23:34:29 EST 2000 by schwern@pobox.com
@@ -57,7 +57,13 @@ $VERSION = '1.12';
 #       EBDIC fixes from Chun Bing Ge <gecb@cn.ibm.com>
 # Version 1.12: Sat Dec  8 00:10:21 GMT 2007
 #       QNX test fix from Matt Kraai <kraai@ftbfs.org>
-#
+# Version 1.13: Thu Dec 22 22:21:09 GMT 2011
+#       POD error fix from Domin Hargreaves <dom@earth.li>
+# Version 1.14 Sat Oct 26 19:16:38 BST 2013
+#       Applied all patches from RT and updated contact details
+# Version 1.15 Sat Oct 26 21:32:24 BST 2013
+#        Metadata change from David Steinbrunner
+#        Forgot to update the email somewhere
 # TODO:
 # support Berkeley DB termcaps
 # force $FH into callers package?
@@ -86,8 +92,6 @@ termcap manpage on most Unix-like systems.
 
 =head2 METHODS
 
-=over 4
-
 The output strings for B<Tputs> are cached for counts of 1 for performance.
 B<Tgoto> and B<Tpad> do not cache.  C<$self-E<gt>{_xx}> is the raw termcap
 data and C<$self-E<gt>{xx}> is the cached version.
@@ -145,6 +149,8 @@ sub termcap_path
     return grep { defined $_ && -f $_ } @termcap_path;
 }
 
+=over 4
+
 =item B<Tgetent>
 
 Returns a blessed object reference which the user can
@@ -183,7 +189,7 @@ It takes a hash reference as an argument with two optional keys:
 
 The terminal output bit rate (often mistakenly called the baud rate)
 for this terminal - if not set a warning will be generated
-and it will be defaulted to 9600.  I<OSPEED> can be be specified as
+and it will be defaulted to 9600.  I<OSPEED> can be specified as
 either a POSIX termios/SYSV termio speeds (where 9600 equals 9600) or
 an old DSD-style speed ( where 13 equals 9600).
 
@@ -243,7 +249,7 @@ sub Tgetent
        }
        else
        {
-          if ( $^O eq 'Win32' )
+          if ( $^O eq 'MSWin32' )
           {
              $self->{TERM} =  'dumb';
           }
@@ -296,6 +302,7 @@ sub Tgetent
                         $entry = $tmp;
                     }
                 };
+                warn "Can't run infocmp to get a termcap entry: $@" if $@;
             }
             else
             {
@@ -476,7 +483,7 @@ It takes three arguments:
 
 The literal string to be output.  If it starts with a number and an optional
 '*' then the padding will be increased by an amount relative to this number,
-if the '*' is present then this amount will me multiplied by $cnt.  This part
+if the '*' is present then this amount will be multiplied by $cnt.  This part
 of $string is removed before output/
 
 =item B<$cnt>
@@ -679,9 +686,9 @@ sub Tgoto
         elsif ( $code eq '>' )
         {
             ( $code, $tmp, $string ) = unpack( "CCa99", $string );
-            if ( $tmp[$[] > $code )
+            if ( $tmp[0] > $code )
             {
-                $tmp[$[] += $tmp;
+                $tmp[0] += $tmp;
             }
         }
         elsif ( $code eq '2' )
@@ -768,7 +775,10 @@ Please see the README file in distribution.
 =head1 AUTHOR
 
 This module is part of the core Perl distribution and is also maintained
-for CPAN by Jonathan Stowe <jns@gellyfish.com>.
+for CPAN by Jonathan Stowe <jns@gellyfish.co.uk>.
+
+The code is hosted on Github: https://github.com/jonathanstowe/Term-Cap
+please feel free to fork, submit patches etc, etc there.
 
 =head1 SEE ALSO