diff options
| author | Ilya Martynov <ilya@martynov.org> | 2002-04-11 07:21:17 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-11 02:15:51 +0000 |
| commit | 7824b127fce1a68f623aad36e82a6b3162514a1d (patch) | |
| tree | 889e9550d6031c024ba94e9374effee5da9baa85 /lib | |
| parent | 448e90bb58adc58c025beca8f02643764167d1a2 (diff) | |
| download | perl-7824b127fce1a68f623aad36e82a6b3162514a1d.tar.gz | |
[ PATCH ] Minor Term::ReadLine POD fix
Message-ID: <87u1qj9m36.fsf_-_@abra.ru>
p4raw-id: //depot/perl@15853
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/ReadLine.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index a23208c420..8c58694fd8 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -6,11 +6,11 @@ no real package is found, substitutes stubs instead of basic functions. =head1 SYNOPSIS use Term::ReadLine; - $term = new Term::ReadLine 'Simple Perl calc'; - $prompt = "Enter your arithmetic expression: "; - $OUT = $term->OUT || STDOUT; + my $term = new Term::ReadLine 'Simple Perl calc'; + my $prompt = "Enter your arithmetic expression: "; + my $OUT = $term->OUT || \*STDOUT; while ( defined ($_ = $term->readline($prompt)) ) { - $res = eval($_), "\n"; + my $res = eval($_), "\n"; warn $@ if $@; print $OUT $res, "\n" unless $@; $term->addhistory($_) if /\S/; |