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.
