- print cvs command output on error

Changed files:
    request-handler.pl -> 1.28

diff --git a/request-handler.pl b/request-handler.pl
index 7dcd881714ff7020eab269b12aacbb4487e42933..0d23b8a28435e156bbd088f99669a213696cba6c 100644 (file)
--- a/request-handler.pl
+++ b/request-handler.pl
@@ -72,9 +72,13 @@ $branch = "" if ($branch eq "HEAD");
 $branch = "-r \"$branch\"" if ($branch ne "");
 
 $specdir = File::Basename::basename($spec,('.spec'));
-if (system("cvs -d :pserver:cvs\@cvs.pld-linux.org:/cvsroot get $branch \"packages/$specdir/$spec\" >/dev/null 2>&1") != 0) {
+my $cvs_get = `cvs -d :pserver:cvs\@cvs.pld-linux.org:/cvsroot get $branch "packages/$specdir/$spec" 2>&1`;
+if ( $? ) {
   chdir($oldcwd);
-  report_fatal("cannot cvs get $spec at $branch")
+  my $at_branch = "";
+  $at_branch = " from branch $branch" if $branch;
+  my $code = $? >> 8;
+  report_fatal("cannot cvs get $spec$at_branch;\n$cvs_get\nexited with code $code");
 }
 
 chdir($oldcwd);