Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: EU::MM (again)

by Porculus (Hermit)
on Apr 15, 2009 at 08:19 UTC ( [id://757586]=note: print w/replies, xml ) Need Help??


in reply to EU::MM (again)

Use the source, BrowserUke!

Ten minutes' post-breakfast browsing reveals that the problems you're having appear to be with App::Info, not EU::MM. And AFAICT neither it, nor EU::MM, nor DBD::Pg's Makefile.PL uses Term::ReadLine at all; the prompting seems to be handled by App::Info::Handler::Prompt, which just does a straightforward <STDIN>.

Replies are listed 'Best First'.
Re^2: EU::MM (again)
by BrowserUk (Patriarch) on Apr 15, 2009 at 09:59 UTC
    Use the source ... App::Info::Handler::Prompt, which just does a straightforward <STDIN>.

    Hm. Can that be so? Given that if a simple <STDIN> is used, I get the full power of cmd.exe's command line editing--history etc.--but none of that seems to be available for that (or any other) makefile prompt?


    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      http://cpansearch.perl.org/src/MSCHWERN/ExtUtils-MakeMaker-6.50/lib/ExtUtils/MakeMaker.pm
      sub prompt ($;$) { ## no critic my($mess, $def) = @_; Carp::confess("prompt function called without an argument") unless defined $mess; my $isa_tty = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) + ; my $dispdef = defined $def ? "[$def] " : " "; $def = defined $def ? $def : ""; local $|=1; local $\; print "$mess $dispdef"; my $ans; if ($ENV{PERL_MM_USE_DEFAULT} || (!$isa_tty && eof STDIN)) { print "$def\n"; } else { $ans = <STDIN>; if( defined $ans ) { chomp $ans; } else { # user hit ctrl-D print "\n"; } } return (!defined $ans || $ans eq '') ? $def : $ans; }
      Simple test, each exe appears to get its own history
      perl -e"warn scalar readline(STDIN)" perl5.8.7 -e"warn scalar readline(STDIN)"
      Why do you expect to get the cmd.exe's features if it isn't cmd.exe that processes your input, but App::Info::Handler::Prompt?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://757586]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2024-04-24 19:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found