use Getopt::Long;
my $includeSVG = 0;
-GetOptions('svg' => \$includeSVG);
+my $includeTests = 1;
+GetOptions('svg' => \$includeSVG,
+ 'tests!' => \$includeTests);
# Check that we're in the right directory.
if (! -d "WebKitTools") {
# Check out all the sources.
print "CVS root is $root\n";
print "Checking out WebKitTools (again), JavaScriptCore, WebCore, WebKitLibraries";
+print ", LayoutTests" if $includeTests;
if ($includeSVG) {
print ", WebKit and SVGSupport\n";
} else {
print " and WebKit\n";
}
my $directories = "WebKitTools JavaScriptCore WebCore WebKitLibraries WebKit";
+$directories .= " LayoutTests" if $includeTests;
$directories .= " SVGSupport" if $includeSVG;
open CVS, "cvs -d '$root' co -P $directories |" or die;
while (<CVS>) {