@INC By uname -r

Adds OS Specific Includes to @INC for use in NFS environments where lots of machines use the same /usr/local Needed if the PerlMod is os dependent(Kstat)

use strict;
BEGIN {
   use POSIX qw(uname);
   my ($uname_s, $uname_r)  = (POSIX::uname())[0,2];
   unshift(@INC, "/usr/local/perl/modules/$uname_s/$uname_r" );
}
[download]

Comment on @INC By uname -r Download Code

Replies are listed 'Best First'.
Re: @INC By uname -r by blakem (Monsignor) on Aug 10, 2002 at 09:55 UTC
Just for kicks, this seems to work as well: `use POSIX qw(uname); use lib sprintf "/usr/local/perl/modules/%s/%s", (uname)[0,2];` [download] -Blake	[reply] [d/l]