--- webkit-1.2.7/WebCore/dom/make_names.pl
+++ webkit-1.2.7/WebCore/dom/make_names.pl
@@ -29,13 +29,13 @@
 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 use strict;
+use 5.010;
 
 use Config;
 use Getopt::Long;
 use File::Path;
 use IO::File;
 use InFilesParser;
-use Switch;
 
 my $printFactory = 0; 
 my $printWrapperFactory = 0; 
@@ -206,14 +206,14 @@
 
     my $InParser = InFilesParser->new();
 
-    switch ($type) {
-        case "tags" {
+    given ($type) {
+        when ("tags") {
             $InParser->parse($names, \&parametersHandler, \&tagsHandler);
         }
-        case "attrs" {
+        when ("attrs") {
             $InParser->parse($names, \&parametersHandler, \&attrsHandler);
         }
-        else {
+        default {
             die "Do not know how to parse $type";
         }
     }