At 7:57 AM +0100 5/30/01, Michael G Schwern wrote:
>On Tue, May 29, 2001 at 11:23:45PM -0500, Craig A. Berry wrote:
>> my $mod_file = File::Spec->catfile(qw(Text Soundex.pm));
>> +$mod_file = VMS::Filespec::unixify($mod_file) if $^O eq 'VMS';
>
>Color me stupid, but why is this necessary? Not in a practical sense,
>I mean in a philosophical "why the hell doesn't File::Spec do this for
>me" sense.
I don't know if there is a philosophical explanation; when confronted
with a failed comparison between apples and oranges, I just got out
my fruit blender. The non-philosophical explanation is that
File::Spec returns native-style file specs ('[.Text]Soundex.pm' ) and
%INC is populated with Unix-style file specs ('Text/Soundex.pm' ) and
obviously the two don't match when you compare them. Unfortunately
attempting to be portable sometimes makes things worse.
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
