Skip to content
Browse files

webkit: fix for perl 5.14+

Change-Id: Id740fff1824d11fef21995d0c472f923e70b3a46
  • Loading branch information...
1 parent 424ff4c commit 8b265e1b2646a4a97598ab7e4f360acd28230c36 @TomGiordano TomGiordano committed with ProTekk Nov 15, 2011
Showing with 7 additions and 8 deletions.
  1. +7 −7 Source/WebCore/make-hash-tools.pl
  2. +0 −1 Source/WebKit/scripts/generate-webkitversion.pl
View
14 Source/WebCore/make-hash-tools.pl
@@ -20,34 +20,34 @@
# Boston, MA 02110-1301, USA.
use strict;
-use Switch;
+use feature qw{ switch };
use File::Basename;
my $outdir = $ARGV[0];
shift;
my $option = basename($ARGV[0],".gperf");
-switch ($option) {
+given ($option) {
-case "DocTypeStrings" {
+when ("DocTypeStrings") {
my $docTypeStringsGenerated = "$outdir/DocTypeStrings.cpp";
my $docTypeStringsGperf = $ARGV[0];
shift;
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];
shift;
system("gperf --key-positions=\"*\" -D -s 2 $colorDataGperf > $colorDataGenerated") == 0 || die "calling gperf failed: $?";
-} # case "ColorData"
+} # when "ColorData"
-} # switch ($option)
+} # given ($option)
View
1 Source/WebKit/scripts/generate-webkitversion.pl
@@ -39,7 +39,6 @@
use Config;
use Getopt::Long;
use File::Path;
-use Switch;
my $usage = "generate-webkitversion --config WebKit/mac/Configurations/Version.xcconfig --outputDir <outputdir>";

0 comments on commit 8b265e1

Please sign in to comment.
Something went wrong with that request. Please try again.