diff --git a/t/gitweb-lib.sh b/t/gitweb-lib.sh
index 32b841dd2ea0325c31d8fb52e8fdb6a61fb3af3a..76d8b7b803b4134b65f2d4f624e29223dda2a7ee 100644 (file)
--- a/t/gitweb-lib.sh
+++ b/t/gitweb-lib.sh
rm -f gitweb.log &&
perl -- "$SCRIPT_NAME" \
>gitweb.output 2>gitweb.log &&
- sed -e '/^\r$/q' <gitweb.output >gitweb.headers &&
- sed -e '1,/^\r$/d' <gitweb.output >gitweb.body &&
+ perl -w -e '
+ open O, ">gitweb.headers";
+ while (<>) {
+ print O;
+ last if (/^\r$/ || /^$/);
+ }
+ open O, ">gitweb.body";
+ while (<>) {
+ print O;
+ }
+ close O;
+ ' gitweb.output &&
if grep '^[[]' gitweb.log >/dev/null 2>&1; then false; else true; fi
# gitweb.log is left for debugging