70a71,73 > # Message for commit. > my $opt_ci_msg; > 88c91,92 < 'glob_ignores=s' => \$opt_glob_ignores) --- > 'glob_ignores=s' => \$opt_glob_ignores, > 'msg=s' => \$opt_ci_msg) 461c465 < my $message = "Create directories to load project into.\n\n"; --- > my $message = ""; 463c467,476 < foreach my $dir (@dirs_to_create) --- > if (defined $opt_ci_msg) > { > # Use the commit message given by the user, if any. > $message = $opt_ci_msg . "\n\n"; > } > else > { > $message = "Create directories to load project into.\n\n"; > > foreach my $dir (@dirs_to_create) 474,475c487,488 < $message = wrap('', ' ', $message); < --- > $message = wrap('', ' ', $message); > } 1257c1270,1279 < my $message = wrap('', '', "Load $load_dir into $repos_load_abs_path.\n"); --- > my $message = ""; > if (defined $opt_ci_msg) > { > # Use the commit message given by the user, if any. > $message = $opt_ci_msg . "\n\n"; > } > else > { > $message = wrap('', '', "Load $load_dir into $repos_load_abs_path.\n"); > } 1287,1290c1309,1322 < $message = wrap("", < "", < "Tag $repos_load_abs_path as " . < "$repos_tag_abs_path.\n"); --- > my $message = ""; > > if (defined $opt_ci_msg) > { > # Use the commit message given by the user, if any. > $message = $opt_ci_msg . "\n\n"; > } > else > { > $message = wrap("", > "", > "Tag $repos_load_abs_path as " . > "$repos_tag_abs_path.\n"); > } 1338c1370,1371 < " global-ignores config option)\n"; --- > " global-ignores config option)\n", > " -m \"msg\" use this message at check-in time\n"; 1682,1695c1715,1736 < my $message = "To prepare to load $load_dir into $repos_load_abs_path, " . < "perform $number_renames rename" . < ($number_renames > 1 ? "s" : "") . ".\n"; < < # Text::Wrap::wrap appears to replace multiple consecutive \n's with < # one \n, so wrap the text and then append the second \n. < $message = wrap("", "", $message) . "\n"; < while (@$renamed_filenames) < { < my $from = "$repos_load_abs_path/" . shift @$renamed_filenames; < my $to = "$repos_load_abs_path/" . shift @$renamed_filenames; < $message .= wrap("", " ", "* $to: Renamed from $from.\n"); < } < --- > my $message = ""; > if (defined $opt_ci_msg) > { > # Use the commit message given by the user, if any. > $message = $opt_ci_msg . "\n\n"; > } > else > { > $message = "To prepare to load $load_dir into $repos_load_abs_path, " . > "perform $number_renames rename" . > ($number_renames > 1 ? "s" : "") . ".\n"; > > # Text::Wrap::wrap appears to replace multiple consecutive \n's with > # one \n, so wrap the text and then append the second \n. > $message = wrap("", "", $message) . "\n"; > while (@$renamed_filenames) > { > my $from = "$repos_load_abs_path/" . shift @$renamed_filenames; > my $to = "$repos_load_abs_path/" . shift @$renamed_filenames; > $message .= wrap("", " ", "* $to: Renamed from $from.\n"); > } > }