diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-11 07:15:32 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-11 07:15:32 +0000 |
| commit | 2e917f57b88e1e5c693a9d2b884773745f7b9bf4 (patch) | |
| tree | 22a2a56d8cb8a897b4ba09d3f8a8550dbdb272ee /lib/Pod | |
| parent | a79c16488c3741e2289afb3e862fe186c815046d (diff) | |
| download | perl-2e917f57b88e1e5c693a9d2b884773745f7b9bf4.tar.gz | |
Minor bugfixes
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Text.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm index 671a64bf7e..ac4f72b688 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); |