|
55
|
0 |
6 |
unless &GetOptions('csh', sub {
$shell = 'Shell::Guess'->c_shell;
}
, 'sh', sub {
$shell = 'Shell::Guess'->bourne_shell;
}
, 'cmd', sub {
$shell = 'Shell::Guess'->cmd_shell;
}
, 'command', sub {
$shell = 'Shell::Guess'->command_shell;
}
, 'fish', sub {
$shell = 'Shell::Guess'->fish_shell;
}
, 'korn', sub {
$shell = 'Shell::Guess'->korn_shell;
}
, 'power', sub {
$shell = 'Shell::Guess'->power_shell;
}
, 'login', sub {
$shell = 'Shell::Guess'->login_shell;
}
, 'sep=s', sub {
$sep = quotemeta $_[1];
$config->set_path_sep($_[1]);
}
, 'sep-in=s', sub {
$sep = quotemeta $_[1];
}
, 'sep-out=s', sub {
$config->set_path_sep($_[1]);
}
, 'squash|s', \$squash, 'no-cygwin', sub {
$cygwin = 0 if $^O eq 'cygwin';
}
, 'list|l', \$list, 'expand|x', \$expand, 'trim|t', \$trim, 'f=s', \$file, 'help|h', \$help, 'version|v', \$version) |