develooper Front page | perl.perl5.porters | Postings from October 2013

Re: Perl CPAN distribution 'Term-Cap'

From:
Jonathan Stowe
Date:
October 28, 2013 00:22
Subject:
Re: Perl CPAN distribution 'Term-Cap'
Message ID:
1382812777.6016.12.camel@localhost.localdomain
Hi,
While I was on a roll I thought I'd better update it with my real email
address and the fact that it is on github and everything so here is the
diff to the current blead version:

--- cpan/Term-Cap/Cap.pm	2013-10-26 19:29:57.500035915 +0100
+++ ../../modules/Term-Cap/Cap.pm	2013-10-26 19:19:16.493103209 +0100
@@ -19,7 +19,7 @@
 use vars qw($VERSION $VMS_TERMCAP);
 use vars qw($termpat $state $first $entry);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 
 # 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,8 @@
 #       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
 # TODO:
 # support Berkeley DB termcaps
 # force $FH into callers package?
@@ -185,7 +186,7 @@
 
 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 +246,7 @@
        }
        else
        {
-          if ( $^O eq 'Win32' )
+          if ( $^O eq 'MSWin32' )
           {
              $self->{TERM} =  'dumb';
           }
@@ -298,6 +299,7 @@
                         $entry = $tmp;
                     }
                 };
+                warn "Can't run infocmp to get a termcap entry: $@" if
$@;
             }
             else
             {
@@ -478,7 +480,7 @@
 
 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 +683,9 @@
         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 +772,10 @@
 =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
 
<attached>

Also a small change to the tests.

On Fri, 2013-10-18 at 01:25 +0100, Steve Hay wrote:
> On 18 October 2013 01:17, Steve Hay <steve.m.hay@googlemail.com> wrote:
> > Hi Jonathan / Florian,
> >
> > With regard to my previous message below, are either of you able to
> > roll a new CPAN release of Term-Cap?
> >
> > (I would be happy to do it myself if you could grant me co-maint
> > permission, but I believe you cannot since Tony Sanders (TSANDERS) is
> > listed by pause.perl.org as the owner, and only the owner can do
> > that?)
> >
> 
> (Sorry, I meant to note that I'm asking because I'm unable to find a
> valid email address for Tony Sanders. My previous message to
> sanders@bsdi.com bounced and I cannot see anything more recent to try
> instead...)




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About