contrib/update-my-copyright.pl: fix join() when rewriting the file

When working on NEWS, we were prefixing all lines (but the first) with a "1".
Join wants a "" for empty string, not //.

diff --git a/NEWS b/NEWS
index 54992d19c9f6e5be7c033229fccdd07bfe5b27c5..7e1ab8c141103a66894ef909b51525cf6931a726 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,5 @@
 Copyright © 2009 CNRS
-Copyright © 2009-2013 Inria.  All rights reserved.
+Copyright © 2009-2014 Inria.  All rights reserved.
 Copyright © 2009-2013 Université Bordeaux 1
 Copyright © 2009-2011 Cisco Systems, Inc.  All rights reserved.
 

diff --git a/contrib/update-my-copyright.pl b/contrib/update-my-copyright.pl
index 85df059f2ab14ae62ab97ce6d8444d790c04002b..223a9194174db122b82baa58ae51622f3307c540 100755 (executable)
--- a/contrib/update-my-copyright.pl
+++ b/contrib/update-my-copyright.pl
@@ -195,7 +195,7 @@ foreach my $f (@files) {
     my $newf = "$f.new-copyright";
     unlink($newf);
     open(FILE, ">$newf") || die "Can't open file: $newf";
-    print FILE join(//, @lines);
+    print FILE join("", @lines);
     close(FILE);
 
     # Now replace the old one