summaryrefslogtreecommitdiff
path: root/ext/GDBM_File
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2022-03-02 20:20:03 +0000
committerKarl Williamson <khw@cpan.org>2022-03-02 14:30:40 -0700
commit198c4f174582886fed1dd36610fff68fbe836c8e (patch)
treeeda48bd24f87443c2e70f640b4547704c1ecc373 /ext/GDBM_File
parentbeeee505d7f886576428d870d64784ea937e21d6 (diff)
downloadperl-198c4f174582886fed1dd36610fff68fbe836c8e.tar.gz
Correct one spelling error
Eliminate hard tabs and trailing whitespace from two files. Increment $VERSION.
Diffstat (limited to 'ext/GDBM_File')
-rw-r--r--ext/GDBM_File/GDBM_File.pm100
-rw-r--r--ext/GDBM_File/t/dump.t18
2 files changed, 59 insertions, 59 deletions
diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm
index f99642549d..fe422a592a 100644
--- a/ext/GDBM_File/GDBM_File.pm
+++ b/ext/GDBM_File/GDBM_File.pm
@@ -67,7 +67,7 @@ This is a limitation of the gdbm library.
=head2 Tie
-Use the Perl buil-in B<tie> to associate a B<GDBM> database with a Perl
+Use the Perl built-in B<tie> to associate a B<GDBM> database with a Perl
hash:
tie %hash, 'GDBM_File', $filename, $flags, $mode;
@@ -608,7 +608,7 @@ same. This can happen only for databases in standard format.
The I<numsync> counters of the two snapshots differ by more than one. The
most probable reason is programmer's error: the two parameters refer to
-snapshots belonging to different database files.
+snapshots belonging to different database files.
=back
@@ -682,58 +682,58 @@ require XSLoader;
GDBM_SNAPSHOT_SAME
GDBM_SNAPSHOT_SUSPICIOUS
GDBM_NO_ERROR
- GDBM_MALLOC_ERROR
- GDBM_BLOCK_SIZE_ERROR
- GDBM_FILE_OPEN_ERROR
- GDBM_FILE_WRITE_ERROR
- GDBM_FILE_SEEK_ERROR
- GDBM_FILE_READ_ERROR
- GDBM_BAD_MAGIC_NUMBER
- GDBM_EMPTY_DATABASE
- GDBM_CANT_BE_READER
- GDBM_CANT_BE_WRITER
- GDBM_READER_CANT_DELETE
- GDBM_READER_CANT_STORE
- GDBM_READER_CANT_REORGANIZE
- GDBM_UNKNOWN_UPDATE
- GDBM_ITEM_NOT_FOUND
- GDBM_REORGANIZE_FAILED
- GDBM_CANNOT_REPLACE
- GDBM_ILLEGAL_DATA
- GDBM_OPT_ALREADY_SET
- GDBM_OPT_ILLEGAL
- GDBM_BYTE_SWAPPED
- GDBM_BAD_FILE_OFFSET
- GDBM_BAD_OPEN_FLAGS
- GDBM_FILE_STAT_ERROR
- GDBM_FILE_EOF
- GDBM_NO_DBNAME
- GDBM_ERR_FILE_OWNER
- GDBM_ERR_FILE_MODE
- GDBM_UNKNOWN_ERROR
- GDBM_NEED_RECOVERY
- GDBM_BACKUP_FAILED
- GDBM_DIR_OVERFLOW
- GDBM_BAD_BUCKET
- GDBM_BAD_HEADER
- GDBM_BAD_AVAIL
- GDBM_BAD_HASH_TABLE
- GDBM_BAD_DIR_ENTRY
- GDBM_FILE_CLOSE_ERROR
- GDBM_FILE_SYNC_ERROR
- GDBM_FILE_TRUNCATE_ERROR
- GDBM_BUCKET_CACHE_CORRUPTED
- GDBM_BAD_HASH_ENTRY
- GDBM_MALFORMED_DATA
- GDBM_OPT_BADVAL
- GDBM_ERR_SNAPSHOT_CLONE
- GDBM_ERR_REALPATH
- GDBM_ERR_USAGE
+ GDBM_MALLOC_ERROR
+ GDBM_BLOCK_SIZE_ERROR
+ GDBM_FILE_OPEN_ERROR
+ GDBM_FILE_WRITE_ERROR
+ GDBM_FILE_SEEK_ERROR
+ GDBM_FILE_READ_ERROR
+ GDBM_BAD_MAGIC_NUMBER
+ GDBM_EMPTY_DATABASE
+ GDBM_CANT_BE_READER
+ GDBM_CANT_BE_WRITER
+ GDBM_READER_CANT_DELETE
+ GDBM_READER_CANT_STORE
+ GDBM_READER_CANT_REORGANIZE
+ GDBM_UNKNOWN_UPDATE
+ GDBM_ITEM_NOT_FOUND
+ GDBM_REORGANIZE_FAILED
+ GDBM_CANNOT_REPLACE
+ GDBM_ILLEGAL_DATA
+ GDBM_OPT_ALREADY_SET
+ GDBM_OPT_ILLEGAL
+ GDBM_BYTE_SWAPPED
+ GDBM_BAD_FILE_OFFSET
+ GDBM_BAD_OPEN_FLAGS
+ GDBM_FILE_STAT_ERROR
+ GDBM_FILE_EOF
+ GDBM_NO_DBNAME
+ GDBM_ERR_FILE_OWNER
+ GDBM_ERR_FILE_MODE
+ GDBM_UNKNOWN_ERROR
+ GDBM_NEED_RECOVERY
+ GDBM_BACKUP_FAILED
+ GDBM_DIR_OVERFLOW
+ GDBM_BAD_BUCKET
+ GDBM_BAD_HEADER
+ GDBM_BAD_AVAIL
+ GDBM_BAD_HASH_TABLE
+ GDBM_BAD_DIR_ENTRY
+ GDBM_FILE_CLOSE_ERROR
+ GDBM_FILE_SYNC_ERROR
+ GDBM_FILE_TRUNCATE_ERROR
+ GDBM_BUCKET_CACHE_CORRUPTED
+ GDBM_BAD_HASH_ENTRY
+ GDBM_MALFORMED_DATA
+ GDBM_OPT_BADVAL
+ GDBM_ERR_SNAPSHOT_CLONE
+ GDBM_ERR_REALPATH
+ GDBM_ERR_USAGE
gdbm_check_syserr
);
# This module isn't dual life, so no need for dev version numbers.
-$VERSION = '1.22';
+$VERSION = '1.23';
our $gdbm_errno;
diff --git a/ext/GDBM_File/t/dump.t b/ext/GDBM_File/t/dump.t
index 1547774cca..5321b50d15 100644
--- a/ext/GDBM_File/t/dump.t
+++ b/ext/GDBM_File/t/dump.t
@@ -9,7 +9,7 @@ use Fcntl qw( :mode );
BEGIN {
plan(skip_all => "GDBM_File was not built")
- unless $Config{extensions} =~ /\bGDBM_File\b/;
+ unless $Config{extensions} =~ /\bGDBM_File\b/;
plan(tests => 18);
use_ok('GDBM_File');
@@ -69,15 +69,15 @@ SKIP: {
#
# Test loading the database
#
-
+
$db = tie(%h, 'GDBM_File', $dbname, GDBM_NEWDB, 0640);
isa_ok($db, 'GDBM_File');
is(eval { $db->load($dumpname); 1 }, 1, "Loading from ascii dump");
is_deeply({map { $_ => $h{$_} } sort keys %h},
- { one => 1, two => 2, three => 3 },
- "Restored database content");
-
+ { one => 1, two => 2, three => 3 },
+ "Restored database content");
+
is(eval { $db->load($dumpname); 1 }, undef, "Refuse to replace existing keys");
is(eval { $db->load($dumpname, replace => 1); 1 }, 1, "Replace existing keys");
@@ -93,9 +93,9 @@ SKIP: {
is(eval { $db->load($binname); 1 }, 1, "Loading from binary dump");
is_deeply({map { $_ => $h{$_} } sort keys %h},
- { one => 1, two => 2, three => 3 },
- "Restored database content");
-
+ { one => 1, two => 2, three => 3 },
+ "Restored database content");
+
}
-
+