From: Ilya Martynov <ilya@martynov.org>
Date: Thu, 11 Apr 2002 03:21:17 +0000 (+0400)
Subject: [ PATCH ] Minor Term::ReadLine POD fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7824b127fce1a68f623aad36e82a6b3162514a1d;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH ] Minor Term::ReadLine POD fix
Message-ID: <87u1qj9m36.fsf_-_@abra.ru>

p4raw-id: //depot/perl@15853
---

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index a23208c..8c58694 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/;