summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Pod/Checker.pm4
-rw-r--r--lib/Pod/Find.pm2
-rw-r--r--lib/Pod/InputObjects.pm8
-rw-r--r--lib/Pod/ParseUtils.pm2
-rw-r--r--lib/Pod/Parser.pm17
-rw-r--r--lib/Pod/Select.pm6
-rw-r--r--lib/Pod/Usage.pm4
7 files changed, 25 insertions, 18 deletions
diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index 0fd36a9346..ae32677db1 100644
--- a/lib/Pod/Checker.pm
+++ b/lib/Pod/Checker.pm
@@ -1,7 +1,7 @@
#############################################################################
# Pod/Checker.pm -- check pod documents for syntax errors
#
-# Copyright (C) 1994-1999 by Bradford Appleton. All rights reserved.
+# Copyright (C) 1994-2000 by Bradford Appleton. All rights reserved.
# This file is part of "PodParser". PodParser is free software;
# you can redistribute it and/or modify it under the same terms
# as Perl itself.
@@ -11,7 +11,7 @@ package Pod::Checker;
use vars qw($VERSION);
$VERSION = 1.098; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+require 5.005; ## requires this Perl version or later
use Pod::ParseUtils; ## for hyperlinks and lists
diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm
index e29c908e16..10da904665 100644
--- a/lib/Pod/Find.pm
+++ b/lib/Pod/Find.pm
@@ -14,7 +14,7 @@ package Pod::Find;
use vars qw($VERSION);
$VERSION = 0.11; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+require 5.005; ## requires this Perl version or later
#############################################################################
diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm
index 646c00862a..849182bf37 100644
--- a/lib/Pod/InputObjects.pm
+++ b/lib/Pod/InputObjects.pm
@@ -11,8 +11,8 @@
package Pod::InputObjects;
use vars qw($VERSION);
-$VERSION = 1.11; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+$VERSION = 1.12; ## Current version of this package
+require 5.005; ## requires this Perl version or later
#############################################################################
@@ -522,7 +522,7 @@ sub _set_child2parent_links {
my ($self, @children) = @_;
## Make sure any sequences know who their parent is
for (@children) {
- next if (!ref || ref eq 'SCALAR');
+ next unless (length and ref and ref ne 'SCALAR');
if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or
UNIVERSAL::can($_, 'nested'))
{
@@ -922,7 +922,7 @@ sub DESTROY {
=head1 SEE ALSO
-See L<Pod::Parser>, L<Pod::Select>, and L<Pod::Callbacks>.
+See L<Pod::Parser>, L<Pod::Select>
=head1 AUTHOR
diff --git a/lib/Pod/ParseUtils.pm b/lib/Pod/ParseUtils.pm
index 00f516e99c..2cb8cdcd3b 100644
--- a/lib/Pod/ParseUtils.pm
+++ b/lib/Pod/ParseUtils.pm
@@ -11,7 +11,7 @@ package Pod::ParseUtils;
use vars qw($VERSION);
$VERSION = 0.2; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+require 5.005; ## requires this Perl version or later
=head1 NAME
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index 88d9aa7a8f..48fc198ded 100644
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -10,8 +10,8 @@
package Pod::Parser;
use vars qw($VERSION);
-$VERSION = 1.11; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+$VERSION = 1.12; ## Current version of this package
+require 5.005; ## requires this Perl version or later
#############################################################################
@@ -71,7 +71,7 @@ Pod::Parser - base class for creating POD filters and translators
=head1 REQUIRES
-perl5.004, Pod::InputObjects, Exporter, Carp
+perl5.005, Pod::InputObjects, Exporter, Symbol, Carp
=head1 EXPORTS
@@ -206,6 +206,12 @@ use Pod::InputObjects;
use Carp;
use Exporter;
require VMS::Filespec if $^O eq 'VMS';
+BEGIN {
+ if ($] < 5.6) {
+ require Symbol;
+ import Symbol;
+ }
+}
@ISA = qw(Exporter);
## These "variables" are used as local "glob aliases" for performance
@@ -1146,7 +1152,7 @@ sub parse_from_file {
my $self = shift;
my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
my ($infile, $outfile) = @_;
- my ($in_fh, $out_fh);
+ my ($in_fh, $out_fh) = (gensym, gensym) if ($] < 5.6);
my ($close_input, $close_output) = (0, 0);
local *myData = $self;
local $_;
@@ -1197,12 +1203,13 @@ sub parse_from_file {
elsif (ref $outfile) {
## Must be a filehandle-ref (or else assume its a ref to an
## object that supports the common IO write operations).
- $myData{_OUTFILE} = ${$outfile};;
+ $myData{_OUTFILE} = ${$outfile};
$out_fh = $outfile;
}
else {
## We have a filename, open it for writing
$myData{_OUTFILE} = $outfile;
+ (-d $outfile) and croak "$outfile is a directory, not POD input!\n";
open($out_fh, "> $outfile") or
croak "Can't open $outfile for writing: $!\n";
$close_output = 1;
diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm
index 53e27e513a..5dd1595107 100644
--- a/lib/Pod/Select.pm
+++ b/lib/Pod/Select.pm
@@ -10,8 +10,8 @@
package Pod::Select;
use vars qw($VERSION);
-$VERSION = 1.11; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+$VERSION = 1.12; ## Current version of this package
+require 5.005; ## requires this Perl version or later
#############################################################################
@@ -62,7 +62,7 @@ or
=head1 REQUIRES
-perl5.004, Pod::Parser, Exporter, Carp
+perl5.005, Pod::Parser, Exporter, Carp
=head1 EXPORTS
diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index b8abe7d41b..aa8f712dcf 100644
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -10,8 +10,8 @@
package Pod::Usage;
use vars qw($VERSION);
-$VERSION = 1.11; ## Current version of this package
-require 5.004; ## requires this Perl version or later
+$VERSION = 1.12; ## Current version of this package
+require 5.005; ## requires this Perl version or later
=head1 NAME
View Lorry Controller Status