From: Greg Chapman <glc@well.com>
Date: Tue, 1 Dec 1998 10:50:18 +0000 (-0800)
Subject: typos in Pod/Text.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73875a17e8ed37bb29555999ffdb922943498916;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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*$//;