--- a/shelldap	Tue May 07 19:34:40 2019 +0200
+++ b/shelldap	Wed May 08 20:45:04 2019 +0200
@@ -1596,18 +1596,19 @@
 		unless( $cmd_args) {
 			print "alias: $alias: not found\n";
 		} else {
-			print "alias $alias=${\( join ', ', map {\"'$_'\"} @{$cmd_args})}\n";
+			print "alias $alias=${\( join ' ', map { $_=~ /\s/ ? \"'$_'\" : $_} @{$cmd_args})}\n";
 		}
 		return
 
 	# There is argument with =, so the line is a new alias definition
 	} else {
-		my($alias, $command) = ($cmd_alias =~ m/^(\S+?)[=\s]?(.*)$/);
+		my($alias, $alias2, $command) = ($cmd_alias =~ m/^([a-zA-Z0-9_-]+)$|^(\S+?)[\=\s]+(.+)$/);
+		$alias = $alias2 if $alias2;
 		unless( $alias) {
 			print "Invalid syntax.\n";
 			return
 		}
-		$command = $cmd_map{$command}[0] if $cmd_map{$command} and $cmd_map{$command}[0];
+		$command = $cmd_map{$command}[0] if $command and $cmd_map{$command} and $cmd_map{$command}[0];
 		$conf->{alias}{$alias} = [ $command ? $command : (), @_ ];
 	}
 }