make the pod2html tests work with fs with vols
authorRicardo Signes <rjbs@cpan.org>
Mon, 12 Mar 2012 17:19:23 +0000 (13:19 -0400)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Mar 2012 17:25:23 +0000 (13:25 -0400)
commitd1a30ea2dc426e354909eff54f683522681ab603
tree8f5b08f93bac1738615642be287cd2010136dc59
parent495a00a19fe0c6e9948090f8539f58599860bd4d
make the pod2html tests work with fs with vols

  my $cwd = Cwd::cwd();
  my $new_dir  = catdir $cwd, "t";
  my $infile   = catfile $new_dir, "$podfile.pod";

Prior to these changes, we were getting the volume from $cwd, above, and
then basically ignoring it.  When the cwd was c:\foo, ignoring the
volume in the catdir/catfile operations would munge things to C:\foo,
which meant that later a native check of path prefix would fail:
C:\foo is not a prefix of c:\foo\bar because of the case difference in
the volume name.

The is a legitimate fix, but the code is still problematic in other
places because (a) it tends to do path operations with no consideration
for volumes and (b) it has at least one place where it decides whether
path X is below path Y by using substr/index instead of path checking
routines.
ext/Pod-Html/t/pod2html-lib.pl