diff options
author | James E Keenan <jkeenan@cpan.org> | 2022-03-02 20:20:03 +0000 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-03-02 14:30:40 -0700 |
commit | 198c4f174582886fed1dd36610fff68fbe836c8e (patch) | |
tree | eda48bd24f87443c2e70f640b4547704c1ecc373 /ext/GDBM_File | |
parent | beeee505d7f886576428d870d64784ea937e21d6 (diff) | |
download | perl-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.pm | 100 | ||||
-rw-r--r-- | ext/GDBM_File/t/dump.t | 18 |
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"); + } - + |