From: Roderick Schertler <roderick@gate.net>
Date: Thu, 19 Dec 1996 16:05:57 +0000 (-0500)
Subject: small doc tweaks for _12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3314ffc68a11690bd9977cbdd7ea0601ad6ced13;p=p5sagit%2Fp5-mst-13.2.git

small doc tweaks for _12

p5p-msgid: <1826.851011557@eeyore.ibcinc.com>
---

diff --git a/lib/UNIVERSAL.pm b/lib/UNIVERSAL.pm
index c006547..c0e7ebd 100644
--- a/lib/UNIVERSAL.pm
+++ b/lib/UNIVERSAL.pm
@@ -38,7 +38,7 @@ C<isa> can be called as either a static or object method call.
 =item can ( METHOD )
 
 C<can> checks if the object has a method called C<METHOD>. If it does
-then a reference to the sub is returned. If it does not the I<undef>
+then a reference to the sub is returned. If it does not then I<undef>
 is returned.
 
 C<can> can be called as either a static or object method call.
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index d08c53a..49d30fc 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -842,7 +842,7 @@ case it indicates something else.
 (W) You probably said %hash{$key} when you meant $hash{$key} or @hash{@keys}.
 On the other hand, maybe you just meant %hash and got carried away.
 
-=item Died.
+=item Died
 
 (F) You passed die() an empty string (the equivalent of C<die "">) or
 you called it with no args and both C<$@> and C<$_> were empty.
@@ -2363,7 +2363,7 @@ on the front of your variable.
 of Perl.  Check the E<lt>#!E<gt> line, or manually feed your script
 into Perl yourself.
 
-=item Warning: something's wrong.
+=item Warning: something's wrong
 
 (W) You passed warn() an empty string (the equivalent of C<warn "">) or
 you called it with no args and C<$_> was empty.
diff --git a/pod/perltie.pod b/pod/perltie.pod
index 7624881..6bfdf59 100644
--- a/pod/perltie.pod
+++ b/pod/perltie.pod
@@ -630,7 +630,7 @@ This is the constructor for the class.  That means it is expected to
 return a blessed reference of some sort. The reference can be used to
 hold some internal information.
 
-    sub TIEHANDLE { print "<shout>\n"; my $r; bless \$r, shift }
+    sub TIEHANDLE { print "<shout>\n"; my $i; bless \$i, shift }
 
 =item PRINT this, LIST