Changeset 20440 for perl5

Timestamp:

05/17/08 17:16:58 (8 months ago)

Author:

clkao

Message:

fix copy mode pad assignment.

Files:

• perl5/Data-Bind/Bind.xs (modified) (1 diff)

perl5/Data-Bind/Bind.xs

@@ -241 +241 @@
         /* XXX: check if order is over items, if so it means it's empty and we should apply default_sub->() */
         if (SvIVX(mode)) {
+            PAD_SVl(order) = newSV(0);
             SvSetSV(PAD_SVl(order), SvREFCNT_inc(current_arg));
         }