in reply to problem with @INC when using activestate perl
use strict; use warnings 'all'; my $found = 0; for my $in_path (@INC){ next if ! -e $in_path."\\Win32API\\File.pm"; print "found module in $in_path ...\n"; $found = 1; last; } if ($found == 1){ use Win32API::File; my @drv = map{s/\\$//;lc} Win32API::File::getLogicalDrives(); print @drv; }
found module in C:/Perl/site/lib ... a:c:d:e:p:u:
|
|---|