Merge branch 'master' into dev-opt

[libucw.git] / tools / rename-symbols

diff --git a/tools/rename-symbols b/tools/rename-symbols
index 72c3528e97bc3f1fc3ed9579a8e994f61d0e654c..fe37ff9be2a1afd64df189203f9df94f8fab0ab7 100755 (executable)
--- 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;
+       }
 }