Updated Branches: refs/heads/master cc1773f90 -> bc527135f
TS-1186 Now reading the stats values and 64-bit int in the Perl stats API. Project: http://git-wip-us.apache.org/repos/asf/trafficserver/repo Commit: http://git-wip-us.apache.org/repos/asf/trafficserver/commit/bc527135 Tree: http://git-wip-us.apache.org/repos/asf/trafficserver/tree/bc527135 Diff: http://git-wip-us.apache.org/repos/asf/trafficserver/diff/bc527135 Branch: refs/heads/master Commit: bc527135f53ba48d2a0c22e4f581c8da3f8486d1 Parents: cc1773f Author: Bryan Call <[email protected]> Authored: Thu Apr 26 10:19:54 2012 -0700 Committer: Bryan Call <[email protected]> Committed: Thu Apr 26 10:19:54 2012 -0700 ---------------------------------------------------------------------- CHANGES | 2 ++ .../perl/AdminClient/lib/Apache/TS/AdminClient.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/trafficserver/blob/bc527135/CHANGES ---------------------------------------------------------------------- diff --git a/CHANGES b/CHANGES index cd8278d..70addb6 100644 --- a/CHANGES +++ b/CHANGES @@ -1,5 +1,7 @@ -*- coding: utf-8 -*- Changes with Apache Traffic Server 3.1.4 + *) [TS-1186] Fixed Perl stats API to work with 64-bit stat values + *) [TS-1227] header_filter "set" operator doesn't work if the header doesn't already exist. http://git-wip-us.apache.org/repos/asf/trafficserver/blob/bc527135/contrib/perl/AdminClient/lib/Apache/TS/AdminClient.pm ---------------------------------------------------------------------- diff --git a/contrib/perl/AdminClient/lib/Apache/TS/AdminClient.pm b/contrib/perl/AdminClient/lib/Apache/TS/AdminClient.pm index da6b241..4cba34a 100644 --- a/contrib/perl/AdminClient/lib/Apache/TS/AdminClient.pm +++ b/contrib/perl/AdminClient/lib/Apache/TS/AdminClient.pm @@ -194,7 +194,7 @@ sub get_stat { if ( $resp[0] == TS_ERR_OKAY ) { if ( $resp[2] < TS_REC_FLOAT ) { - @resp = unpack( "slsl", $res ); + @resp = unpack( "slsq", $res ); return undef unless ( scalar(@resp) == 4 ); return int( $resp[3] ); }
