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

diff --git a/tools/rename-symbols b/tools/rename-symbols
index 72c3528e..fe37ff9b 100755
--- a/tools/rename-symbols
+++ b/tools/rename-symbols
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # Re-generate symbol renaming defines
-# (c) 2013 Martin Mares <mj@ucw.cz>
+# (c) 2014 Martin Mares <mj@ucw.cz>
 
 use common::sense;
 
@@ -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;
+	}
 }