r37046 - in /branches/upstream/libclass-xsaccessor-array-perl/current: AutoXS.h Changes META.yml lib/Class/XSAccessor/Array.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sun May 31 23:16:39 2009
New Revision: 37046

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37046
Log:
[svn-upgrade] Integrating new upstream version, libclass-xsaccessor-array-perl (1.03)

Modified:
    branches/upstream/libclass-xsaccessor-array-perl/current/AutoXS.h
    branches/upstream/libclass-xsaccessor-array-perl/current/Changes
    branches/upstream/libclass-xsaccessor-array-perl/current/META.yml
    branches/upstream/libclass-xsaccessor-array-perl/current/lib/Class/XSAccessor/Array.pm

Modified: branches/upstream/libclass-xsaccessor-array-perl/current/AutoXS.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-xsaccessor-array-perl/current/AutoXS.h?rev=37046&op=diff
==============================================================================
--- branches/upstream/libclass-xsaccessor-array-perl/current/AutoXS.h (original)
+++ branches/upstream/libclass-xsaccessor-array-perl/current/AutoXS.h Sun May 31 23:16:39 2009
@@ -1,4 +1,4 @@
-/* AutoXS::Header version '1.00' */
+/* AutoXS::Header version '1.01' */
 typedef struct {
   U32 hash;
   SV* key;
@@ -31,11 +31,13 @@
 /* implementation section */
 
 I32 get_hashkey_index(const char* key, const I32 len) {
+  I32 index;
+
   /* init */
   if (AutoXS_reverse_hashkeys == NULL)
     AutoXS_reverse_hashkeys = newHV();
 
-  I32 index = 0;
+  index = 0;
   if ( hv_exists(AutoXS_reverse_hashkeys, key, len) ) {
     SV** index_sv = hv_fetch(AutoXS_reverse_hashkeys, key, len, 0);
 
@@ -109,6 +111,8 @@
 }
 
 I32 get_internal_array_index(I32 object_ary_idx) {
+  I32 new_index;
+
   if (AutoXS_reverse_arrayindices_length <= object_ary_idx)
     _resize_array_init( &AutoXS_reverse_arrayindices,
                         &AutoXS_reverse_arrayindices_length,
@@ -118,7 +122,7 @@
   if (AutoXS_reverse_arrayindices[object_ary_idx] > -1)
     return AutoXS_reverse_arrayindices[object_ary_idx];
 
-  I32 new_index = _new_internal_arrayindex();
+  new_index = _new_internal_arrayindex();
   AutoXS_reverse_arrayindices[object_ary_idx] = new_index;
   return new_index;
 }

Modified: branches/upstream/libclass-xsaccessor-array-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-xsaccessor-array-perl/current/Changes?rev=37046&op=diff
==============================================================================
--- branches/upstream/libclass-xsaccessor-array-perl/current/Changes (original)
+++ branches/upstream/libclass-xsaccessor-array-perl/current/Changes Sun May 31 23:16:39 2009
@@ -1,4 +1,8 @@
 Revision history for Perl extension Class-XSAccessor-Array.
+
+1.03  Sun May 31 18:47 2009
+  - Upgrade to AutoXS::Header 1.01:
+    Make it C89!
 
 1.02  Sun May 17 11:22 2009
   - Use fixed AutoXS.h (prototyping issue)

Modified: branches/upstream/libclass-xsaccessor-array-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-xsaccessor-array-perl/current/META.yml?rev=37046&op=diff
==============================================================================
--- branches/upstream/libclass-xsaccessor-array-perl/current/META.yml (original)
+++ branches/upstream/libclass-xsaccessor-array-perl/current/META.yml Sun May 31 23:16:39 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Class-XSAccessor-Array
-version:            1.02
+version:            1.03
 abstract:           Generate fast XS accessors without runtime compilation
 author:
     - Steffen Mueller <smueller at cpan.org>

Modified: branches/upstream/libclass-xsaccessor-array-perl/current/lib/Class/XSAccessor/Array.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-xsaccessor-array-perl/current/lib/Class/XSAccessor/Array.pm?rev=37046&op=diff
==============================================================================
--- branches/upstream/libclass-xsaccessor-array-perl/current/lib/Class/XSAccessor/Array.pm (original)
+++ branches/upstream/libclass-xsaccessor-array-perl/current/lib/Class/XSAccessor/Array.pm Sun May 31 23:16:39 2009
@@ -5,7 +5,7 @@
 use warnings;
 use Carp qw/croak/;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 require XSLoader;
 XSLoader::load('Class::XSAccessor::Array', $VERSION);