I have modified the test case to have it use GDBM extension explicitly:
#!./perl
BEGIN {
@INC = '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bGDBM_File\b/) {
print "1..0\n";
exit 0;
}
}
use GDBM_File;
$dbm = "DBM_TEST";
#dbmopen( %array,$dbm,0777 ) || die "Can't open $dbm: $!";
print(tie( %array,GDBM_File, "$dbm",&GDBM_WRCREAT, 0777 ) ? "ok 1\n" : "not ok
1\n");
$INFO =
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n" .
"blahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblahblah\n";
$array{"INFO"} = $INFO;
#dbmclose( array );
untie(%array );
#dbmopen( %read_array,$dbm,0777 ) || die "Can't open $dbm: $!";
print(tie( %read_array,GDBM_File, "$dbm",&GDBM_WRCREAT, 0777 ) ? "ok 2\n" : "not
ok 2\n");
$foo = $read_array{"INFO"};
# if got this far, means the big row is supported by the perl
print "$foo\n";
#print "ok 1\n";
#dbmclose( read_array );
untie(%read_array );
exit;
>
> The more serious problem is that in its current state the test can't be
> put into the standard distribution because it assumes gdbm. The test
> should be attempted only if we *think* we're running with a dbm that
> supports big items. Otherwise we'll spend all our time answering the
> questions of people who think their regression tests have failed.
>
> Larry