my $orig_dir_name = 'unscd-'.$options{upstream_version};
my $orig_dir_path = File::Spec->catfile($tdir,$orig_dir_name);
mkdir($orig_dir_path) or die "Unable to mkdir $orig_dir_path: $!";
my $orig_dir_name = 'unscd-'.$options{upstream_version};
my $orig_dir_path = File::Spec->catfile($tdir,$orig_dir_name);
mkdir($orig_dir_path) or die "Unable to mkdir $orig_dir_path: $!";