view release on metacpan or  search on metacpan

bin/salsaconfig  view on Meta::CPAN

}

sub init_make_dir {
	my $dir = shift;

	return(1) if(-d $dir);
	my $answer = &get_answer("Create the directory \"$dir\"? [y/N]: ");
	if($answer eq "Y" or $answer eq "y") {
		make_dir_rec($dir);
		-d $dir or return(0);
		chown($userid, $groupid, $dir);
	}
	return(1);
}

sub get_answer {
	my $string = shift;

	print $string;
	my $answer = <>;
	chomp $answer;