haiku · pulkomandy · Jan 28, 2021 · Jan 28, 2021 · Jun 15, 2019 · Aug 3, 2019
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -38,6 +38,7 @@ set(ALL_PORTS
     AppleWin
     Efl
     GTK
+    Haiku
     JSCOnly
     Mac
     PlayStation

diff --git a/LayoutTests/fast/block/border-fit-with-right-alignment-expected.html b/LayoutTests/fast/block/border-fit-with-right-alignment-expected.html
@@ -1,4 +1,4 @@
-<html>
+<html>
 <head>
 <style>
 chatitem {
@@ -40,4 +40,4 @@
 <span">https://tools.usps.com/go/TrackConfirmAction_input?
 strOrigTrackNum=9405510200882644026532</span>
 </messagebody></messagetext></message></chatitem>
-</body></html>
+</body></html>
diff --git a/LayoutTests/fast/forms/resources/image-slow.pl b/LayoutTests/fast/forms/resources/image-slow.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/html5lib/generate-test-wrappers.py b/LayoutTests/html5lib/generate-test-wrappers.py
@@ -1,4 +1,4 @@
-#!/usr/bin/env python
+#!env python
 # Copyright (c) 2013 Google Inc. All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without

diff --git a/LayoutTests/http/tests/cache/disk-cache/resources/generate-response.cgi b/LayoutTests/http/tests/cache/disk-cache/resources/generate-response.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use CGI;
 use HTTP::Date;

diff --git a/LayoutTests/http/tests/cache/resources/cache-simulator.cgi b/LayoutTests/http/tests/cache/resources/cache-simulator.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use CGI;
 use HTTP::Date;

diff --git a/LayoutTests/http/tests/cache/resources/current-time.cgi b/LayoutTests/http/tests/cache/resources/current-time.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/plain\n";
 print "\n";

diff --git a/LayoutTests/http/tests/cache/resources/echo-no-store.cgi b/LayoutTests/http/tests/cache/resources/echo-no-store.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/plain\n"; 
 print "Cache-control: no-store\n";

diff --git a/LayoutTests/http/tests/cache/resources/random-cached-iframe.cgi b/LayoutTests/http/tests/cache/resources/random-cached-iframe.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/html\n";
 print "Cache-control: max-age=60000\n";

diff --git a/LayoutTests/http/tests/cache/resources/random-cached.cgi b/LayoutTests/http/tests/cache/resources/random-cached.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/javascript\n";
 print "Cache-control: max-age=60000\n";

diff --git a/LayoutTests/http/tests/cache/resources/random-max-age.cgi b/LayoutTests/http/tests/cache/resources/random-max-age.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/javascript\n";
 print "Cache-control: max-age=0\n";

diff --git a/LayoutTests/http/tests/cache/resources/random.cgi b/LayoutTests/http/tests/cache/resources/random.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/javascript\n";
 print "Cache-control: no-store\n";

diff --git a/LayoutTests/http/tests/cache/resources/subresource-failover-to-network.cgi b/LayoutTests/http/tests/cache/resources/subresource-failover-to-network.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "content-type: text/html\n";
 print "\n";

diff --git a/LayoutTests/http/tests/cookies/resources/clearCookies.cgi b/LayoutTests/http/tests/cookies/resources/clearCookies.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 print "Content-Type: text/plain\n";

diff --git a/LayoutTests/http/tests/cookies/resources/getCookies.cgi b/LayoutTests/http/tests/cookies/resources/getCookies.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 print "Content-Type: text/plain\n";

diff --git a/LayoutTests/http/tests/cookies/resources/setCookies.cgi b/LayoutTests/http/tests/cookies/resources/setCookies.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 print "Content-Type: text/plain\n";

diff --git a/LayoutTests/http/tests/history/redirect-200-refresh-0-seconds.pl b/LayoutTests/http/tests/history/redirect-200-refresh-0-seconds.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Script to generate a Refresh header HTTP redirect
 
 print "Status: 200 ok\r\n";

diff --git a/LayoutTests/http/tests/history/redirect-200-refresh-2-seconds.pl b/LayoutTests/http/tests/history/redirect-200-refresh-2-seconds.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Script to generate a Refresh header HTTP redirect
 
 print "Status: 200 ok\r\n";

diff --git a/LayoutTests/http/tests/history/resources/redirect-helper.pl b/LayoutTests/http/tests/history/resources/redirect-helper.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Script to generate a 30x HTTP redirect (determined by the query parameter)
 
 $REDIRECT_CODE = $ENV{'QUERY_STRING'} || '301';

diff --git a/LayoutTests/http/tests/incremental/pause-in-script-element.pl b/LayoutTests/http/tests/incremental/pause-in-script-element.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/incremental/resources/slow-utf8-css.pl b/LayoutTests/http/tests/incremental/resources/slow-utf8-css.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # Flush STDOUT after each print.
 select (STDOUT);

diff --git a/LayoutTests/http/tests/incremental/slow-utf8-html.pl b/LayoutTests/http/tests/incremental/slow-utf8-html.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/incremental/slow-utf8-text.pl b/LayoutTests/http/tests/incremental/slow-utf8-text.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/incremental/split-hex-entities.pl b/LayoutTests/http/tests/incremental/split-hex-entities.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/loading/onload-vs-immediate-refresh.pl b/LayoutTests/http/tests/loading/onload-vs-immediate-refresh.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # http://trac.webkit.org/projects/webkit/changeset/7800
 # rdar://problem/3829452 REGRESSION (156-157): onload handler doesn't run on page with meta refresh of 0 duration (new Apple start page)
 

diff --git a/LayoutTests/http/tests/loading/resources/404-with-empty-body-no-content-type.cgi b/LayoutTests/http/tests/loading/resources/404-with-empty-body-no-content-type.cgi
@@ -1,3 +1,3 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Status: 404 Not Found\n\n";
diff --git a/LayoutTests/http/tests/loading/resources/404-with-empty-body.cgi b/LayoutTests/http/tests/loading/resources/404-with-empty-body.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Status: 404 Not Found\n";
 print "Content-type: text/javascript\n\n";
diff --git a/LayoutTests/http/tests/local/slow-css-pass.cgi b/LayoutTests/http/tests/local/slow-css-pass.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/css\n"; 
 print "Cache-control: no-store\n\n";

diff --git a/LayoutTests/http/tests/media/resources/media-source/generate-config-change-tests.py b/LayoutTests/http/tests/media/resources/media-source/generate-config-change-tests.py
@@ -1,4 +1,4 @@
-#!/usr/bin/python
+#!python
 # Copyright (C) 2013 Google Inc. All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without

diff --git a/LayoutTests/http/tests/media/resources/setCookie.cgi b/LayoutTests/http/tests/media/resources/setCookie.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use CGI;
 
 $query = new CGI;

diff --git a/LayoutTests/http/tests/media/video-accept-encoding.cgi b/LayoutTests/http/tests/media/video-accept-encoding.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use strict;
 

diff --git a/LayoutTests/http/tests/media/video-throttled-load.cgi b/LayoutTests/http/tests/media/video-throttled-load.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use strict;
 

diff --git a/LayoutTests/http/tests/mime/resources/accept-all-text-types.cgi b/LayoutTests/http/tests/mime/resources/accept-all-text-types.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 my $type = $ENV{'QUERY_STRING'};

diff --git a/LayoutTests/http/tests/mime/resources/png-with-text-content-type.cgi b/LayoutTests/http/tests/mime/resources/png-with-text-content-type.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use CGI;
 use HTTP::Date;

diff --git a/LayoutTests/http/tests/mime/resources/style-with-empty-content-type.cgi b/LayoutTests/http/tests/mime/resources/style-with-empty-content-type.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 print "Content-Type: \n\n";

diff --git a/LayoutTests/http/tests/misc/BOM-override.pl b/LayoutTests/http/tests/misc/BOM-override.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Test that BOM can override whatever charset was set in Content-Type
 # (this is not the behavior of Firefox, nor expected by any standard).
 

diff --git a/LayoutTests/http/tests/misc/error404.pl b/LayoutTests/http/tests/misc/error404.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 404 HTTP error
 
 print "Status: 404 Not Found\r\n";

diff --git a/LayoutTests/http/tests/misc/resources/BOM-override-2.pl b/LayoutTests/http/tests/misc/resources/BOM-override-2.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Test that BOM can override whatever charset was set in Content-Type
 # (this is not the behavior of Firefox, nor expected by any standard).
 

diff --git a/LayoutTests/http/tests/misc/resources/BOM-override-3.pl b/LayoutTests/http/tests/misc/resources/BOM-override-3.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Test that BOM can override whatever charset was set in Content-Type
 # (this is not the behavior of Firefox, nor expected by any standard).
 

diff --git a/LayoutTests/http/tests/misc/resources/image-slow.pl b/LayoutTests/http/tests/misc/resources/image-slow.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/misc/resources/intrinsic-ratio-slow.pl b/LayoutTests/http/tests/misc/resources/intrinsic-ratio-slow.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/misc/resources/percent-sign-in-form-data-field-name.cgi b/LayoutTests/http/tests/misc/resources/percent-sign-in-form-data-field-name.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/html\n\n"; 
 

diff --git a/LayoutTests/http/tests/misc/resources/post-echo-and-notify-done.cgi b/LayoutTests/http/tests/misc/resources/post-echo-and-notify-done.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/html\n\n"; 
 

diff --git a/LayoutTests/http/tests/misc/resources/script-slow1.pl b/LayoutTests/http/tests/misc/resources/script-slow1.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/misc/resources/script-slow2.pl b/LayoutTests/http/tests/misc/resources/script-slow2.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/misc/resources/slow-async-script.cgi b/LayoutTests/http/tests/misc/resources/slow-async-script.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/javascript\n\n";
 sleep(1.0);

diff --git a/LayoutTests/http/tests/misc/resources/slow-defer-script.cgi b/LayoutTests/http/tests/misc/resources/slow-defer-script.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/javascript\n\n";
 sleep(0.5);

diff --git a/LayoutTests/http/tests/misc/resources/slow-image-load.pl b/LayoutTests/http/tests/misc/resources/slow-image-load.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 use strict;
 

diff --git a/LayoutTests/http/tests/misc/resources/slow-stylesheet.cgi b/LayoutTests/http/tests/misc/resources/slow-stylesheet.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 print "Content-type: text/css\n\n";
 sleep(0.5);

diff --git a/LayoutTests/http/tests/misc/resources/svg-slow.pl b/LayoutTests/http/tests/misc/resources/svg-slow.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/misc/resources/text-refresh.pl b/LayoutTests/http/tests/misc/resources/text-refresh.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a redirect to a success document.
 
 print "Content-type: text/plain\r\n";

diff --git a/LayoutTests/http/tests/misc/resources/uncacheable-script.cgi b/LayoutTests/http/tests/misc/resources/uncacheable-script.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!perl -wT
 use strict;
 
 print "Content-Type: text/javascript\nCache-Control: no-store\n\nwindow.pass='PASS'\;";

diff --git a/LayoutTests/http/tests/misc/xmltokenizer-do-not-crash.pl b/LayoutTests/http/tests/misc/xmltokenizer-do-not-crash.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # flush the buffers after each print
 select (STDOUT);

diff --git a/LayoutTests/http/tests/navigation/resources/error404.pl b/LayoutTests/http/tests/navigation/resources/error404.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 404 HTTP error
 
 print "Status: 404 Not Found\r\n";

diff --git a/LayoutTests/http/tests/navigation/resources/form-target-uncached.pl b/LayoutTests/http/tests/navigation/resources/form-target-uncached.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to that dumps the HTTP request method and all input parameters.
 
 use CGI;

diff --git a/LayoutTests/http/tests/navigation/resources/form-target.pl b/LayoutTests/http/tests/navigation/resources/form-target.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to that dumps the HTTP request method and all input parameters.
 
 use CGI;

diff --git a/LayoutTests/http/tests/navigation/resources/frameset.pl b/LayoutTests/http/tests/navigation/resources/frameset.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a frameset, where the main frame is 
 # determined by a URL query parameter.
 #

diff --git a/LayoutTests/http/tests/navigation/resources/postresult.pl b/LayoutTests/http/tests/navigation/resources/postresult.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a POST result.
 #
 # Depending on which button was pushed in the form, we either generate a direct

diff --git a/LayoutTests/http/tests/navigation/resources/redirect-cycle-1.pl b/LayoutTests/http/tests/navigation/resources/redirect-cycle-1.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 
 $count = 1;
 

diff --git a/LayoutTests/http/tests/navigation/resources/redirect-cycle-2.pl b/LayoutTests/http/tests/navigation/resources/redirect-cycle-2.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 
 print "Status: 302 Moved Temporarily\r\n";
 print "Location: redirect-cycle-1.pl\r\n";

diff --git a/LayoutTests/http/tests/navigation/resources/redirect-to-go-back.pl b/LayoutTests/http/tests/navigation/resources/redirect-to-go-back.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 302 HTTP redirect to a page that triggers a 
 # navigation back (only if POST is used).
 

diff --git a/LayoutTests/http/tests/navigation/resources/redirect-to-referrer-check.pl b/LayoutTests/http/tests/navigation/resources/redirect-to-referrer-check.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 302 HTTP redirect
 
 print "Status: 302 Moved Temporarily\r\n";

diff --git a/LayoutTests/http/tests/navigation/resources/redirect302-metaredirect.pl b/LayoutTests/http/tests/navigation/resources/redirect302-metaredirect.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 302 HTTP redirect with http-equiv=refresh
 
 print "Status: 302 Found\r\n";

diff --git a/LayoutTests/http/tests/navigation/resources/redirect302.pl b/LayoutTests/http/tests/navigation/resources/redirect302.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 # Simple script to generate a 302 HTTP redirect
 
 print "Status: 302 Moved Temporarily\r\n";

diff --git a/LayoutTests/http/tests/navigation/resources/reload-subframe-content.pl b/LayoutTests/http/tests/navigation/resources/reload-subframe-content.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
 
 print "Content-type: text/plain\r\n";
 print "\r\n";
-Original file line number
+Diff line change
@@ Expand Up / @@ -38,6 +38,7 @@ set(ALL_PORTS @@
         AppleWin
         Efl
         GTK
+        Haiku
         JSCOnly
         Mac
         PlayStation
@@ Expand Down @@