TK Program Only calling Local and not mapped drives

phineas629 has asked for the wisdom of the Perl Monks concerning the following question:

A TK perl program I am using selects my local C drive in place of all other mapped drives across my network. I.E. I select mapped drive y but only get drive c.

I'm running modules win32::odbc and win32::console in the script also. I've just installed them today so I assume the problem is related to the modules?

I usually run the TK program on a virtual machine with the same mapped drives and the script works.


sub get_drives {
  @dir = ();
  $dir = "c";
  while ($dir !~ /AA/i) {
    if (opendir (DIR, "$dir:")) {
      push (@sorted, "$dir:");
      push (@drives, "$dir:");
      closedir (DIR);
    }
    $dir++;
    $dir_cnt++;
  }
  if ($dir_cnt < 5) {
    $dir_cnt = 5;
  }
}
[download]

Comment on TK Program Only calling Local and not mapped drives Download Code

Replies are listed 'Best First'.
Re: TK Program Only calling Local and not mapped drives by Anonymous Monk on May 10, 2013 at 22:45 UTC
I'm running modules win32::odbc and win32::console in the script also. I've just installed them today so I assume the problem is related to the modules? Highly doubtful. Going by your code, the problem is likely with your code. Anyway, use this instead perl -MWin32API::File -le " print for Win32API::File::getLogicalDrives() "	[reply]