Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Drives.pm

package Psh::Builtins::Drives;

require Psh::Util;

=item * C<drives>

Prints a list of the available drives on Windows or nothing on windows

=cut


sub bi_drives
{
       if ($^O eq 'MSWin32') {
               # I do not particularly like platform dependant code here
               # On the other hand I also dislike filling the Psh::OS module
               # with stuff for highly optional builtins
               my @result=();
               eval "use Win32::NetAdmin;";
               Win32::NetAdmin::GetServerDisks("",\@result);
               Psh::Util::print_out($_."\n") foreach @result;
       } else {
       }
       return (1,undef);
}

1;