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