From: gfx <gfuji@cpan.org>
Date: Mon, 16 Nov 2009 11:10:18 +0000 (+0900)
Subject: Print the status code in the profiling script
X-Git-Tag: 0.40_06~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c1c1e21ea96ac2e3fb524621e35089b272b0cae;p=gitmo%2FMouse.git

Print the status code in the profiling script
---

diff --git a/author/he-profile.pl b/author/he-profile.pl
index 863b515..31138be 100644
--- a/author/he-profile.pl
+++ b/author/he-profile.pl
@@ -24,10 +24,10 @@ print "Profiling $branch ...\n";
 my @cmd = ($^X, '-Iblib/lib', '-Iblib/arch', '-d:NYTProf', $script);
 
 print "> @cmd\n";
-system(@cmd) == 0 or die "Cannot profile";
-system(@cmd) == 0 or die "Cannot profile";
-system(@cmd) == 0 or die "Cannot profile";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
 
 @cmd = ($^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch");
 print "> @cmd\n";
-system(@cmd) == 0 or die "Cannot profile";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";