Don't require perl(File::Copy::Recursive)
authormcatanzaro@igalia.com <mcatanzaro@igalia.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Tue, 12 Dec 2017 22:23:17 +0000 (22:23 +0000)
committermcatanzaro@igalia.com <mcatanzaro@igalia.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Tue, 12 Dec 2017 22:23:17 +0000 (22:23 +0000)
https://bugs.webkit.org/show_bug.cgi?id=180479
<rdar://problem/35944218>

Reviewed by Daniel Bates.

Fix the error handling. I added this at the last moment and failed to test. The logic is
inverted, causing an error to always be reported on success.

Add a missing 'mkdir -p' using File::Path::make_path. This has its own built-in error
reporting, so no need to add our own.

* Scripts/copy-user-interface-resources.pl:
(ditto):

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

Source/WebInspectorUI/ChangeLog
Source/WebInspectorUI/Scripts/copy-user-interface-resources.pl

index 5393674..3dd2e1d 100644 (file)
@@ -1,5 +1,22 @@
 2017-12-12  Michael Catanzaro  <mcatanzaro@igalia.com>
 
+        Don't require perl(File::Copy::Recursive)
+        https://bugs.webkit.org/show_bug.cgi?id=180479
+        <rdar://problem/35944218>
+
+        Reviewed by Daniel Bates.
+
+        Fix the error handling. I added this at the last moment and failed to test. The logic is
+        inverted, causing an error to always be reported on success.
+
+        Add a missing 'mkdir -p' using File::Path::make_path. This has its own built-in error
+        reporting, so no need to add our own.
+
+        * Scripts/copy-user-interface-resources.pl:
+        (ditto):
+
+2017-12-12  Michael Catanzaro  <mcatanzaro@igalia.com>
+
         Unreviewed, don't print empty error message when copying resource fails
 
         Unsurprisingly, when system() fails, there is not any useful error to be printed, so don't.
index b2ca059..5107199 100755 (executable)
@@ -49,9 +49,10 @@ sub ditto($$)
     } elsif ($^O ne 'MSWin32') {
         # Ditto copies the *contents* of the source directory, not the directory itself.
         opendir(my $dh, $source) or die "Can't open $source: $!";
+        make_path($destination);
         while (readdir $dh) {
             if ($_ ne '..' and $_ ne '.') {
-                system('cp', '-R', "${source}/$_", $destination) or die "Failed to copy ${source}/$_ to $destination";
+                system('cp', '-R', "${source}/$_", $destination) == 0 or die "Failed to copy ${source}/$_ to $destination";
             }
         }
         closedir $dh;