X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=author%2Fhe-profile.pl;h=31138be2bf2a492abf3a90499cacbc7ee1cbcda9;hp=863b515993d0c639b9998fb835f3aa03c65ec68b;hb=ca8e67d622c1a14bee4933ad64b1e465c5d63766;hpb=e35756639f8ad7fd92e617689afcd1c19d75ce5e

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 (\$?=$?)";