r32221 - in /branches/upstream/libterm-readline-gnu-perl/current: Gnu.pm INSTALL META.yml Makefile.PL README t/00checkver.t t/readline.t

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Sat Mar 21 01:50:35 UTC 2009


Author: ryan52-guest
Date: Sat Mar 21 01:50:06 2009
New Revision: 32221

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32221
Log:
[svn-upgrade] Integrating new upstream version, libterm-readline-gnu-perl (1.19)

Modified:
    branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm
    branches/upstream/libterm-readline-gnu-perl/current/INSTALL
    branches/upstream/libterm-readline-gnu-perl/current/META.yml
    branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL
    branches/upstream/libterm-readline-gnu-perl/current/README
    branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t
    branches/upstream/libterm-readline-gnu-perl/current/t/readline.t

Modified: branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm Sat Mar 21 01:50:06 2009
@@ -1,7 +1,7 @@
 #
 #	Gnu.pm --- The GNU Readline/History Library wrapper module
 #
-#	$Id: Gnu.pm,v 1.98 2009/02/27 12:46:45 hiroo Exp $
+#	$Id: Gnu.pm,v 1.100 2009/03/20 16:33:25 hiroo Exp $
 #
 #	Copyright (c) 2009 Hiroo Hayashi.  All rights reserved.
 #
@@ -73,7 +73,7 @@
     use DynaLoader;
     use vars qw($VERSION @ISA @EXPORT_OK);
 
-    $VERSION = '1.18';
+    $VERSION = '1.19';
 
     # Term::ReadLine::Gnu::AU makes a function in
     # `Term::ReadLine::Gnu::XS' as a method.
@@ -291,6 +291,11 @@
 sub readline {			# should be ReadLine
     my $self = shift;
     my ($prompt, $preput) = @_;
+
+    # contributed fix for Perl debugger
+    # make sure the outstream fd inside the readline library is
+    # in sync (see http://bugs.debian.org/236018)
+    $Attribs{outstream} = $Attribs{outstream};
 
     # ornament support (now prompt only)
     $prompt = ${$Attribs{term_set}}[0] . $prompt . ${$Attribs{term_set}}[1];

Modified: branches/upstream/libterm-readline-gnu-perl/current/INSTALL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/INSTALL?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/INSTALL (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/INSTALL Sat Mar 21 01:50:06 2009
@@ -1,5 +1,5 @@
 -*- Indented-text -*-
-#	$Id: INSTALL,v 1.22 2006-04-02 02:11:51+09 hiroo Exp $
+#	$Id: INSTALL,v 1.23 2009/03/20 16:06:37 hiroo Exp $
 
 1. How to Install Term::ReadLine::Gnu
 
@@ -38,7 +38,17 @@
 	directory?' (This section is found in the Perl 5.6
 	documentation).
 
-1.3 Trouble Shooting
+1.3 Known Issue - Segmentation Fault during exiting Perl.
+
+	If "make test" fails even though all test passed, try
+		perl -Mblib t/00checkver.t
+	If segmentation fault occurs after all test done, if encounter
+	the putenv() bug. You have to recompile Perl with
+	-DPERL_USE_SAFE_PUTENV.  See
+	   http://rt.cpan.org/Ticket/Display.html?id=37194
+	for more details.
+
+1.4 Trouble Shooting
 
         If you have any trouble when using or installing this module,
 	please let me (hiroo.hayashi at computer.org) know by E-Mail.  It
@@ -86,6 +96,8 @@
 	see INSTALL file which is included in Term-ReadLine-Gnu-1.11.
 
 2.2 Shared Library
+	!!!Description in this section is old.  See document in the GNU
+	Readline Library.!!!
 
 	If you want to build it as shared library, use readline-4.0
 	(or later).  Type `make shared' instead of `make' to build
@@ -104,16 +116,4 @@
 
 	# Please let me know on your experience on others OSs.
 
-2.3 Multibyte Character (Japanese character) Handling
-
-	# readline-4.3 on some system has multibyte support.  If your
-	# system supports it, ignore this section.
-
-	Since the GNU Readline Library is 8 bit clean, I use Japanese
-	characters without any patch.  But I have to hit Backspace key
-	twice to erase a Japanese character.
-	
-	If you are using EUC Japanese charactor try to use
-	Gnu/euc_jp.pm module.
-
 EOF

Modified: branches/upstream/libterm-readline-gnu-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/META.yml?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/META.yml (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/META.yml Sat Mar 21 01:50:06 2009
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Term-ReadLine-Gnu
-version:      1.18
+version:      1.19
 version_from: Gnu.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL Sat Mar 21 01:50:06 2009
@@ -1,7 +1,7 @@
 #
 #	Makefile.PL for Term::ReadLine::Gnu
 #
-#	$Id: Makefile.PL,v 1.31 2009/02/27 13:30:47 hiroo Exp $
+#	$Id: Makefile.PL,v 1.32 2009/03/01 02:57:15 hiroo Exp $
 #
 #	Copyright (c) 2009 Hiroo Hayashi.  All rights reserved.
 #		<hiroo.hayashi at computer.org>
@@ -21,12 +21,17 @@
 use ExtUtils::MakeMaker;
 use Config;
 use Getopt::Long;
-
+use 5.007; use 5.7.0;		# use version 1.09 for older Perl
 my ($defs, $libs, $lddflags, $RLLIB, $RLINC);
 
-# exit 0 before creating the Makefile to be CPAN Tests friendly
-# see http://cpantest.grango.org/wiki/CPANAuthorNotes
+# exit 0 before creating the Makefile to be CPAN Testers friendly
+# see http://wiki.cpantester.org/wiki/CPANAuthorNotes
 my $err = $ENV{AUTOMATED_TESTING} ? 0 : 1;
+# test /dev/tty for CPAN Testers
+if ($ENV{AUTOMATED_TESTING} && !open(SESAMI, '/dev/tty')) {
+    warn "cannot open /dev/tty\n";
+    exit 0;
+}
 
 $defs = ($Config{strings} =~ m|/string.h$|) ? '-DHAVE_STRING_H' : '';
 

Modified: branches/upstream/libterm-readline-gnu-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/README?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/README (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/README Sat Mar 21 01:50:06 2009
@@ -1,5 +1,5 @@
 	-*- Indented-text -*-
-$Id: README,v 1.28 2009/02/27 13:31:39 hiroo Exp $
+$Id: README,v 1.29 2009/03/20 16:37:36 hiroo Exp $
 
 Term::ReadLine::Gnu --- GNU Readline Library Wrapper Module
 
@@ -65,6 +65,18 @@
 
 
 Revision History:
+
+1.19  2009-03-21
+	- make sure the outstream fd inside the readline library is in
+          sync (see http://bugs.debian.org/236018)
+	- fixes to be more CPAN Testers friendly
+	  - t/readline.t does not use visible bell for "make test"
+	  - Makefile.PL requires perl 5.7.0 or later.  (Use
+	    Term::ReadLine::Gnu-1.09 for older Perl.)
+	  - Makefile.PL exits 0 when /dev/tty cannot be opened.
+	- INSTALL
+	    add description of the -DPERL_USE_SAFE_PUTENV issue.  If
+	    you encounter a segmentation fault, read it.
 
 1.18  2009-02-27
 	- better error checking of Makefile.PL for automatic testing

Modified: branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t Sat Mar 21 01:50:06 2009
@@ -1,9 +1,9 @@
 # -*- perl -*-
 #	00check.t - check versions
 #
-#	$Id: 00checkver.t,v 1.1 2008-03-20 22:50:26+09 hiroo Exp hiroo $
+#	$Id: 00checkver.t,v 1.2 2009/02/27 14:16:14 hiroo Exp $
 #
-#	Copyright (c) 2008 Hiroo Hayashi.  All rights reserved.
+#	Copyright (c) 2009 Hiroo Hayashi.  All rights reserved.
 #
 #	This program is free software; you can redistribute it and/or
 #	modify it under the same terms as Perl itself.

Modified: branches/upstream/libterm-readline-gnu-perl/current/t/readline.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/t/readline.t?rev=32221&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/readline.t (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/readline.t Sat Mar 21 01:50:06 2009
@@ -1,7 +1,7 @@
 # -*- perl -*-
 #	readline.t - Test script for Term::ReadLine:GNU
 #
-#	$Id: readline.t,v 1.45 2008-02-17 15:26:31+09 hiroo Exp $
+#	$Id: readline.t,v 1.46 2009-03-20 23:17:27+09 hiroo Exp $
 #
 #	Copyright (c) 2008 Hiroo Hayashi.  All rights reserved.
 #
@@ -866,7 +866,9 @@
 print $OUT "\n" unless defined $t->readline("bold>");
 $t->ornaments('mr,me,,');
 print $OUT "\n" unless defined $t->readline("reverse>");
-$t->ornaments('vb,,,');
+# It seems that on some systems a visible bell cannot be redirected
+# to /dev/null and confuses ExtUtils::Command:MM::test_harness().
+$t->ornaments('vb,,,') if $verbose;
 print $OUT "\n" unless defined $t->readline("visible bell>");
 $t->ornaments(0);
 print $OUT "# end of ornaments test\n";
@@ -876,10 +878,9 @@
 ########################################################################
 # end of non-interactive test
 unless ($verbose) {
-    # $^X : `perl' for dynamically linked perl, `./perl' for
-    #        statically linked perl.
+    # Be quiet during CPAN Testers testing.
     print STDERR "ok\tTry \`$^X -Mblib t/readline.t verbose\', if you will.\n"
-	if $ok;
+	if ($ok && !$ENV{AUTOMATED_TESTING});
     exit 0;
 }
 undef $a->{getc_function};




More information about the Pkg-perl-cvs-commits mailing list