yanick · February 14, 2020 17:37
diff --git a/git-cm b/git-cm
 #!/usr/bin/env perl

 use 5.30.0;

 use List::MoreUtils qw/ first_index /;

 my $index = first_index { $_ eq '--' } @ARGV;

 $index = 0 if $index== -1;

 push @ARGV, '--message', join " ", grep { $_ ne '--' } splice @ARGV, $index;

 exec 'git', 'commit', @ARGV;
	#!/usr/bin/env perl

	use 5.30.0;

	use List::MoreUtils qw/ first_index /;

	my $index = first_index { $_ eq '--' } @ARGV;

	$index = 0 if $index== -1;

	push @ARGV, '--message', join " ", grep { $_ ne '--' } splice @ARGV, $index;

	exec 'git', 'commit', @ARGV;