'upgrade',
'current_version|current-version',
'developer_prepare|developer-prepare',
'upgrade',
'current_version|current-version',
'developer_prepare|developer-prepare',
if (1 < grep {exists $options{$_}} @exclusive_options) {
push @USAGE_ERRORS,"You must only give one of the ".
join(', ',map {s/_/-/g; "--".$_} @exclusive_options).
if (1 < grep {exists $options{$_}} @exclusive_options) {
push @USAGE_ERRORS,"You must only give one of the ".
join(', ',map {s/_/-/g; "--".$_} @exclusive_options).