[OpenAFS] patch : AFS-Monitor (Perl)

[Jeff Blaine]

In case Alf never gets to integrating this patch and
releasing 0.3.3, here is what is needed to get
AFS-Monitor to *build* with modern OpenAFS.  I have
not tested anything other than building yet, and I
am not a Perl extension author of any sort.

Original is here:

     http://www.cpan.org/authors/id/A/AL/ALFW/

Or here, though this may go away at some point
as I understand he has changed jobs:

     http://www.slac.stanford.edu/~alfw/AFS-Monitor/

diff -r -u AFS-Monitor-0.3.2/src/Monitor.xs AFS-Monitor-0.3.3/src/Monitor.xs
--- AFS-Monitor-0.3.2/src/Monitor.xs    2006-09-19 14:00:50.000001000 -0400
+++ AFS-Monitor-0.3.3/src/Monitor.xs    2011-05-31 13:32:48.000001000 -0400
@@ -164,7 +164,7 @@
     */

    static void
-myPrintTheseStats(HV *RXSTATS, struct rx_stats *rxstats)
+myPrintTheseStats(HV *RXSTATS, struct rx_statistics *rxstats)
    {
       HV *PACKETS;
       HV *TYPE;
@@ -8910,9 +8910,9 @@
            warn("WARNING: Server doesn't support retrieval of Rx
statistics\n");
          }
          else {
-        struct rx_stats rxstats;
+        struct rx_statistics rxstats;

-        /* should gracefully handle the case where rx_stats grows */
+        /* should gracefully handle the case where rx_statistics grows */
            code = rx_GetServerStats(s, host, port, &rxstats,
&supportedStatValues);
            if (code < 0) {
              sprintf(buffer, "rxstats call failed with code %d", code);