# HG changeset patch
# User Chetan Kapoor <chetank@symbian.org>
# Date 1265646362 0
# Node ID 27cf0a88d449338f0df3bab12026d51d27e7aa30
# Parent  b6c06a8333fba35acf5bb6d828e6cd6d8d787c0d
Made the '-mirror' switch optional

diff -r b6c06a8333fb -r 27cf0a88d449 code_churn/churn_core.pl
--- a/code_churn/churn_core.pl	Fri Feb 05 14:53:29 2010 +0000
+++ b/code_churn/churn_core.pl	Mon Feb 08 16:26:02 2010 +0000
@@ -42,7 +42,8 @@
     die("$Logs_Dir does not exist \n");
 }
 
-$dir_left =~ m/^(\w+)\.[0-9a-fA-F]+/;
+#$dir_left =~ m/^(\w+)\.[0-9a-fA-F]+/;
+$dir_right =~ m/^(\w+)\.[0-9a-fA-F]+/;
 my $package_name = $1;
 
 $dir_left =~ m/^\w+\.([0-9a-fA-F]+)/;
diff -r b6c06a8333fb -r 27cf0a88d449 code_churn/fbf_churn.pl
--- a/code_churn/fbf_churn.pl	Fri Feb 05 14:53:29 2010 +0000
+++ b/code_churn/fbf_churn.pl	Mon Feb 08 16:26:02 2010 +0000
@@ -96,6 +96,7 @@
 my $licence = "";
 my $packagelist = "";
 my $verbose = 0;
+my $mirror = 0;
 my $help = 0;
 
 sub do_system
@@ -142,12 +143,15 @@
 my @verboseopt = ();
 @verboseopt = "-v" if ($verbose);
 
+my @mirroropt = ();
+@mirroropt = "-mirror" if ($mirror);
+
 my $new_rev = $new;
 $new_rev = "%REV%" if ($new_rev eq "");
 
 #TO_DO: Locate clone_all_packages relative to the location of this script.
 #TO_DO: Remove references to absolute paths, change to relative paths.
-do_system($clone_packages,@verboseopt,"-mirror","-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--",
+do_system($clone_packages,@verboseopt,@mirroropt,"-filter","$licence.*$codeline.*$filter",@packagelistopts,"-exec","--",
    "hg","--config","\"extensions.hgext.extdiff=\"","extdiff","-p",$churn_core,"-o",$churn_output_temp,
    "-r","$old","-r","$new_rev");