update-webkit-dependency should report $response->message for diagnose
authorcommit-queue@webkit.org <commit-queue@webkit.org@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Mon, 10 Apr 2017 17:35:20 +0000 (17:35 +0000)
committercommit-queue@webkit.org <commit-queue@webkit.org@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Mon, 10 Apr 2017 17:35:20 +0000 (17:35 +0000)
https://bugs.webkit.org/show_bug.cgi?id=170666

Patch by Fujii Hironori <Hironori.Fujii@sony.com> on 2017-04-10
Reviewed by Alex Christensen.

* Scripts/update-webkit-dependency: Print $response->message to STDERR if an error happens.

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

Tools/ChangeLog
Tools/Scripts/update-webkit-dependency

index 95aead2..fe4a546 100644 (file)
@@ -1,3 +1,12 @@
+2017-04-10  Fujii Hironori  <Hironori.Fujii@sony.com>
+
+        update-webkit-dependency should report $response->message for diagnose
+        https://bugs.webkit.org/show_bug.cgi?id=170666
+
+        Reviewed by Alex Christensen.
+
+        * Scripts/update-webkit-dependency: Print $response->message to STDERR if an error happens.
+
 2017-04-10  Wenson Hsieh  <wenson_hsieh@apple.com>
 
         Data interaction on an image enclosed by an anchor should vend the anchor's URL
index f711ec9..1b04d77 100755 (executable)
@@ -99,7 +99,9 @@ my $response = $ua->get($libsURL, "Range", "bytes=0-0");
 $ua->max_size(undef);
 
 if (! $response->is_success) {
-    print STDERR "Could not access $libsURL:\n", $response->headers_as_string, "\n";
+    print STDERR "Could not access $libsURL:\n";
+    print STDERR $response->message, "\n";
+    print STDERR $response->headers_as_string, "\n";
     print STDERR "Please ensure that $libsURL is reachable";
     if ($libsURL =~ /^https/i) {
         print STDERR " and that Perl can use LWP::Simple to connect to HTTPS URLs.\n";
@@ -165,7 +167,9 @@ if (! defined $lastModified) {
     $response = $ua->get($headerURL);
 
     if (! $response->is_success) {
-        print STDERR "Could not access $headerURL:\n", $response->headers_as_string, "\n";
+        print STDERR "Could not access $headerURL:\n";
+        print STDERR $response->message, "\n";
+        print STDERR $response->headers_as_string, "\n";
         print STDERR "Please ensure that $headerURL is reachable";
         if ($headerURL =~ /^https/i) {
             print STDERR " and that Perl can use LWP::Simple to connect to HTTPS URLs.\n";