From 710fc16aa49a39baf8962a0eb4da34806a55f440 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Thu, 9 Jul 2009 14:54:41 +0000
Subject: [PATCH] Modified to build on Perl 5.8.4.

---
 src/cap5/Cap5.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cap5/Cap5.xs b/src/cap5/Cap5.xs
index be7c20a80..e1e38e5ca 100644
--- a/src/cap5/Cap5.xs
+++ b/src/cap5/Cap5.xs
@@ -764,11 +764,11 @@ void CA_get(SV *ca_ref) {
     if (ca_field_type(pch->chan) == DBF_CHAR &&
         count > 1) {
         if (!pch->sdata) {
-            Newx(pch->sdata, count + 1, char);
+            New(0, pch->sdata, count + 1, char);
             pch->ssize = count;
         } else if (pch->ssize < count) { /* Reconnected to larger array? */
             Safefree(pch->sdata);
-            Newx(pch->sdata, count + 1, char);
+            New(0, pch->sdata, count + 1, char);
             pch->ssize = count;
         }
         status = ca_array_get(DBF_CHAR, count, pch->chan, pch->sdata);