Make it easy to run Safari in the debugger on Windows
[WebKit-https.git] / WebKitTools / Scripts / run-safari
index b044ddfe68434c512dd9fadfbde58f45178148d9..4474b69273102d30f2c382d4d2483ba4700ce738 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# Copyright (C) 2005 Apple Computer, Inc.  All rights reserved.
+# Copyright (C) 2005, 2007 Apple Inc. All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # Simplified "run" script for Web Kit Open Source Project.
 
 use strict;
-use File::Temp qw/tempfile/;
 use FindBin;
 use lib $FindBin::Bin;
 use webkitdirs;
 
 setConfiguration();
-my $productDir = productDir();
-my $safariPath = safariPath();
 
 # Check to see that all the frameworks are built.
 checkFrameworks();
 
-# Set up DYLD_FRAMEWORK_PATH to point to the product directory.
-print "Starting Safari with DYLD_FRAMEWORK_PATH set to point to built WebKit in $productDir.\n";
-
-my @args;
-if (isOSX()) {
-    $ENV{DYLD_FRAMEWORK_PATH} = $productDir;
-    $ENV{WEBKIT_UNSET_DYLD_FRAMEWORK_PATH} = "YES";
-    @args = @ARGV;
-} elsif (isCygwin()) {
-    my $script = "run-webkit-nightly.cmd";
-    my $result = system "cp", "$FindBin::Bin/$script", $productDir;
-    die if $result;
-
-    chdir $productDir;
-
-    $safariPath = "cmd";
-    @args = ("/c", "call $script");
-}
-exec $safariPath, @args or die;
-
+exit exitStatus(runSafari());