From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 11 Mar 1996 07:15:32 +0000 (+0000)
Subject: Minor bugfixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e917f57b88e1e5c693a9d2b884773745f7b9bf4;p=p5sagit%2Fp5-mst-13.2.git

Minor bugfixes
---

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index 671a64b..ac4f72b 100644
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -87,7 +87,7 @@ $DEF_INDENT = 4;
 $indent = $DEF_INDENT;
 $needspace = 0;
 
-open(IN, shift) || die "Couldn't open file!\n";
+open(IN, $file) || die "Couldn't open $file: $!";
 
 POD_DIRECTIVE: while (<IN>) {
     if ($cutting) {
@@ -213,7 +213,7 @@ sub prepare_for_output {
 	    {
 		if (length() + 3 < $indent) {
 		    my $paratag = $_;
-		    $_ = <>;
+		    $_ = <IN>;
 		    if (/^=/) {  # tricked!
 			local($indent) = $indent[$#index - 1] || $DEF_INDENT;
 			output($paratag);