Re: CPAN indexer (was Re: DBD::Pg CVS version.)

[David Wheeler]

On Monday, November 25, 2002, at 03:37  PM, David Wheeler wrote:

I'd just hack in the very few alternatives you need ("/" + Max + VMS,
you can ignore windows as "/" works fine) in a BEGIN block.

Um, what is it on VMS?

...Never mind, I can look in File::Spec::VMS.

Or not. Here's what I got:

my $lib;
BEGIN {
    my %sep = (MacOS   => ':',
               MSWin32 => '\\',
               os2     => '\\',
               VMS     => '\\',
               NetWare => '\\',
               dos     => '\\');
    my $s = $sep{$^O} || '/';
    $lib = join $s, 't', 'lib';
}
use lib $lib;

Pretty much just Mac, Unix, and everything else. Am I missing anything?

Thanks,

David

--
David Wheeler                                     AIM: dwTheory
[EMAIL PROTECTED]                                 ICQ: 15726394
http://david.wheeler.net/                      Yahoo!: dew7e
                                               Jabber: [EMAIL PROTECTED]