From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 23 Sep 1998 10:50:26 +0000 (+0000)
Subject: misc pod tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae6c4aacfc47e208b21e9afbaa0d848ac3097fbc;p=p5sagit%2Fp5-mst-13.2.git

misc pod tweaks

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

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index a3c6b6c..23bf0f3 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -776,7 +776,7 @@ See L<perlre/(?{ code })>.
 (W) You are blessing a reference to a zero length string.  This has
 the effect of blessing the reference into the package main.  This is
 usually not what you want.  Consider providing a default target
-package, e.g. bless($ref, $p or 'MyPackage');
+package, e.g. bless($ref, $p || 'MyPackage');
 
 =item Illegal hex digit ignored
 
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index f1810b3..7f63535 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1162,7 +1162,7 @@ a return, a goto, or a loop control statement.
 (W) You are blessing a reference to a zero length string.  This has
 the effect of blessing the reference into the package main.  This is
 usually not what you want.  Consider providing a default target
-package, e.g. bless($ref, $p or 'MyPackage');
+package, e.g. bless($ref, $p || 'MyPackage');
 
 =item Fatal VMS error at %s, line %d
 
diff --git a/pod/perlport.pod b/pod/perlport.pod
index 5e20176..e53818e 100644
--- a/pod/perlport.pod
+++ b/pod/perlport.pod
@@ -251,7 +251,7 @@ make it so the resulting files have a unique (case-insensitively)
 first 8 characters.
 
 Don't assume C<E<lt>> won't be the first character of a filename.  Always
-use C<E<gt>> explicitly to open a file for reading:
+use C<E<lt>> explicitly to open a file for reading:
 
     open(FILE, "<$existing_file") or die $!;