diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
| commit | f0963acb6df75767aaf57c94e1e7509003ff1543 (patch) | |
| tree | caab5a83cad07f6fe3efa85385f4bc996ab12923 /lib/Pod | |
| parent | c15a5d5de69fd60182fabfe5d4c4aba46fd1ca8a (diff) | |
| download | perl-f0963acb6df75767aaf57c94e1e7509003ff1543.tar.gz | |
consolidated VMS patches (from Craig A. Berry
<craig.berry@metamorgs.com>); Glob.pm patch modified to use
$DEFAULT_FLAGS, and iff no flags were supplied
p4raw-id: //depot/perl@5397
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Checker.pm | 3 | ||||
| -rw-r--r-- | lib/Pod/Parser.pm | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm index 281bd11be7..6611a05d6e 100644 --- a/lib/Pod/Checker.pm +++ b/lib/Pod/Checker.pm @@ -307,6 +307,7 @@ use strict; use Carp; use Exporter; use Pod::Parser; +require VMS::Filespec if $^O eq 'VMS'; use vars qw(@ISA @EXPORT); @ISA = qw(Pod::Parser); @@ -546,6 +547,7 @@ The error level, should be 'WARNING' or 'ERROR'. sub poderror { my $self = shift; my %opts = (ref $_[0]) ? %{shift()} : (); + $opts{-file} = VMS::Filespec::unixify($opts{-file}) if (exists($opts{-file}) && $^O eq 'VMS'); ## Retrieve options chomp( my $msg = ($opts{-msg} || "")."@_" ); @@ -670,6 +672,7 @@ sub end_pod { ## print the number of errors found my $self = shift; my $infile = $self->input_file(); + $infile = VMS::Filespec::unixify($infile) if $^O eq 'VMS'; my $out_fh = $self->output_handle(); if(@{$self->{_list_stack}}) { diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index a00f0ee83b..1abd690971 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -196,6 +196,7 @@ use strict; use Pod::InputObjects; use Carp; use Exporter; +require VMS::Filespec if $^O eq 'VMS'; @ISA = qw(Exporter); ## These "variables" are used as local "glob aliases" for performance @@ -832,6 +833,7 @@ sub parse_text { my $errorsub = (@seq_stack > 1) ? $self->errorsub() : undef; while (@seq_stack > 1) { ($cmd, $file, $line) = ($seq->name, $seq->file_line); + $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; $ldelim = $seq->ldelim; ($rdelim = $ldelim) =~ tr/</>/; $rdelim =~ s/^(\S+)(\s*)$/$2$1/; @@ -1065,6 +1067,7 @@ sub parse_from_filehandle { if (length($1) > 1 and ! $self->{_CUTTING}) { my $errorsub = $self->errorsub(); my $file = $self->input_file(); + $file = VMS::Filespec::unixify($file) if $^O eq 'VMS'; my $errmsg = "*** WARNING: line containing nothing but whitespace". " in paragraph at line $nlines in file $file\n"; (ref $errorsub) and &{$errorsub}($errmsg) |