use Win32::File;
use strict;

###########################################################

sub is_special_directory {
  my ($directory_name) = @_;
  if ($directory_name eq "." || $directory_name eq "..") {
    return 1;
  }
  
  return 0;
}

###########################################################

sub is_directory {
  my ($directory_name) = @_;
  my $attrib = 0;

  Win32::File::GetAttributes($directory_name, $attrib) || return 0;
  return ($attrib & Win32::File::DIRECTORY);
}

###########################################################

sub get_file_list {
  my ($directory_name) = @_;
  my @file_list = ();

  opendir(DIR, $directory_name) || return @file_list;
  @file_list = grep(//, readdir(DIR));
  closedir DIR;

  return @file_list;
}

###########################################################

1;