Unverified Commit 33ca805d authored by Gavin Brown's avatar Gavin Brown
Browse files

just use STDOUT

parent 490a6bf7
...@@ -148,7 +148,9 @@ if ($opt->{'help'}) { ...@@ -148,7 +148,9 @@ if ($opt->{'help'}) {
my $term = Term::ReadLine->new('pepper'); my $term = Term::ReadLine->new('pepper');
my $prompt = 'pepper> '; my $prompt = 'pepper> ';
my $out = $term->OUT || \*STDOUT; #my $out = $term->OUT || \*STDOUT;
my $out = IO::Handle->new;
$out->fdopen(fileno(STDOUT), 'w');
my $histfile = $ENV{'HOME'}.'/.pepper_history'; my $histfile = $ENV{'HOME'}.'/.pepper_history';
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment