typos in Pod/Text.pm

	Message-Id: <199812011849.KAA08816@smtp.well.com>
	Subject: Glitch in Pod::Text

p4raw-id: //depot/perl@2747

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index f45c0ea..549bab5 100644 (file)
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -275,14 +275,14 @@ sub prepare_for_output {
                    my $paratag = $_;
                    $_ = <IN>;
                    if (/^=/) {  # tricked!
-                       local($indent) = $indent[$#index - 1] || $DEF_INDENT;
+                       local($indent) = $indent[$#indent - 1] || $DEF_INDENT;
                        output($paratag);
                        redo POD_DIRECTIVE;
                    }
                    &prepare_for_output;
                    IP_output($paratag, $_);
                } else {
-                   local($indent) = $indent[$#index - 1] || $DEF_INDENT;
+                   local($indent) = $indent[$#indent - 1] || $DEF_INDENT;
                    output($_, 0);
                }
            }
@@ -370,7 +370,7 @@ sub fill {
 
 sub IP_output {
     local($tag, $_) = @_;
-    local($tag_indent) = $indent[$#index - 1] || $DEF_INDENT;
+    local($tag_indent) = $indent[$#indent - 1] || $DEF_INDENT;
     $tag_cols = $SCREEN - $tag_indent;
     $cols = $SCREEN - $indent;
     $tag =~ s/\s*$//;