X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fchangelogget;h=b59b87d6dad0217ef6e491cb898eddf1117c8363;hp=59cc4e729ccd561a7459b25bcae4e6ca11ca7b5b;hb=fb0f0031d39c7d58684753118a05afaaa1a44138;hpb=89e59ed1b94e18a0d5ab3e070199540c08eec6b2

diff --git a/bin/changelogget b/bin/changelogget
index 59cc4e7..b59b87d 100755
--- a/bin/changelogget
+++ b/bin/changelogget
@@ -15,10 +15,12 @@ fi
 function formatpatch
 {
 	# --- src/gdb/ChangeLog   2008/04/24 08:46:17     1.9308
-	diffdecvs | if [ -z "$changelog" ];then perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'; else cat; fi
+	diffdecvs | if [ -z "$changelog" ];then perl -p -e '$r=qr/^(?:---|\Q+++\E) /o;$c=0 if m{$r}o;$c=1 if s{$r(?=\S+/ChangeLog(?:\t|$))}{### }o;s{^@@}{##} if $c;'; else cat; fi
 }
 
-for arg in "$@";do
+if [ "$*" = "-f" ];then
+	formatpatch
+else for arg in "$@";do
 	# http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
 	if [ "$arg" != "${arg#http://sources.redhat.com/}" ];then
 		arg="http://sourceware.org/${arg#http://sources.redhat.com/}"
@@ -53,7 +55,7 @@ for arg in "$@";do
 		echo >&2 "Invalid URL: $arg"
 		exit 1
 	fi
-done
+done;fi
 if $v;then
 	echo >&2 OK
 fi