add a hook in here for moose to override

[gitmo/Class-MOP.git] / bench / profile.pl

diff --git a/bench/profile.pl b/bench/profile.pl
index c4ffc6f..4ea5b01 100755 (executable)
--- a/bench/profile.pl
+++ b/bench/profile.pl
@@ -5,21 +5,21 @@ use strict;
 
 my $script = 'bench/foo.pl';
 
-my $branch = do{
-       open my $in, '.git/HEAD' or die "Cannot open .git/HEAD: $!";
-       my $s = scalar <$in>;
-       chomp $s;
-       $s =~ s{^ref: \s+ refs/heads/}{}xms;
-       $s =~ s{/}{_}xmsg;
-       $s;
+my $branch = do {
+    open my $in, '.git/HEAD' or die "Cannot open .git/HEAD: $!";
+    my $s = scalar <$in>;
+    chomp $s;
+    $s =~ s{^ref: \s+ refs/heads/}{}xms;
+    $s =~ s{/}{_}xmsg;
+    $s;
 };
 
 print "Profiling $branch ...\n";
 
-my @cmd = ($^X, '-Iblib/lib', '-Iblib/arch', $script);
+my @cmd = ( $^X, '-Iblib/lib', '-Iblib/arch', $script );
 print "> @cmd\n";
 system(@cmd) == 0 or die "Cannot profile";
 
-@cmd = ($^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch");
+@cmd = ( $^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch" );
 print "> @cmd\n";
 system(@cmd) == 0 or die "Cannot profile";