Checked in the failure case for the retying

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Array.pm

diff --git a/lib/DBM/Deep/Array.pm b/lib/DBM/Deep/Array.pm
index 4c24806..2c28afa 100644 (file)
--- a/lib/DBM/Deep/Array.pm
+++ b/lib/DBM/Deep/Array.pm
@@ -364,14 +364,12 @@ sub SPLICE {
        return wantarray ? @old_elements : $old_elements[-1];
 }
 
-#XXX We don't need to define it, yet.
-#XXX It will be useful, though, when we split out HASH and ARRAY
-#sub EXTEND {
+sub EXTEND {
        ##
        # Perl will call EXTEND() when the array is likely to grow.
        # We don't care, but include it for compatibility.
        ##
-#}
+}
 
 ##
 # Public method aliases