package/www/webkit/perl.patch

   1 --- WebKit-r70732/WebCore/make-hash-tools.pl.orig       2012-01-11 09:26:45.000000000 -0330
   2 +++ WebKit-r70732/WebCore/make-hash-tools.pl    2012-01-11 09:25:08.000000000 -0330
   3 @@ -20,7 +20,8 @@
   4  #   Boston, MA 02110-1301, USA.
   5
   6  use strict;
   7 -use Switch;
   8 +#use Switch;
   9 +use feature "switch";
  10  use File::Basename;
  11
  12  my $outdir = $ARGV[0];
  13 @@ -82,9 +83,10 @@
  14
  15  }
  16
  17 -switch ($option) {
  18 +#switch ($option) {
  19 +given ($option) {
  20
  21 -case "DocTypeStrings" {
  22 +when ("DocTypeStrings") {
  23
  24      createHashToolsHeader();
  25
  26 @@ -117,7 +119,7 @@
  27
  28  } # case "DocTypeStrings"
  29
  30 -case "ColorData" {
  31 +when ("ColorData") {
  32
  33      my $colorDataImpl              = "$outdir/ColorData.cpp";
  34      my $colorDataGenerated         = "$outdir/ColorDataHash.h";
  35 --- WebKit-r70732/WebCore/dom/make_names.pl.orig        2010-10-06 09:00:45.000000000 -0230
  36 +++ WebKit-r70732/WebCore/dom/make_names.pl     2012-01-11 09:38:21.000000000 -0330
  37 @@ -35,7 +35,7 @@
  38  use File::Path;
  39  use IO::File;
  40  use InFilesParser;
  41 -use Switch;
  42 +use feature "switch";
  43
  44  sub readTags($$);
  45  sub readAttrs($$);