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