Author: sparky Date: Mon Apr 11 20:41:29 2011 GMT Module: admin Tag: HEAD ---- Log message: - print cvs command output on error
---- Files affected: admin/distfiles: request-handler.pl (1.27 -> 1.28) ---- Diffs: ================================================================ Index: admin/distfiles/request-handler.pl diff -u admin/distfiles/request-handler.pl:1.27 admin/distfiles/request-handler.pl:1.28 --- admin/distfiles/request-handler.pl:1.27 Wed Dec 8 20:43:08 2010 +++ admin/distfiles/request-handler.pl Mon Apr 11 22:41:24 2011 @@ -72,9 +72,13 @@ $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); ================================================================ ---- CVS-web: http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/request-handler.pl?r1=1.27&r2=1.28&f=u _______________________________________________ pld-cvs-commit mailing list pld-cvs-commit@lists.pld-linux.org http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit