Update Term-Cap to CPAN version 1.15
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 26 Oct 2013 20:44:25 +0000 (21:44 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 26 Oct 2013 20:59:58 +0000 (21:59 +0100)
  [DELTA]

1.15 Sat Oct 26 21:28:29 BST 2013
      - meta data patch from David Steinbrunner
      - Change email in metadata

1.14 Sat Oct 26 19:20:03 BST 2013
      - Update versions everywhere
      - Change email address and add the github location

1.13 Sat Oct 26 19:08:27 BST 2013
      -  Bring everything up to date with all patches from RT
      - Sync version with core

Porting/Maintainers.pl
cpan/Term-Cap/Cap.pm
cpan/Term-Cap/test.pl

index 45c1ff7..17f7370 100755 (executable)
@@ -1043,16 +1043,8 @@ use File::Glob qw(:case);
     },
 
     'Term::Cap' => {
-        'DISTRIBUTION' => 'JSTOWE/Term-Cap-1.12.tar.gz',
+        'DISTRIBUTION' => 'JSTOWE/Term-Cap-1.15.tar.gz',
         'FILES'        => q[cpan/Term-Cap],
-
-        # Waiting to be merged upstream: see CPAN RT#73447
-        'CUSTOMIZED'   => [
-            qw( Cap.pm
-                test.pl
-                ),
-        ],
-
     },
 
     'Term::Complete' => {
index 5430091..9a70251 100644 (file)
@@ -19,7 +19,7 @@ use strict;
 use vars qw($VERSION $VMS_TERMCAP);
 use vars qw($termpat $state $first $entry);
 
-$VERSION = '1.13';
+$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
@@ -59,7 +59,11 @@ $VERSION = '1.13';
 #       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?
@@ -185,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).
 
@@ -245,7 +249,7 @@ sub Tgetent
        }
        else
        {
-          if ( $^O eq 'Win32' )
+          if ( $^O eq 'MSWin32' )
           {
              $self->{TERM} =  'dumb';
           }
@@ -298,6 +302,7 @@ sub Tgetent
                         $entry = $tmp;
                     }
                 };
+                warn "Can't run infocmp to get a termcap entry: $@" if $@;
             }
             else
             {
@@ -478,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>
@@ -681,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' )
@@ -770,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
 
index 76ec96d..c30cc76 100644 (file)
@@ -20,7 +20,8 @@ my $files = join '',
        ( $ENV{HOME} . '/.termcap', # we assume pretty UNIXy system anyway
          '/etc/termcap', 
          '/usr/share/misc/termcap' );
-unless( $files || $^O eq 'VMS' ) {
+my $terminfo = `infocmp -C 2>/dev/null`;
+unless( $files || $terminfo || $^O eq 'VMS' ) {
     plan skip_all => 'no termcap available to test';
 }
 else {
@@ -163,7 +164,7 @@ SKIP:
    local *^O;
    local *ENV;
    delete $ENV{TERM};
-   $^O = 'Win32';
+   $^O = 'MSWin32';
 
    my $foo = Term::Cap->Tgetent();
    is($foo->{TERM} ,'dumb','Windows gets "dumb" by default');