Minor clean-up of prepare-ChangeLog script.
authorddkilzer <ddkilzer@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 25 Oct 2007 03:50:17 +0000 (03:50 +0000)
committerddkilzer <ddkilzer@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 25 Oct 2007 03:50:17 +0000 (03:50 +0000)
        Reviewed by Adam.

        * Scripts/prepare-ChangeLog: Keep list of updated ChangeLog files in an array instead
        of a string.  Use multi-argument versions of open() and system() for flexibility and
        security.

git-svn-id: https://svn.webkit.org/repository/webkit/trunk@27013 268f45cc-cd09-0410-ab3c-d52691b4dbfc

WebKitTools/ChangeLog
WebKitTools/Scripts/prepare-ChangeLog

index 8de5fe069ea3312daa4cd97fb09bc8552ad179a6..169661c4e828cbed2e1f1de2417272d311469710 100644 (file)
@@ -1,3 +1,13 @@
+2007-10-24  David Kilzer  <ddkilzer@webkit.org>
+
+        Minor clean-up of prepare-ChangeLog script.
+
+        Reviewed by Adam.
+
+        * Scripts/prepare-ChangeLog: Keep list of updated ChangeLog files in an array instead
+        of a string.  Use multi-argument versions of open() and system() for flexibility and
+        security.
+
 2007-10-24  Alice Liu  <alice.liu@apple.com>
 
         Reviewed by Oliver.
index d61e2df3b90431c43be9a18834df46ea7ae5eb46..a095bf7e4ac09e3aaf4af04cb3ef0c5348458167 100755 (executable)
@@ -3,7 +3,7 @@
 
 #
 #  Copyright (C) 2000, 2001 Eazel, Inc.
-#  Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Apple Inc.
+#  Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Apple Inc.  All rights reserved.
 #
 #  prepare-ChangeLog is free software; you can redistribute it and/or
 #  modify it under the terms of the GNU General Public
@@ -261,14 +261,15 @@ foreach my $file (sort keys %function_lists) {
 }
 
 # Get the latest ChangeLog files from svn.
-my $logs = "";
+my @logs = ();
 foreach my $prefix (sort keys %files) {
-    $logs .= " ${prefix}ChangeLog";
+    push @logs, File::Spec->catfile($prefix, "ChangeLog");
 }
 
-if ($logs && $updateChangeLogs && $isSVN) {
+if (@logs && $updateChangeLogs && $isSVN) {
     print STDERR "  Running 'svn update' to update ChangeLog files.\n";
-    open ERRORS, "$SVN update -q$logs |" or die "The svn update of ChangeLog files failed: $!.\n";
+    open ERRORS, "-|", $SVN, "update", "-q", @logs
+        or die "The svn update of ChangeLog files failed: $!.\n";
     print STDERR "    $_" while <ERRORS>;
     close ERRORS;
 }
@@ -316,13 +317,13 @@ if ($spewDiff && @changed_files) {
 }
 
 # Open ChangeLogs.
-if ($openChangeLogs && $logs) {
+if ($openChangeLogs && @logs) {
     print STDERR "  Opening the edited ChangeLog files.\n";
     my $editor = $ENV{"CHANGE_LOG_EDIT_APPLICATION"};
     if ($editor) {
-        system "open -a '$editor'$logs";
+        system "open", "-a", $editor, @logs;
     } else {
-        system "open -e$logs";
+        system "open", "-e", @logs;
     }
 }