#!/usr/bin/perl -w

# Perl script for launching Safari using the frameworks in the
# /Content/Frameworks directory of the application bundle.
#
# See <http://www.michelf.com/weblog/2005/multi-safari/>

#
# Get path to current file so that we can set a find
# path for frameworks and launch the true Safari binary.
#
$here = __FILE__;
$here =~ s{^(.*)/.*?$}{$1};

#
# Make frameworks load from "Safari.app/Content/Frameworks"
# by using a relative path.
#
$ENV{DYLD_FRAMEWORK_PATH} = $here."/../Frameworks";

#
# Launch the true Safari binary.
#
exec "\"$here/TrueSafari\"" or die;
