Changeset 20450 for perl5

Timestamp:

05/18/08 18:15:11 (8 months ago)

Author:

clkao

Message:

Make Data::Bind compile cleanly.

Location:

perl5/Data-Bind

Files:

• Bind.xs (modified) (2 diffs)
• lib/Data/Bind.pm (modified) (1 diff)

perl5/Data-Bind/Bind.xs

@@ -230 +230 @@
     dSP;
     AV *_defargs = GvAV(PL_defgv);
-    AV *av = SvRV(cSVOPx_sv(PL_op));
+    AV *av = (AV *)SvRV(cSVOPx_sv(PL_op));
     int i;
     for (i = 0; i <= av_len(av); ++i) {
         SV *current_arg = *av_fetch(_defargs, i, 0);
         SV *entry = *av_fetch(av, i, 0);
-        IV order = SvIVX(*av_fetch(SvRV(entry), 0, 0));
-        SV *mode = *av_fetch(SvRV(entry), 1, 0); // XXX: should do SvOK
-        SV *default_sub = *av_fetch(SvRV(entry), 2, 0);
+        IV order = SvIVX(*av_fetch((AV *)SvRV(entry), 0, 0));
+        SV *mode = *av_fetch((AV *)SvRV(entry), 1, 0); // XXX: should do SvOK
+        SV *default_sub = *av_fetch((AV *)SvRV(entry), 2, 0);
         SAVECLEARSV(PAD_SVl(order));
         /* XXX: check if order is over items, if so it means it's empty and we should apply default_sub->() */
@@ -246 +246 @@
         else {
             PAD_SVl(order) = SvREFCNT_inc(current_arg);
+/*
+            PAD_SVl(order) = newSV(0);
+            __alias_a_to_b(PAD_SVl(order), current_arg, 0);
+*/
         }
     }

perl5/Data-Bind/lib/Data/Bind.pm

@@ -2 +2 @@
 use 5.008;
 use strict;
-our $VERSION = '0.29';
+our $VERSION = '0.30';
 
 use base 'Exporter';