Update ICU to 54.1 step 1

source/test/perf/perldriver/PerfFramework.pm

 #!/usr/local/bin/perl
 #  ***********************************************************************
 #  * COPYRIGHT:
 #  * Copyright (c) 2002-2013, International Business Machines Corporation
 #  * and others. All Rights Reserved.
 #  ***********************************************************************
 
 use strict;
 
 #use Dataset;
@@ skipping 79 matching lines @@
 }
 
 sub compareLoop {
   my $tests = shift;
   #my @tests = @{$tests};
   my %tests = %{$tests};
   my $locale = shift;
   my $datafile = shift;
   my $locAndData = "";
   if($locale) {
-    $locAndData .= " -L $locale";
+    $locAndData .= " -L \"$locale\"";
   }
   if($datafile) {
     $locAndData .= " -f $datafile";
   }
 
   my $args;
   my ($i, $j, $aref);
   foreach $i ( sort keys %tests ) {
     debug("Test: $i\n");
     $aref = $tests{$i};
@@ skipping 270 matching lines @@
     $ms_str[0] .= " (discarded)" if (@ms_str > 1);
     out("Raw times (ms/pass): ", join(", ", @ms_str), "<BR>\n");
 
     ($iterCount, $eventsPerIter, @ms);
 }
 
 
 1;
 
 #eof