misc pod tweaks

p4raw-id: //depot/perl@1854

3 files changed, 3 insertions, 3 deletions

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index a3c6b6cc05..23bf0f3d91 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 f1810b358f..7f635354dd 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 5e201764d6..e53818ecbb 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 $!;