Change 18137 by rgs@rgs-home on 2002/11/10 21:57:04 Subject: [PATCH] warning fix in SYNOPSIS example of Term::ReadLine pod From: Slaven Rezic <[EMAIL PROTECTED]> Date: Sat, 9 Nov 2002 22:31:31 +0100 (CET) Message-Id: <[EMAIL PROTECTED]>
Affected files ... .... //depot/perl/lib/Term/ReadLine.pm#20 edit Differences ... ==== //depot/perl/lib/Term/ReadLine.pm#20 (text) ==== Index: perl/lib/Term/ReadLine.pm --- perl/lib/Term/ReadLine.pm#19~17906~ Sun Sep 15 04:30:38 2002 +++ perl/lib/Term/ReadLine.pm Sun Nov 10 13:57:04 2002 @@ -10,7 +10,7 @@ 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 @@ $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 @@ 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. End of Patch.