package Psh
::Builtins
::Unalias
;
require Psh
::Support
::Alias
;
=item * C<unalias NAME | -a | all]>
Removes the alias with name <C<I<NAME>> or all aliases if either <C<I<-a>>
(for bash compatibility) or <C<I<all>> is specified.
if( ($name eq '-a' || $name eq 'all') and !Psh
::Support
::Alias
::is_aliased
($name) ) {
%Psh::Support
::Alias
::aliases
=();
} elsif( Psh
::Support
::Alias
::is_aliased
($name)) {
delete($Psh::Support
::Alias
::aliases
{$name});
Psh
::Util
::print_error_i18n
('unalias_noalias', $name);
return (1,grep { Psh
::Util
::starts_with
($_,$text) } Psh
::Support
::Alias
::get_alias_commands
());