);
$db->{key1} = "value1";
$db->{key2} = "value2";
- $default = (stat($db->_fh()))[7];
+ $default = (stat($filename))[7];
}
{
$db->{key1} = "value1";
$db->{key2} = "value2";
- $medium = (stat($db->_fh()))[7];
+ $medium = (stat($filename))[7];
}
# This tests the header to verify that the pack_size is really there
$db->{key1} = "value1";
$db->{key2} = "value2";
- $small = (stat($db->_fh()))[7];
+ $small = (stat($filename))[7];
}
# This tests the header to verify that the pack_size is really there
cmp_ok( $medium, '>', $small, "medium is greater than small" );
}
+eval "pack('Q', 0);";
+my $haveQ = !$@;
+
SKIP: {
skip "Largefile support is not compiled into $^X", 3
- unless $Config{ use64bitall };
+ unless $haveQ;
my ($fh, $filename) = new_fh();
{
$db->{key1} = "value1";
$db->{key2} = "value2";
- $large = (stat($db->_fh()))[7];
+ $large = (stat($filename))[7];
}
# This tests the header to verify that the pack_size is really there
}
cmp_ok( $medium, '<', $large, "medium is smaller than large" );
}
+
+#SKIP: {
+# skip "Largefile support is compiled into $^X", 3
+# if $haveQ;
+#
+# my ($fh, $filename) = new_fh();
+# {
+# my $db = DBM::Deep->new(
+# file => $filename,
+# autoflush => 1,
+# pack_size => 'large',
+# );
+# }
+#
+#}