> - # lib.pm is documented to only work with Unix filepaths.
> @lib_dir = qw(stuff moo);
> - $Lib_Dir = join "/", @lib_dir;
> - $Arch_Dir = join "/", @lib_dir, $Config{archname};
> + $Lib_Dir = File::Spec->catdir( @lib_dir );
> + $Arch_Dir = File::Spec->catdir( @lib_dir, $Config{archname} );
>
> # create the auto/ directory and a module
> $Auto_Dir = File::Spec->catdir(@lib_dir, $Config{archname},'auto');
> @@ -56,8 +55,7 @@
> is( $INC[0], $Arch_Dir, ' auto/ dir in front of that' );
> is( grep(/^\Q$Lib_Dir\E$/, @INC), 1, ' no duplicates' );
>
> - # Yes, %INC uses Unixy filepaths.
> - is( $INC{'Yup.pm'}, join("/",$Lib_Dir, 'Yup.pm'), '%INC set
> properly' );
> + is( $INC{'Yup.pm'}, File::Spec->catfile( $Lib_Dir, 'Yup.pm'),
> '%INC set properly' );
I don't we can break this documented feature (like, ever). Instead,
could the (internal) %INC and @INC handling in MacOS Classic be hacked
to always talk UNIX?
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
