fixreadonly($plugindir) if $^O =~ /win32/i;

sub fixreadonly {
  my $dir = shift;
  my $unsetreadonly = Bio::Root::IO->catfile( $dir, "*.*");
  system("attrib -r /s $unsetreadonly");
}