[patch] chromium-14.0.794.0-perl514.patch

chromium-14.0.794.0-perl514.patch (text/plain), 1.37 KB, created by Markus Peloquin on 2011-06-19 20:21:57 UTC

diff -ru chromium-14.0.794.0.old/third_party/WebKit/Source/WebCore/make-hash-tools.pl chromium-14.0.794.0/third_party/WebKit/Source/WebCore/make-hash-tools.pl
--- chromium-14.0.794.0.old/third_party/WebKit/Source/WebCore/make-hash-tools.pl	2011-06-19 07:55:35.760784819 -0500
+++ chromium-14.0.794.0/third_party/WebKit/Source/WebCore/make-hash-tools.pl	2011-06-19 09:32:09.239261344 -0500
@@ -20,7 +20,7 @@
 #   Boston, MA 02110-1301, USA.
 
 use strict;
-use Switch;
+use feature qw/ switch /;
 use File::Basename;
 
 my $outdir = $ARGV[0];
@@ -28,9 +28,9 @@
 my $option = basename($ARGV[0],".gperf");
 
 
-switch ($option) {
+given ($option) {
 
-case "DocTypeStrings" {
+when ("DocTypeStrings") {
 
     my $docTypeStringsGenerated    = "$outdir/DocTypeStrings.cpp";
     my $docTypeStringsGperf        = $ARGV[0];
@@ -38,9 +38,9 @@
 
     system("gperf --key-positions=\"*\" -s 2 $docTypeStringsGperf > $docTypeStringsGenerated") == 0 || die "calling gperf failed: $?";
 
-} # case "DocTypeStrings"
+} # when "DocTypeStrings"
 
-case "ColorData" {
+when ("ColorData") {
 
     my $colorDataGenerated         = "$outdir/ColorData.cpp";
     my $colorDataGperf             = $ARGV[0];
@@ -48,6 +48,6 @@
 
     system("gperf --key-positions=\"*\" -D -s 2 $colorDataGperf > $colorDataGenerated") == 0 || die "calling gperf failed: $?";
 
-} # case "ColorData"
+} # when "ColorData"
 
 } # switch ($option)