equal
deleted
inserted
replaced
167 my $auto_message = |
167 my $auto_message = |
168 (not $hg_status_text) |
168 (not $hg_status_text) |
169 ? "" |
169 ? "" |
170 : "\n" |
170 : "\n" |
171 . " Modified config files since last log entry listend below...\n" |
171 . " Modified config files since last log entry listend below...\n" |
172 . $hg_status_text . "\n"; |
172 . $hg_status_text; |
173 |
173 |
174 # Kopftext eintragen |
174 # Kopftext eintragen |
175 print $fh "Date: ", scalar(localtime()), "\n", |
175 print $fh "Date: ", scalar(localtime()), "\n", |
176 "User: ", identity(), "\n", |
176 "User: ", identity(), "\n", |
177 "MailTo: ", mailto(), "\n", |
177 "MailTo: ", mailto(), "\n", |