[Getdata-commits] SF.net SVN: getdata:[885] trunk/getdata/bindings/perl/GetData.xs

[<ket...@us...>]

Revision: 885
          http://sourceforge.net/p/getdata/code/885
Author:   ketiltrout
Date:     2014-04-12 19:19:46 +0000 (Sat, 12 Apr 2014)
Log Message:
-----------
Bugs.

Modified Paths:
--------------
    trunk/getdata/bindings/perl/GetData.xs

Modified: trunk/getdata/bindings/perl/GetData.xs
===================================================================
--- trunk/getdata/bindings/perl/GetData.xs	2014-04-12 19:19:33 UTC (rev 884)
+++ trunk/getdata/bindings/perl/GetData.xs	2014-04-12 19:19:46 UTC (rev 885)
@@ -284,7 +284,7 @@
       croak("%s::%s() - Key 'in_fields' must be list or string in entry hash",
           pkg, func);
   } else {
-    int have[GD_MAX_LINCOM];
+    int have[GD_MAX_LINCOM * 2];
 
     memset(have, 0, sizeof(int) * GD_MAX_LINCOM * 2);
 
@@ -305,7 +305,7 @@
 
   if (n < min || n > max) {
     croak("%s::%s() - Bad array length (%i) for key 'in_fields' in entry hash",
-        n, pkg, func);
+        pkg, func, n);
   }
 
   dreturn("%i", n);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.