X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=tools%2Frename-symbols;h=0fc617a1ed3f6f72a1e9af2a153d900a47815b09;hb=06dcd3ee2abfe6a101d3d609e17bccac56d7202d;hp=72c3528e97bc3f1fc3ed9579a8e994f61d0e654c;hpb=c80c183d44ab8df878945183ca9e89739ec6cd5c;p=libucw.git

diff --git a/tools/rename-symbols b/tools/rename-symbols
index 72c3528e..0fc617a1 100755
--- a/tools/rename-symbols
+++ b/tools/rename-symbols
@@ -20,7 +20,6 @@ close $f;
 for my $g (sort keys %renames) {
 	my @symbols = sort @{$renames{$g}};
 	@symbols or next;
-	print "### $g\n";
 
 	open my $in, '<', $g or die;
 	open my $out, '>', "$g.new" or die;
@@ -59,5 +58,12 @@ for my $g (sort keys %renames) {
 	$mode or die;
 	close $out;
 	close $in;
-	rename "$g.new", $g or die;
+	system "cmp", "-s", $g, "$g.new";
+	if ($?) {
+		print "### $g: updated\n";
+		rename "$g.new", $g or die;
+	} else {
+		print "--- $g: not modified\n";
+		unlink "$g.new" or die;
+	}
 }