Correct one spelling error

Eliminate hard tabs and trailing whitespace from two files. Increment $VERSION.
Perl · Mar 2, 2022 · 6e6852b · 6e6852b
1 parent beeee50
commit 6e6852b
Show file tree

Hide file tree

Showing 2 changed files with 59 additions and 59 deletions.
diff --git 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
@@ -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");
+
 }
 
-     
+