TS-3730: Fix changelog.pl for backward compatibility
Project: http://git-wip-us.apache.org/repos/asf/trafficserver/repo Commit: http://git-wip-us.apache.org/repos/asf/trafficserver/commit/7b0a57f4 Tree: http://git-wip-us.apache.org/repos/asf/trafficserver/tree/7b0a57f4 Diff: http://git-wip-us.apache.org/repos/asf/trafficserver/diff/7b0a57f4 Branch: refs/heads/master Commit: 7b0a57f434a9d64ce2eb81a04eef1ebc3402ccc7 Parents: 29b439c Author: Gota Adachi <[email protected]> Authored: Wed Jul 1 21:22:08 2015 -0600 Committer: Phil Sorber <[email protected]> Committed: Wed Jul 1 21:22:08 2015 -0600 ---------------------------------------------------------------------- tools/changelog.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/trafficserver/blob/7b0a57f4/tools/changelog.pl ---------------------------------------------------------------------- diff --git a/tools/changelog.pl b/tools/changelog.pl index 2b400a4..93ed023 100755 --- a/tools/changelog.pl +++ b/tools/changelog.pl @@ -49,7 +49,8 @@ sub jira_search $curl->setopt(CURLOPT_POST, 1); $curl->setopt(CURLOPT_POSTFIELDS, $req_body); $curl->setopt(CURLOPT_HTTPHEADER, ['Content-Type: application/json']); - $curl->setopt(CURLOPT_WRITEDATA, \$resp_body); + open(my $fileb, ">", \$resp_body); + $curl->setopt(CURLOPT_WRITEDATA, $fileb); $curl->setopt(CURLOPT_URL, $url . $endpoint); my $retcode = $curl->perform(); if ($retcode == 0 && $curl->getinfo(CURLINFO_HTTP_CODE) == 200) {
