aboutsummaryrefslogtreecommitdiff
path: root/contrib/mklog
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/mklog')
-rwxr-xr-xcontrib/mklog19
1 files changed, 8 insertions, 11 deletions
diff --git a/contrib/mklog b/contrib/mklog
index 5f5d98e..cdc6455 100755
--- a/contrib/mklog
+++ b/contrib/mklog
@@ -59,9 +59,13 @@ if (-d .git) {
#-----------------------------------------------------------------------------
if ($#ARGV != 0) {
$prog = `basename $0`; chop ($prog);
- print "usage: $prog file.diff\n\n";
- print "Adds a ChangeLog template to the start of file.diff\n";
- print "It assumes that file.diff has been created with -up or -cp.\n";
+ print <<EOF;
+usage: $prog file.diff
+
+Generate ChangeLog template for file.diff.
+It assumes that patch has been created with -up or -cp.
+When file.diff is -, read standard input.
+EOF
exit 1;
}
@@ -270,15 +274,8 @@ foreach (@diff_lines) {
# functions.
$cl_entries{$clname} .= $change_msg ? "$change_msg\n" : ":\n";
-$temp = `mktemp /tmp/$basename.XXXXXX` || exit 1; chop ($temp);
-open (CLFILE, ">$temp") or die "Could not open file $temp for writing";
-
foreach my $clname (keys %cl_entries) {
- print CLFILE "$clname:\n\n$hdrline\n\n$cl_entries{$clname}\n";
+ print "$clname:\n\n$hdrline\n\n$cl_entries{$clname}\n";
}
-# Concatenate the ChangeLog template and the original .diff file.
-system ("cat $diff >>$temp && mv $temp $diff") == 0
- or die "Could not add the ChangeLog entry to $diff";
-
exit 0;