r31192 - in /branches/upstream/libterm-readline-gnu-perl/current: Gnu.pm Gnu.xs MANIFEST META.yml Makefile.PL README t/00checkver.t t/callback.t t/history.t t/readline.t typemap
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sat Feb 28 02:30:37 UTC 2009
Author: ryan52-guest
Date: Sat Feb 28 02:30:33 2009
New Revision: 31192
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31192
Log:
[svn-upgrade] Integrating new upstream version, libterm-readline-gnu-perl (1.18)
Added:
branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t
Modified:
branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm
branches/upstream/libterm-readline-gnu-perl/current/Gnu.xs
branches/upstream/libterm-readline-gnu-perl/current/MANIFEST
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/callback.t
branches/upstream/libterm-readline-gnu-perl/current/t/history.t
branches/upstream/libterm-readline-gnu-perl/current/t/readline.t
branches/upstream/libterm-readline-gnu-perl/current/typemap
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=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/Gnu.pm Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
#
# Gnu.pm --- The GNU Readline/History Library wrapper module
#
-# $Id: Gnu.pm,v 1.97 2008-02-07 23:12:23+09 hiroo Exp $
+# $Id: Gnu.pm,v 1.98 2009/02/27 12:46:45 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.
@@ -73,7 +73,7 @@
use DynaLoader;
use vars qw($VERSION @ISA @EXPORT_OK);
- $VERSION = '1.17';
+ $VERSION = '1.18';
# Term::ReadLine::Gnu::AU makes a function in
# `Term::ReadLine::Gnu::XS' as a method.
@@ -95,6 +95,9 @@
RL_STATE_MACROINPUT RL_STATE_MACRODEF
RL_STATE_OVERWRITE RL_STATE_COMPLETING
RL_STATE_SIGHANDLER RL_STATE_UNDOING
+ RL_STATE_INPUTPENDING RL_STATE_TTYCSAVED
+ RL_STATE_CALLBACK RL_STATE_VIMOTION
+ RL_STATE_MULTIKEY RL_STATE_VICMDONCE
RL_STATE_DONE);
bootstrap Term::ReadLine::Gnu $VERSION; # DynaLoader
@@ -130,6 +133,9 @@
sub Attribs { \%Attribs; }
sub Features { \%Features; }
+
+# keep rl_readline_version value for efficiency
+my $readline_version;
#
# GNU Readline/History Library constant definition
@@ -179,7 +185,15 @@
sub RL_STATE_COMPLETING { 0x04000; } # doing completion
sub RL_STATE_SIGHANDLER { 0x08000; } # in readline sighandler
sub RL_STATE_UNDOING { 0x10000; } # doing an undo
-sub RL_STATE_DONE { 0x80000; } # done; accepted line
+# The following RL_STATE_* are defined since TRL 6.0
+sub RL_STATE_INPUTPENDING { 0x020000; } # rl_execute_next called
+sub RL_STATE_TTYCSAVED { 0x040000; } # tty special chars saved
+sub RL_STATE_CALLBACK { 0x080000; } # using the callback interface
+sub RL_STATE_VIMOTION { 0x100000; } # reading vi motion arg
+sub RL_STATE_MULTIKEY { 0x200000; } # reading multiple-key command
+sub RL_STATE_VICMDONCE { 0x400000; } # entered vi command mode at least once
+# The value was changed since TRL 6.0
+sub RL_STATE_DONE { $readline_version < 0x0600 ? 0x80000 : 0x800000; } # done; accepted line
#
# Methods Definition
@@ -249,6 +263,7 @@
$Attribs{instream} = shift;
$Attribs{outstream} = shift;
}
+ $readline_version = $Attribs{readline_version};
$self;
}
@@ -499,6 +514,7 @@
history_search_delimiter_chars => ['S', 12],
rl_executing_macro => ['S', 13], # GRL4.2
history_word_delimiters => ['S', 14], # GRL4.2
+ rl_display_prompt => ['S', 15], # GRL6.0
rl_point => ['I', 0],
rl_end => ['I', 1],
@@ -540,6 +556,8 @@
rl_completion_found_quote => ['I', 36], # GRL 5.0
rl_completion_mark_symlink_dirs => ['I', 37], # GRL 4.3
rl_prefer_env_winsize => ['I', 38], # GRL 5.1
+ rl_sort_completion_matches => ['I', 39], # GRL 6.0
+ rl_completion_invoking_key => ['C', 40], # GRL 6.0
rl_startup_hook => ['F', 0],
rl_event_hook => ['F', 1],
@@ -1055,7 +1073,17 @@
=over 4
-=item C<replace_line(TEXT [,CLEAR_UNDO]>
+=item C<save_state(READLINE_STATE)>
+
+ NOT IMPLEMENTED YET!
+ int rl_save_state(struct readline_state *sp) # GRL 6.0
+
+=item C<restore_state(READLINE_STATE)>
+
+ NOT IMPLEMENTED YET!
+ int rl_restore_state(struct readline_state *sp) # GRL 6.0
+
+=item C<replace_line(TEXT [,CLEAR_UNDO])>
int rl_replace_line(str text, int clear_undo) # GRL 4.3
@@ -1152,6 +1180,10 @@
=item C<reset_after_signal>
void rl_reset_after_signal() # GRL 4.0
+
+=item C<echo_signal_char>
+
+ void rl_echo_signal_char(int sig) # GRL 6.0
=item C<resize_terminal>
@@ -1439,6 +1471,7 @@
int rl_dispatching (GRL 4.2)
int rl_erase_empty_line (GRL 4.0)
str rl_prompt (read only)
+ str rl_display_prompt (GRL 6.0)
int rl_already_prompted (GRL 4.1)
str rl_library_version (read only)
int rl_readline_version (read only)
@@ -1494,7 +1527,9 @@
int rl_filename_completion_desired
int rl_filename_quoting_desired
int rl_attempted_completion_over (GRL 4.2)
+ int rl_sort_completion_matches (GRL 6.0)
int rl_completion_type (GRL 4.2)
+ int rl_completion_invoking_key (GRL 6.0)
int rl_inhibit_completion
pfunc rl_ignore_some_completion_function
pfunc rl_directory_completion_hook
Modified: branches/upstream/libterm-readline-gnu-perl/current/Gnu.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/Gnu.xs?rev=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/Gnu.xs (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/Gnu.xs Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
/*
* Gnu.xs --- GNU Readline wrapper module
*
- * $Id: Gnu.xs,v 1.111 2008-02-06 23:48:59+09 hiroo Exp $
+ * $Id: Gnu.xs,v 1.112 2009/02/27 12:44:41 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.
@@ -219,6 +219,19 @@
static void rl_reset_screen_size(){}
#endif /* (RL_READLINE_VERSION < 0x0501) */
+
+#if (RL_VERSION_MAJOR < 6)
+/* features introduced by GNU Readline 6.0 */
+static char *rl_display_prompt = NULL;
+static int rl_sort_completion_matches = 0;
+static int rl_completion_invoking_key = 0;
+/*
+ NOT IMPLEMENTED YET !!!FIXIT!!!
+static int rl_save_state(struct readline_state *sp){ return 0; }
+static int rl_restore_state(struct readline_state *sp){ return 0; }
+ */
+static void rl_echo_signal_char(int sig){}
+#endif /* (RL_VERSION_MAJOR < 6) */
/*
* utility/dummy functions
@@ -354,7 +367,8 @@
{ &history_search_delimiter_chars, 0, 0 }, /* 12 */
{ &rl_executing_macro, 0, 0 }, /* 13 */
- { &history_word_delimiters, 0, 0 } /* 14 */
+ { &history_word_delimiters, 0, 0 }, /* 14 */
+ { &rl_display_prompt, 0, 0 } /* 15 */
};
/*
@@ -410,7 +424,9 @@
{ &rl_completion_suppress_quote, 0, 0 }, /* 35 */
{ &rl_completion_found_quote, 0, 0 }, /* 36 */
{ &rl_completion_mark_symlink_dirs, 0, 0 }, /* 37 */
- { &rl_prefer_env_winsize, 0, 0 } /* 38 */
+ { &rl_prefer_env_winsize, 0, 0 }, /* 38 */
+ { &rl_sort_completion_matches, 0, 0 }, /* 39 */
+ { &rl_completion_invoking_key, 1, 0 } /* 40 */
};
/*
@@ -2103,6 +2119,11 @@
PROTOTYPE:
void
+rl_echo_signal_char(sig)
+ int sig
+ PROTOTYPE: $
+
+void
rl_resize_terminal()
PROTOTYPE:
Modified: branches/upstream/libterm-readline-gnu-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/MANIFEST?rev=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/MANIFEST (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/MANIFEST Sat Feb 28 02:30:33 2009
@@ -15,9 +15,11 @@
t/comptest/023456 A file for t/readline.t
t/comptest/README A file for t/readline.t
t/comptest/a_b A file for t/readline.t
+t/00checkver.t a version check script
t/button.pl a test script for t/callback.t
t/callback.t a test script for the GNU Readline callback function
t/history.t a test script for the GNU History Library function
t/inputrc A file for t/readline.t
t/readline.t a test script for the GNU Readline extension
typemap The GNU Readline extension interface types
+META.yml Module meta-data (added by MakeMaker)
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=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/META.yml (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/META.yml Sat Feb 28 02:30:33 2009
@@ -1,12 +1,10 @@
---- #YAML:1.0
-name: Term-ReadLine-Gnu
-version: 1.17
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+# 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_from: Gnu.pm
+installdirs: site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
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=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/Makefile.PL Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
#
# Makefile.PL for Term::ReadLine::Gnu
#
-# $Id: Makefile.PL,v 1.29 2008-02-06 23:50:09+09 hiroo Exp $
-#
-# Copyright (c) 2008 Hiroo Hayashi. All rights reserved.
+# $Id: Makefile.PL,v 1.31 2009/02/27 13:30:47 hiroo Exp $
+#
+# Copyright (c) 2009 Hiroo Hayashi. All rights reserved.
# <hiroo.hayashi at computer.org>
#
# This program is free software; you can redistribute it and/or
@@ -23,6 +23,10 @@
use Getopt::Long;
my ($defs, $libs, $lddflags, $RLLIB, $RLINC);
+
+# exit 0 before creating the Makefile to be CPAN Tests friendly
+# see http://cpantest.grango.org/wiki/CPANAuthorNotes
+my $err = $ENV{AUTOMATED_TESTING} ? 0 : 1;
$defs = ($Config{strings} =~ m|/string.h$|) ? '-DHAVE_STRING_H' : '';
@@ -54,12 +58,16 @@
my $TERMCAP_LIB = (! $PREFER_CURSES && &search_lib('-ltermcap'))
|| &search_lib('-lncurses')
|| &search_lib('-lcurses');
- die "Could not find neither libtermcap.a, libncurses.a, or libcurses.\n"
- unless $TERMCAP_LIB;
-
+
+ unless ($TERMCAP_LIB) {
+ warn "Could not find neither libtermcap.a, libncurses.a, or libcurses.\n";
+ exit $err;
+ }
+
$libs = "-lreadline $TERMCAP_LIB";
# Latest Perl in FreeBSD does not need this hack. (Dec.2002)
$libs .= ' -lcrypt' if ($Config{osname} =~ /freebsd/i);
+ $lddflags = '';
# If you are using old Cygwin, enable the following line.
#$lddflags = ($Config{osname} =~ /cygwin/i) ? '-static' : '';
}
@@ -83,6 +91,7 @@
NAME => 'Term::ReadLine::Gnu',
VERSION_FROM => 'Gnu.pm',
LIBS => [ "$RLLIB $libs" ],
+ LDDLFLAGS => "$RLLIB $Config{lddlflags}",
dynamic_lib => { OTHERLDFLAGS => $lddflags },
DEFINE => $defs,
($Config{osname} eq 'os2' ?
@@ -162,7 +171,7 @@
print $comp_cmd, "\n";
system($comp_cmd);
if ($?) {
- die <<EOM;
+ warn <<EOM;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Could not compile $frlver.
@@ -181,6 +190,7 @@
Read INSTALL for more details.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EOM
+ exit $err;
}
# execute it and get version
@@ -188,11 +198,12 @@
chomp($rlver = `./rlver`);
# MacOS X 10.4 has libedit by default.
if ($rlver =~ /EditLine/) {
- die <<EOM;
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-The libreadline you use is libedit library. Use the GNU Readline Library.
+ warn <<EOM;
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+The libreadline you are using is the libedit library. Use the GNU Readline Library.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EOM
+ exit $err;
}
print "It seems that you have the GNU Readline Library version $rlver.\n";
# $rlver may be '8.21-beta3' or '4.2a'
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=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/README (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/README Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
-*- Indented-text -*-
-$Id: README,v 1.27 2008-02-07 23:09:14+09 hiroo Exp $
+$Id: README,v 1.28 2009/02/27 13:31:39 hiroo Exp $
Term::ReadLine::Gnu --- GNU Readline Library Wrapper Module
- 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.
@@ -65,6 +65,22 @@
Revision History:
+
+1.18 2009-02-27
+ - better error checking of Makefile.PL for automatic testing
+ on non-supported platfrom (for example one without GNU
+ Readline Library).
+ - readline-6.0 support
+ new function
+ rl_save_state (not supported yet)
+ rl_restore_state (not supported yet)
+ rl_echo_signal_char
+ new variable
+ rl_display_prompt
+ rl_sort_completion_matches
+ rl_completion_invoking_key
+ t/history.t does not fail by hist_expand() which is fixed
+ on readline-6.0
1.17 2008-02-07
- Unnecessary PerlIO_releaseFILE() calls are removed. This
Added: 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=31192&op=file
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t (added)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/00checkver.t Sat Feb 28 02:30:33 2009
@@ -1,0 +1,40 @@
+# -*- perl -*-
+# 00check.t - check versions
+#
+# $Id: 00checkver.t,v 1.1 2008-03-20 22:50:26+09 hiroo Exp hiroo $
+#
+# Copyright (c) 2008 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.
+
+BEGIN {
+ print "1..3\n"; $n = 1;
+ $ENV{PERL_RL} = 'Gnu'; # force to use Term::ReadLine::Gnu
+}
+END {
+ unless ($loaded) {
+ print "not ok 1\tfail to loading\n";
+ warn "\nPlease report the output of \'perl Makefile.PL\'\n\n";
+ }
+}
+
+$^W = 1; # perl -w
+use strict;
+use vars qw($loaded $n);
+eval "use ExtUtils::testlib;" or eval "use lib './blib';";
+use Term::ReadLine;
+use Term::ReadLine::Gnu;
+
+$loaded = 1;
+print "ok $n\tloading\n"; $n++;
+
+my $t = new Term::ReadLine 'ReadLineTest';
+print "ok $n\tnew\n"; $n++;
+
+print "OS: $^O\nPerl version: $]\n";
+$t->rl_call_function('display-readline-version');
+print "ok $n\tdone\n"; $n++;
+
+exit 0;
+
Modified: branches/upstream/libterm-readline-gnu-perl/current/t/callback.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/t/callback.t?rev=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/callback.t (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/callback.t Sat Feb 28 02:30:33 2009
@@ -1,7 +1,7 @@
# -*- perl -*-
# callback.t - Test script for Term::ReadLine:GNU callback function
#
-# $Id: callback.t,v 1.6 2003-03-16 00:22:39-05 hiroo Exp hiroo $
+# $Id: callback.t,v 1.7 2008-03-20 22:56:02+09 hiroo Exp $
#
# Copyright (c) 2000 Hiroo Hayashi. All rights reserved.
#
@@ -37,16 +37,16 @@
my ($version) = $attribs->{library_version} =~ /(\d+\.\d+)/;
########################################################################
-# check Tk is installed
+# check Tk is installed and X Window is available
#disable the warning, "Too late to run INIT block at..."
$^W = 0;
-if (eval "use Tk; 1") {
+if (eval "use Tk; 1" && $ENV{DISPLAY} ne '') {
print "ok $n\tuse Tk\n"; $n++;
} else {
- print "ok $n\t# skipped since Tk is not installed.\n"; $n++;
- print "ok $n\t# skipped since Tk is not installed.\n"; $n++;
- print "ok $n\t# skipped since Tk is not installed.\n"; $n++;
- print "ok $n\t# skipped since Tk is not installed.\n"; $n++;
+ print "ok $n\t# skipped since Tk is not available.\n"; $n++;
+ print "ok $n\t# skipped since Tk is not available.\n"; $n++;
+ print "ok $n\t# skipped since Tk is not available.\n"; $n++;
+ print "ok $n\t# skipped since Tk is not available.\n"; $n++;
exit 0;
}
$^W = 1;
Modified: branches/upstream/libterm-readline-gnu-perl/current/t/history.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/t/history.t?rev=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/history.t (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/history.t Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
# -*- perl -*-
# history.t --- Term::ReadLine:GNU History Library Test Script
#
-# $Id: history.t,v 1.9 2003-03-16 00:22:39-05 hiroo Exp hiroo $
+# $Id: history.t,v 1.11 2009/02/27 12:15:01 hiroo Exp $
#
-# Copyright (c) 2002 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.
@@ -14,6 +14,7 @@
BEGIN {
print "1..82\n"; $n = 1;
$ENV{PERL_RL} = 'Gnu'; # force to use Term::ReadLine::Gnu
+ $ENV{LANG} = 'C';
}
END {print "not ok $n\n" unless $loaded;}
@@ -432,6 +433,7 @@
@list_set = ('red yellow', 'blue red', 'yellow blue', 'green blue');
$t->SetHistory(@list_set);
$t->history_set_pos(2);
+# equivalent with 'history_no_expand_chars = "...!..."'
$attribs->{history_inhibit_expansion_function} = sub {
my ($string, $index) = @_;
substr($string, $index + 1, 1) eq '!'; # inhibit expanding '!!'
@@ -441,9 +443,14 @@
? "ok $n\n" : "not ok $n\n"; $n++;
print $t->history_expand(' !r') eq ' red yellow'
? "ok $n\n" : "not ok $n\n"; $n++;
-print $t->history_expand('!! !y') eq 'green blue yellow blue'
- ? "ok $n\n" : "not ok $n\n"; $n++;
-
+# strange behavior was fixed on version 6.0
+if ($version < 6.0) {
+ print $t->history_expand('!! !y') eq 'green blue yellow blue'
+ ? "ok $n\n" : "not ok $n\n"; $n++;
+} else {
+ print $t->history_expand('!! !y') eq '!! yellow blue'
+ ? "ok $n\n" : "not ok $n\n"; $n++;
+}
end_of_test:
exit 0;
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=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/t/readline.t (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/t/readline.t Sat Feb 28 02:30:33 2009
@@ -1,9 +1,9 @@
# -*- perl -*-
# readline.t - Test script for Term::ReadLine:GNU
#
-# $Id: readline.t,v 1.44 2003-03-16 00:22:39-05 hiroo Exp hiroo $
+# $Id: readline.t,v 1.45 2008-02-17 15:26:31+09 hiroo Exp $
#
-# Copyright (c) 2002 Hiroo Hayashi. All rights reserved.
+# Copyright (c) 2008 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.
@@ -14,6 +14,7 @@
BEGIN {
print "1..104\n"; $n = 1;
$ENV{PERL_RL} = 'Gnu'; # force to use Term::ReadLine::Gnu
+ $ENV{LANG} = 'C';
}
END {print "not ok 1\tfail to loading\n" unless $loaded;}
Modified: branches/upstream/libterm-readline-gnu-perl/current/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libterm-readline-gnu-perl/current/typemap?rev=31192&op=diff
==============================================================================
--- branches/upstream/libterm-readline-gnu-perl/current/typemap (original)
+++ branches/upstream/libterm-readline-gnu-perl/current/typemap Sat Feb 28 02:30:33 2009
@@ -1,6 +1,6 @@
# typemap for Term::ReadLine::Gnu
#
-# $Id: typemap,v 1.8 2004-10-17 11:44:57-05 hiroo Exp $
+# $Id: typemap,v 1.8 2004-10-18 01:44:57+09 hiroo Exp $
const char * T_PV
CONST char * T_PV
More information about the Pkg-perl-cvs-commits
mailing list