Print the status code in the profiling script

diff --git a/author/he-profile.pl b/author/he-profile.pl
index 863b515..31138be 100644 (file)
--- 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 (\$?=$?)";