diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-11-09 23:31:31 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-10 21:57:04 +0000 |
| commit | d49f26d47a884d90aae378b8a343605c5f035cd8 (patch) | |
| tree | d2d6e1424830001b95f8cc94d172fdd6593ebb80 /lib/Term | |
| parent | a07046312b1e745e6afd58111064e3a7a00b11b0 (diff) | |
| download | perl-d49f26d47a884d90aae378b8a343605c5f035cd8.tar.gz | |
warning fix in SYNOPSIS example of Term::ReadLine pod
Message-Id: <200211092131.gA9LVVAV007663@vran.herceg.de>
p4raw-id: //depot/perl@18137
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/ReadLine.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 477aa43eef..238e9fd042 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -10,7 +10,7 @@ If no real package is found, substitutes stubs instead of basic functions. my $prompt = "Enter your arithmetic expression: "; my $OUT = $term->OUT || \*STDOUT; while ( defined ($_ = $term->readline($prompt)) ) { - my $res = eval($_), "\n"; + my $res = eval($_); warn $@ if $@; print $OUT $res, "\n" unless $@; $term->addhistory($_) if /\S/; @@ -33,7 +33,7 @@ or as $term->addhistory('row'); -where $term is a return value of Term::ReadLine-E<gt>Init. +where $term is a return value of Term::ReadLine-E<gt>new(). =over 12 @@ -60,7 +60,7 @@ support. Trailing newline is removed. Returns C<undef> on C<EOF>. adds the line to the history of input, from where it can be used if the actual C<readline> is present. -=item C<IN>, $C<OUT> +=item C<IN>, C<OUT> return the filehandles for input and output or C<undef> if C<readline> input and output cannot be used for Perl. |