Mailing List Archive

svn commit: r1908771 - /httpd/dev-tools/github/apply_trunk_pr.sh
Author: gbechis
Date: Tue Mar 28 20:59:23 2023
New Revision: 1908771

URL: http://svn.apache.org/viewvc?rev=1908771&view=rev
Log:
fix syntax errors in perl(1) call

Modified:
httpd/dev-tools/github/apply_trunk_pr.sh

Modified: httpd/dev-tools/github/apply_trunk_pr.sh
URL: http://svn.apache.org/viewvc/httpd/dev-tools/github/apply_trunk_pr.sh?rev=1908771&r1=1908770&r2=1908771&view=diff
==============================================================================
--- httpd/dev-tools/github/apply_trunk_pr.sh (original)
+++ httpd/dev-tools/github/apply_trunk_pr.sh Tue Mar 28 20:59:23 2023
@@ -31,10 +31,10 @@ if ! curl -s -L ${DIFF_URL} | patch -p1
exit
fi

-curl -s https://api.github.com/repos/apache/httpd/pulls/${PR}/commits | jq .[].commit.message | perl -pe 's/^"//; s/"$//; s/\\n/\n/g; ' > clog
+curl -s https://api.github.com/repos/apache/httpd/pulls/${PR}/commits | jq '.[].commit.message' | perl -pe 's/^"//; s/"$//; s/\\n/\n/g; ' > clog

echo >> clog
-AUTHORS=`curl -s https://api.github.com/repos/apache/httpd/pulls/${PR}/commits | jq '.[].commit.author|.name,.email' | perl -e 'while (<>) { s/^"//; s/"$//; chomp $_; if (defined($a)) { $b{"$a <$_>\n"} = 1; $a = undef; } else { $a = $_; }} print join(",", map { chomp $_; $_ } sort, keys(%b)); '`
+AUTHORS=`curl -s https://api.github.com/repos/apache/httpd/pulls/${PR}/commits | jq '.[].commit.author|.name,.email' | perl -e 'while (<>) { s/^"//; s/"$//; chomp $_; if (defined($a)) { $b{"$a <$_>\n"} = 1; $a = undef; } else { $a = $_; }} print join(",", map { chomp $_; $_ } sort keys(%b)); '`
echo "Submitted by: $AUTHORS" >> clog

echo >> clog