Remove the --64-bit argument from scripts in favor of them detecting when 64-bit...
[WebKit-https.git] / WebKitTools / Scripts / gdb-safari
index daff7f9ff680daaab2d85ddbfd813cbf87fb189c..97762121592e70a40e981be61ea1c5179236383a 100755 (executable)
 use strict;
 use File::Temp qw/:mktemp/;
 use FindBin;
-use Getopt::Long qw(:config pass_through);
 use lib $FindBin::Bin;
 use webkitdirs;
 
-my $programName = basename($0);
-my $showHelp = 0;
-my $run64Bit;
-
-my $usage = <<EOF;
-Usage: $programName [options]
-  --help                          Show this help message
-  --64-bit                        Run in 64-bit mode
-EOF
-
-my $getOptionsResult = GetOptions(
-    'help' => \$showHelp,
-    '64-bit!' => \$run64Bit
-);
-
-if (!$getOptionsResult || $showHelp) {
-    print STDERR $usage;
-    exit 1;
-}
-
-setRun64Bit($run64Bit);
 setConfiguration();
 my $productDir = productDir();
 my $safariPath = safariPath();
@@ -67,17 +45,9 @@ die "Can't find gdb executable. Is gdb installed?\n" unless -x $gdbPath;
 # Check to see that all the frameworks are built.
 checkFrameworks();
 
-# Put a command to set DYLD_FRAMEWORK_PATH in a temp file.
-# Also set WEBKIT_UNSET_DYLD_FRAMEWORK_PATH to YES in this environment, so that
-# executables launched by Safari don't inherit using the new frameworks.
-my ($fh, $path) = mkstemp("/tmp/gdb-safari-XXXX");
-print $fh "set env DYLD_FRAMEWORK_PATH $productDir\n";
-print $fh "set env WEBKIT_UNSET_DYLD_FRAMEWORK_PATH YES\n";
-
-my @architectureFlags = ("-arch", preferredArchitecture()) if isAppleMacWebKit() && !isTiger();
-# Start up Safari.
-print "Start Safari under gdb with DYLD_FRAMEWORK_PATH set to point to built WebKit in $productDir.\n";
-exec $gdbPath, "-x", $path, @architectureFlags, $safariPath or die;
+$ENV{DYLD_FRAMEWORK_PATH} = $productDir;
+$ENV{WEBKIT_UNSET_DYLD_FRAMEWORK_PATH} = 'YES';
 
-# Delete the temporary file.
-unlink0($fh, $path) or die "Error unlinking file $path safely"; 
+print "Starting Safari under gdb with DYLD_FRAMEWORK_PATH set to point to built WebKit in $productDir.\n";
+my @architectureFlags = ("-arch", architecture()) if !isTiger();
+exec $gdbPath, @architectureFlags, $safariPath or die;