### ----------------------------------------------------
### -- Sparrowdo::VSTS::YAML::Cordova
### -- Licenses: NOASSERTION
### -- Authors: Alexey Melezhik
### -- File: resources/windows/remove-old-packages.pl
### ----------------------------------------------------
use strict;
use File::Path qw(remove_tree);

my $path = $ARGV[0] or die "usage: remove-old-packages.pl path";

if (-d $path){
  remove_tree($path) or die "can't remove directory $path, error: $!";
  print "directory [$path] removed OK\n";
} else {
  print "directory [$path] does not exit, SKIP removal\n";
}



