misc pod tweaks

p4raw-id: //depot/perl@1854

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index a3c6b6c..23bf0f3 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 $!;