On Mon, 13 Mar 2000 12:07:36 CST, Brad Appleton wrote:
>On Mon, Mar 13, 2000 at 12:01:58PM -0600, Brad Appleton wrote:
>> Hopefully - this release should make most appearances of
>> VMS::Filespec::unixify in the modules themselves be unnecessary.
>> I tried to move all that code into the tests instead.
Are you sure that's a good idea? I was under the impression these were
necessary for the proper functioning of PodParser on VMS. It seems
better to keep the portability stuff in PodParser rather than users
having to deal with it...
>I should of course note that the above changes are *UNTESTED* ON VMS!
>(I don't have access to that system.) So when some kind soul gets
>a chance to try it out on VMS, please let me know if it worked.
The following differences exist after I merged Perl with v1.12. I'll
let the VMS people tell you whether these are needed or not.
Sarathy
[EMAIL PROTECTED]
-----------------------------------8<-----------------------------------
diff -ur PodParser-1.12/lib/Pod/Checker.pm ../../perl/lib/Pod/Checker.pm
--- PodParser-1.12/lib/Pod/Checker.pm Sat Mar 11 15:50:59 2000
+++ ../../perl/lib/Pod/Checker.pm Mon Mar 13 13:00:14 2000
@@ -307,6 +307,7 @@
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 @@
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 @@
## 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 -ur PodParser-1.12/lib/Pod/Parser.pm ../../perl/lib/Pod/Parser.pm
--- PodParser-1.12/lib/Pod/Parser.pm Mon Mar 13 08:37:41 2000
+++ ../../perl/lib/Pod/Parser.pm Mon Mar 13 13:00:14 2000
@@ -205,6 +205,7 @@
use Pod::InputObjects;
use Carp;
use Exporter;
+require VMS::Filespec if $^O eq 'VMS';
BEGIN {
if ($] < 5.6) {
require Symbol;
@@ -847,6 +848,7 @@
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/;
@@ -1082,6 +1084,7 @@
if (length($1) > 1 and $myOpts{'-warnings'} and ! $myData{_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)
End of Patch.
