[MacPerl] _57's pod failures: workaround

[pvhp@forte.com (Peter Prymmer)]

Here is a workaround for the pod test suite failures
that does away with a tiny UNIXism in FileHandle->new()
which is implemented via IO::File::open():

************
File DKA300:[PERL5_005_57.LIB.IO]FILE.PM;2
  161   #	$file = './' . $file if $file =~ m{\A[^\\/\w]};
  162   	$file = IO::Handle::_open_mode_string($mode) . " $file\0";
******
File DKA300:[PERL5_005_57.LIB.IO]FILE.PM;1
  161   	$file = './' . $file if $file =~ m{\A[^\\/\w]};
  162   	$file = IO::Handle::_open_mode_string($mode) . " $file\0";
************

We ought to think about $^O eq 'VMS' style checks there to make that a 
proper patch.  Perhaps we'd also need a test for the presence of /[:<>\[\]]/ 
and/or absence of m#\/# indicating RMS specs before refusing to 
prepend './' (OK absence of foward slashes alone won't cut it since 
someone may be trying to open a file in the CWD).  I suspect that MacPerl 
folk will be interested in that module as well since they'd need to 
prepend a single colon (and check to be sure there's no double 
colon) to get their file syntax correct.

Here is a VMS diff for the pod test suite to pass [.t.pod]poderrs.t:

************
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;2
   65      print "# Running podchecker for '$testname'...\n";
   66      ## Compare the output against the expected result
******
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;1
   65      print "+ Running podchecker for '$testname'...\n";
   66      ## Compare the output against the expected result
************
************
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;2
   99                print "# Creating expected result for \"$testname\"" .
  100                      " podchecker test ...\n";
******
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;1
   99                print "+ Creating expected result for \"$testname\"" .
  100                      " podchecker test ...\n";
************
************
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;2
  122             print "#\tPASSED.\n";
  123   	  print "ok ", $failed+$passes, "\n";
******
File DKA300:[PERL5_005_57.T.POD]TESTPCHK.PL;1
  122             print "+\tPASSED.\n";
  123   	  print "ok ", $failed+$passes, "\n";
************

HTH

Peter Prymmer


===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org