Add symlink support to Cwd::_vms_abs_path.

[p5sagit/p5-mst-13.2.git] / lib / Pod / PlainText.pm

diff --git a/lib/Pod/PlainText.pm b/lib/Pod/PlainText.pm
index 3f5ce90..ec56608 100644 (file)
--- a/lib/Pod/PlainText.pm
+++ b/lib/Pod/PlainText.pm
@@ -303,6 +303,23 @@ sub cmd_head2 {
     }
 }
 
+# third level heading - not strictly perlpodspec compliant
+sub cmd_head3 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n= $_ =\n");
+    } else {
+        $self->output (' ' x ($$self{indent}) . $_ . "\n");
+    }
+}
+
+# fourth level heading - not strictly perlpodspec compliant
+# just like head3
+*cmd_head4 = \&cmd_head3;
+
 # Start a list.
 sub cmd_over {
     my $self = shift;