git/list[1] front-page[2] threads[3] people[4] search[5] about
 

Re: [PATCH] send-email: do not barf when Term::ReadLine does not like your terminal

From
RARyan Anderson <ryan@michonline.com>
Date
Jul 4, 2006, 01:44 UTC
Message-ID
<44A9C80C.90407@michonline.com>
In-Reply-To
<7vpsgn1ue8.fsf@assigned-by-dhcp.cox.net>
Junio C Hamano wrote:
Show 14 quoted lines
> As long as we do not need to readline from the terminal, we
> should not barf when starting up the program.  Without this
> patch, t9001 test on Cygwin occasionally died with the following
> error message:
>
> Unable to get Terminal Size. The TIOCGWINSZ ioctl didn't work. The COLUMNS and LINES environment variables didn't work. The resize program didn't work. at /usr/lib/perl5/vendor_perl/5.8/cygwin/Term/ReadKey.pm line 362.
> Compilation failed in require at /usr/lib/perl5/vendor_perl/5.8/Term/ReadLine/Perl.pm line 58.
>
> Signed-off-by: Junio C Hamano <junkio@cox.net>
> ---
>
>  * I do not use send-email myself that often so extra sets of
>    eyeballs are appreciated.
>   
Looks fine to me.
Acked-by: Ryan Anderson <ryan@michonline.com>

(I personally would have put the package declaration at the end of the file, but it's not significant enough for me to send a patch, heh.)

Show 63 quoted lines
>  git-send-email.perl   |   18 +++++++++++++++++-
>  t/t9001-send-email.sh |   11 +++++++----
>  2 files changed, 24 insertions(+), 5 deletions(-)
>
> diff --git a/git-send-email.perl b/git-send-email.perl
> index c5d9e73..b04b8f4 100755
> --- a/git-send-email.perl
> +++ b/git-send-email.perl
> @@ -22,6 +22,17 @@ use Term::ReadLine;
>  use Getopt::Long;
>  use Data::Dumper;
>  
> +package FakeTerm;
> +sub new {
> +	my ($class, $reason) = @_;
> +	return bless \$reason, shift;
> +}
> +sub readline {
> +	my $self = shift;
> +	die "Cannot use readline on FakeTerm: $$self";
> +}
> +package main;
> +
>  # most mail servers generate the Date: header, but not all...
>  $ENV{LC_ALL} = 'C';
>  use POSIX qw/strftime/;
> @@ -46,7 +57,12 @@ my $smtp_server;
>  # Example reply to:
>  #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';
>  
> -my $term = new Term::ReadLine 'git-send-email';
> +my $term = eval {
> +	new Term::ReadLine 'git-send-email';
> +};
> +if ($@) {
> +	$term = new FakeTerm "$@: going non-interactive";
> +}
>  
>  # Begin by accumulating all the variables (defined above), that we will end up
>  # needing, first, from the command line:
> diff --git a/t/t9001-send-email.sh b/t/t9001-send-email.sh
> index a61da1e..e9ea33c 100755
> --- a/t/t9001-send-email.sh
> +++ b/t/t9001-send-email.sh
> @@ -25,10 +25,13 @@ test_expect_success \
>       git add fake.sendmail
>       GIT_AUTHOR_NAME="A" git commit -a -m "Second."'
>  
> -test_expect_success \
> -    'Extract patches and send' \
> -    'git format-patch -n HEAD^1
> -     git send-email -from="Example <nobody@example.com>" --to=nobody@example.com --smtp-server="$(pwd)/fake.sendmail" ./0001*txt'
> +test_expect_success 'Extract patches' '
> +    patches=`git format-patch -n HEAD^1`
> +'
> +
> +test_expect_success 'Send patches' '
> +     git send-email -from="Example <nobody@example.com>" --to=nobody@example.com --smtp-server="$(pwd)/fake.sendmail" $patches 2>errors
> +'
>  
>  cat >expected <<\EOF
>  !nobody@example.com!
>   
-- 
Ryan Anderson
  sometimes Pug Majere
Previous: Junio C Hamano
Message 2 of 2 in “send-email: do not barf when Term::ReadLine does not like your terminal”
  1. send-email: do not barf when Term::ReadLine does not like your terminalJunio C Hamano, Jul 2, 2006
  2. Ryan AndersonJul 4, 2006

Read the whole thread, see it on lore, or plain text.

$ cat FOOTERMessages come from the public archive at lore.kernel.org/git, fetched every hour. The front page is chosen and written each morning by an AI editor and can be wrong; the threads themselves are the record. About and API. For agents: an MCP server at https://gitlist.dev/mcp, and any thread, story or person page as Markdown by adding .md to its URL (or sending Accept: text/markdown). Details in /llms.txt.