[PATCH] Spelling fixes.

diff --git a/Changes b/Changes
index faa3870..d88403d 100644
--- a/Changes
+++ b/Changes
@@ -391,7 +391,7 @@ Jens Rehsack, Martin J. Evans, and H.Merijn Brand for all their contributions.
   Fixed DBI::PurePerl neat() to behave more like XS neat().
 
   Increased default $DBI::neat_maxlen from 400 to 1000.
-  Increased timeout on tests to accomodate very slow systems.
+  Increased timeout on tests to accommodate very slow systems.
   Changed behaviour of trace levels 1..4 to show less information
     at lower levels.
   Changed the format of the key used for $h->{CachedKids}
@@ -1200,7 +1200,7 @@ Jens Rehsack, Martin J. Evans, and H.Merijn Brand for all their contributions.
 
   Documentation changes:
     Documented $high_resolution_time = dbi_time() function.
-    Documented that bind_col() can take an atribute hash.
+    Documented that bind_col() can take an attribute hash.
     Clarified documentation for ParamValues attribute hash keys.
     Many good DBI documentation tweaks from Jonathan Leffler,
       including a major update to the DBI::DBD driver author guide.
@@ -1339,7 +1339,7 @@ Jens Rehsack, Martin J. Evans, and H.Merijn Brand for all their contributions.
   : If you are still using perl 5.005_03 you should be making plans to
   : upgrade to at least perl 5.6.1, or 5.8.0. Perl 5.8.0 is due to be
   : released in the next week or so.  (Although it's a "point 0" release,
-  : it is the most throughly tested release ever.)
+  : it is the most thoroughly tested release ever.)
 
   Added XS/C implementations of selectrow_array, selectrow_arrayref, and
     selectall_arrayref to Driver.xst. See DBI 1.26 Changes for more info.
@@ -1383,7 +1383,7 @@ Jens Rehsack, Martin J. Evans, and H.Merijn Brand for all their contributions.
 
   Added C implementations of selectrow_arrayref() and fetchall_arrayref()
     in Driver.xst.  All compiled drivers using Driver.xst will now be
-    faster making those calls. Most noticable with fetchall_arrayref for
+    faster making those calls. Most noticeable with fetchall_arrayref for
     many rows or selectrow_arrayref with a fast query. For example, using
     DBD::mysql a selectrow_arrayref for a single row using a primary key
     is ~20% faster, and fetchall_arrayref for 20000 rows is twice as fast!
@@ -2335,7 +2335,7 @@ Jens Rehsack, Martin J. Evans, and H.Merijn Brand for all their contributions.
   Added DBI->internal->{DebugLog} = $filename;
   Reworked internal logging.
   Added $VERSION.
-  Made disconnect_all a compulsary method for drivers.
+  Made disconnect_all a compulsory method for drivers.
 
 
 =head1 ANCIENT HISTORY
diff --git a/DBI.xs b/DBI.xs
index af76344..f1710b7 100644
--- a/DBI.xs
+++ b/DBI.xs
@@ -3516,7 +3516,7 @@ XS(XS_DBI_dispatch)
          */
         /* we want to localize $_ for the callback but can't just do that alone
          * because we're not using SAVETMPS & FREETMPS, so we have to get sneaky.
-         * We still localize, so we're safe from the callback dieing,
+         * We still localize, so we're safe from the callback dying,
          * but after the callback we manually restore the original $_.
          */
         orig_defsv = DEFSV; /* remember the current $_ */
diff --git a/DBIXS.h b/DBIXS.h
index cf1d056..9860bd5 100644
--- a/DBIXS.h
+++ b/DBIXS.h
@@ -41,7 +41,7 @@
 #include "dbi_sql.h"
 
 
-#define DBIXS_VERSION 93 /* superceeded by DBIXS_REVISION */
+#define DBIXS_VERSION 93 /* superseded by DBIXS_REVISION */
 
 #ifdef NEED_DBIXS_VERSION
 #if NEED_DBIXS_VERSION > DBIXS_VERSION
diff --git a/INSTALL b/INSTALL
index f8f40c6..e0d43f1 100644
--- a/INSTALL
+++ b/INSTALL
@@ -24,7 +24,7 @@ precompiled binary of DBI using a package manager (e.g., ppm for ActiveState,
 Synaptic for Ubuntu, port for FreeBSD etc) 
 
 ---
-If you get compiler errors refering to Perl's own header files
+If you get compiler errors referring to Perl's own header files
 (.../CORE/...h) or the compiler complains about bad options etc then
 there is something wrong with your perl installation. If the compiler complains
 of missing files (.../perl.h: error: sys/types.h: No such file) then you may
diff --git a/Old/TODO_gofer.txt b/Old/TODO_gofer.txt
index d33116b..f0b744b 100644
--- a/Old/TODO_gofer.txt
+++ b/Old/TODO_gofer.txt
@@ -6,7 +6,7 @@ add comparisons with other proxies to gofer docs (see notes)
     http://code.nytimes.com/projects/dbslayer
 update gofer pdf in distribution
 talk about multiple statements in single sql for gofer
-inbalance between two calls to _store_response_in_cache
+imbalance between two calls to _store_response_in_cache
     - the call in transmit_request doesn't have the response_needs_retransmit logic
 
 Add server-side caching.
diff --git a/dbiproxy.PL b/dbiproxy.PL
index c300ede..c3d84af 100644
--- a/dbiproxy.PL
+++ b/dbiproxy.PL
@@ -160,7 +160,7 @@ UID's can be passed as group names or numeric values.
 
 =item B<--version>
 
-Supresses startup of the server; instead the version string will
+Suppresses startup of the server; instead the version string will
 be printed and the program exits immediately.
 
 =back
diff --git a/devel/README b/devel/README
index 246edf5..5e817a6 100644
--- a/devel/README
+++ b/devel/README
@@ -1,6 +1,6 @@
 DBI being maintained by several people now causes a mixture
 of styles. It has been proven that people are most productive
-when they can do things `ther way'.
+when they can do things `their way'.
 
 Tim Bunce is the owner and main maintainer of DBI. He can and
 should veto anything that is forbidden, but for now, you'll
diff --git a/lib/DBD/DBM.pm b/lib/DBD/DBM.pm
index 3b7537d..a8fe8b9 100644
--- a/lib/DBD/DBM.pm
+++ b/lib/DBD/DBM.pm
@@ -176,7 +176,7 @@ sub get_dbm_versions
     eval {
         $dver = $meta->{dbm_type}->VERSION();
 
-        # *) when we're still alive here, everthing went ok - no need to check for $@
+        # *) when we're still alive here, everything went ok - no need to check for $@
         $dtype .= " ($dver)";
     };
     if ( $meta->{dbm_mldbm} )
diff --git a/lib/DBD/File.pm b/lib/DBD/File.pm
index 9efba44..0513b84 100644
--- a/lib/DBD/File.pm
+++ b/lib/DBD/File.pm
@@ -47,7 +47,7 @@ sub driver ($;$)
     # We use a hash here to have one singleton per subclass.
     # (Otherwise DBD::CSV and DBD::DBM, for example, would
     # share the same driver object which would cause problems.)
-    # An alternative would be not not cache the $drh here at all
+    # An alternative would be to not cache the $drh here at all
     # and require that subclasses do that. Subclasses should do
     # their own caching, so caching here just provides extra safety.
     $drh->{$class} and return $drh->{$class};
@@ -244,7 +244,7 @@ sub get_f_versions
     eval {
 	$dver = IO::File->VERSION ();
 
-	# when we're still alive here, everthing went ok - no need to check for $@
+	# when we're still alive here, everything went ok - no need to check for $@
 	$dtype .= " ($dver)";
 	};
 
diff --git a/lib/DBD/Gofer.pm b/lib/DBD/Gofer.pm
index b9afb5f..961ef6b 100644
--- a/lib/DBD/Gofer.pm
+++ b/lib/DBD/Gofer.pm
@@ -693,7 +693,7 @@
             or return undef; # no more result sets
         #warn "more_results: ".Data::Dumper::Dumper($meta);
 
-        # pull out the special non-atributes first
+        # pull out the special non-attributes first
         my ($rowset, $err, $errstr, $state)
             = delete @{$meta}{qw(rowset err errstr state)};
 
@@ -1159,7 +1159,7 @@ The code reference is called like this:
   $transport = $h->{go_transport};
   $retry = $transport->go_retry_hook->($request, $response, $transport);
 
-If it returns true then the request will be retried, upto the C<retry_limit>.
+If it returns true then the request will be retried, up to the C<retry_limit>.
 If it returns a false but defined value then the request will not be retried.
 If it returns undef then the default behaviour will be used, as if C<retry_hook>
 had not been specified.
diff --git a/lib/DBD/Gofer/Transport/Base.pm b/lib/DBD/Gofer/Transport/Base.pm
index 45edf2e..afe96cc 100644
--- a/lib/DBD/Gofer/Transport/Base.pm
+++ b/lib/DBD/Gofer/Transport/Base.pm
@@ -184,7 +184,7 @@ sub response_retry_preference {
     # This is the main decision point.  We don't retry requests that got
     # as far as executing because the error is probably from the database
     # (not transport) so retrying is unlikely to help. But note that any
-    # severe transport error occuring after execute is likely to return
+    # severe transport error occurring after execute is likely to return
     # a new response object that doesn't have the execute flag set. Beware!
     return 0 if $response->executed_flag_set;
 
diff --git a/lib/DBD/Multiplex.pm b/lib/DBD/Multiplex.pm
index e558de5..33942cb 100644
--- a/lib/DBD/Multiplex.pm
+++ b/lib/DBD/Multiplex.pm
@@ -156,7 +156,7 @@ sub mx_method_all {
 	}
     }
 
-    # this is where result-selection/comparision functionality can go
+    # this is where result-selection/comparison functionality can go
     my $return_result = $results->[0];
 
     return $return_result->[0] unless wantarray;
@@ -412,7 +412,7 @@ sub connect {
 	    }
 
 	    # The forced DESTROY before calling set_err using pre-cached values
-	    # is due to a wierd DBI interaction re errors and 'last handle'
+	    # is due to a weird DBI interaction re errors and 'last handle'
 	    undef @mx_dbh_list;	# force DESTROY now
 	    $drh->set_err($err, "$errstr [from mx_id=$mx_id: $dsn]");
 	    return;
@@ -602,7 +602,7 @@ for (sort keys %{ $DBI::DBI_methods{db} }) {
 
 
 ########################################
-# AUTOLOAD to catch methods not explictly handled elsewhere,
+# AUTOLOAD to catch methods not explicitly handled elsewhere,
 # including driver-specific methods, and multiplex via func
 # XXX using func isn't quite right, integrate with install_method/can?
 ########################################
@@ -768,7 +768,7 @@ for (sort keys %{ $DBI::DBI_methods{st} }) {
 }
 
 ########################################
-# AUTOLOAD to catch methods not explictly handled elsewhere,
+# AUTOLOAD to catch methods not explicitly handled elsewhere,
 # including driver-specific methods, and multiplex via func
 # XXX using func isn't quite right, integrate with install_method/can?
 ########################################
diff --git a/lib/DBD/NullP.pm b/lib/DBD/NullP.pm
index 9b07e91..bdd7f5d 100644
--- a/lib/DBD/NullP.pm
+++ b/lib/DBD/NullP.pm
@@ -132,7 +132,7 @@
         elsif ($sth->{Statement} =~ m/^ \s* ERROR \s+ (\d+) \s* (.*) /xmsi) {
             return $sth->set_err($1, $2);
         }
-        # anything else is silently ignored, sucessfully
+        # anything else is silently ignored, successfully
 	1;
     }
 
diff --git a/lib/DBD/Proxy.pm b/lib/DBD/Proxy.pm
index 90f6c27..287b2dc 100644
--- a/lib/DBD/Proxy.pm
+++ b/lib/DBD/Proxy.pm
@@ -885,7 +885,7 @@ persistent connections.
 
 However, if you set the I<proxy_no_finish> attribute to a TRUE value,
 either in the database handle or in the statement handle, then finish()
-calls will be supressed. This is what you want, for example, in small
+calls will be suppressed. This is what you want, for example, in small
 and fast CGI applications.
 
 =item proxy_quote
diff --git a/lib/DBI/DBD.pm b/lib/DBI/DBD.pm
index a56b194..9a43f5f 100644
--- a/lib/DBI/DBD.pm
+++ b/lib/DBI/DBD.pm
@@ -3453,16 +3453,16 @@ sub dbd_postamble {
     my $dbi_driver_xst= File::Spec->catfile($dbi_instarch_dir, 'Driver.xst');
     my $xstf_h = File::Spec->catfile($dbi_instarch_dir, 'Driver_xst.h');
 
-    # we must be careful of quotes, expecially for Win32 here.
+    # we must be careful of quotes, especially for Win32 here.
     return '
 # --- This section was generated by DBI::DBD::dbd_postamble()
 DBI_INSTARCH_DIR='.$dbi_instarch_dir.'
 DBI_DRIVER_XST='.$dbi_driver_xst.'
 
-# The main dependancy (technically correct but probably not used)
+# The main dependency (technically correct but probably not used)
 $(BASEEXT).c: $(BASEEXT).xsi
 
-# This dependancy is needed since MakeMaker uses the .xs.o rule
+# This dependency is needed since MakeMaker uses the .xs.o rule
 $(BASEEXT)$(OBJ_EXT): $(BASEEXT).xsi
 
 $(BASEEXT).xsi: $(DBI_DRIVER_XST) '.$xstf_h.'
diff --git a/lib/DBI/DBD/SqlEngine.pm b/lib/DBI/DBD/SqlEngine.pm
index 2bbc48e..689b742 100644
--- a/lib/DBI/DBD/SqlEngine.pm
+++ b/lib/DBI/DBD/SqlEngine.pm
@@ -54,7 +54,7 @@ sub driver ($;$)
     # We use a hash here to have one singleton per subclass.
     # (Otherwise DBD::CSV and DBD::DBM, for example, would
     # share the same driver object which would cause problems.)
-    # An alternative would be not not cache the $drh here at all
+    # An alternative would be to not cache the $drh here at all
     # and require that subclasses do that. Subclasses should do
     # their own caching, so caching here just provides extra safety.
     $drh->{$class} and return $drh->{$class};
@@ -1269,7 +1269,7 @@ sub fetch ($)
     {
         $sth->set_err(
             $DBI::stderr,
-            "Attempt to fetch row without a preceeding execute () call or from a non-SELECT statement"
+            "Attempt to fetch row without a preceding execute () call or from a non-SELECT statement"
         );
         return;
     }
@@ -2024,7 +2024,7 @@ following:
 
   $dbh->func( "list_tables" );
 
-Everytime where an C<\%attr> argument can be specified, this C<\%attr>
+Every time where an C<\%attr> argument can be specified, this C<\%attr>
 object's C<sql_table_source> attribute is preferred over the C<$dbh>
 attribute or the driver default, eg.
 
diff --git a/lib/DBI/FAQ.pm b/lib/DBI/FAQ.pm
index 0649e7c..737988a 100644
--- a/lib/DBI/FAQ.pm
+++ b/lib/DBI/FAQ.pm
@@ -605,7 +605,7 @@ Extracted from ``I<DBI - The Database Interface for Perl 5>'':
 
 To sum up, DBM is a perfectly satisfactory solution for essentially read-only
 databases, or small and simple datasets. However, for more
-scaleable dataset handling, not to mention robust transactional locking,
+scalable dataset handling, not to mention robust transactional locking,
 users are recommended to use a more powerful database engine I<via> I<DBI>.
 
 Chapter 2 of "Programming the Perl DBI" discusses DBM files in detail.
diff --git a/lib/DBI/Gofer/Execute.pm b/lib/DBI/Gofer/Execute.pm
index 780c577..5fdf9b3 100644
--- a/lib/DBI/Gofer/Execute.pm
+++ b/lib/DBI/Gofer/Execute.pm
@@ -613,7 +613,7 @@ sub _install_rand_callbacks {
             next;
         }
         unless (defined $fail_percent or defined $delay_percent) {
-            warn "Ignored DBI_GOFER_RANDOM item '$spec' because not preceeded by 'fail=N' and/or 'delayN=N'";
+            warn "Ignored DBI_GOFER_RANDOM item '$spec' because not preceded by 'fail=N' and/or 'delayN=N'";
             next;
         }
 
diff --git a/lib/DBI/ProxyServer.pm b/lib/DBI/ProxyServer.pm
index d3f9cbe..68ad4af 100644
--- a/lib/DBI/ProxyServer.pm
+++ b/lib/DBI/ProxyServer.pm
@@ -651,7 +651,7 @@ Create a configuration file "proxy_oracle.cfg" at the dbproxy-server:
 		},
 
 		# rule: employee_workplace
-		# desc: get detailled information
+		# desc: get detailed information
 		{
 			# any IP-address is meant here
 			mask => '^10\.95\.81\.(\d+)$',
@@ -809,7 +809,7 @@ Controlling which person at which machine is allowed to access
 
 =item * "mask" is a perl regular expression against the plain ip-address of the machine which wishes to connect _or_ the reverse-lookup from a nameserver.
 
-=item * "accept" tells the dbiproxy-server wether ip-adresse like in "mask" are allowed to connect or not (0/1)
+=item * "accept" tells the dbiproxy-server whether ip-adresse like in "mask" are allowed to connect or not (0/1)
 
 =item * "users" is a reference to a list of usernames which must be matched, this is NOT a regular expression.
 
diff --git a/t/01basics.t b/t/01basics.t
index 2c11f3c..8d9f9f9 100755
--- a/t/01basics.t
+++ b/t/01basics.t
@@ -141,8 +141,8 @@ is(neat(undef), "undef", '... neat : undef -> "undef"');
 
 ## testing neat_list
 
-is(neat_list([ 1 + 1, "2", undef, "foobarbaz"], 8, "|"), "2|'2'|undef|'foo...'", '... test array argument w/seperator and maxlen');
-is(neat_list([ 1 + 1, "2", undef, "foobarbaz"]), "2, '2', undef, 'foobarbaz'", '... test array argument w/out seperator or maxlen');
+is(neat_list([ 1 + 1, "2", undef, "foobarbaz"], 8, "|"), "2|'2'|undef|'foo...'", '... test array argument w/separator and maxlen');
+is(neat_list([ 1 + 1, "2", undef, "foobarbaz"]), "2, '2', undef, 'foobarbaz'", '... test array argument w/out separator or maxlen');
 
 
 ## ----------------------------------------------------------------------------
diff --git a/t/03handle.t b/t/03handle.t
index 7440ad0..5ea61b8 100644
--- a/t/03handle.t
+++ b/t/03handle.t
@@ -73,9 +73,9 @@ do {
         [ values %{$ck} ],
         [ $sth1 ]
         ), 
-    '... our statment handle should be in the CachedKids');
+    '... our statement handle should be in the CachedKids');
 
-    ok($sth1->{Active}, '... our first statment is Active');
+    ok($sth1->{Active}, '... our first statement is Active');
     
     {
 	my $warn = 0; # use this to check that we are warned
@@ -87,7 +87,7 @@ do {
 	is($sth1, $sth2, '... prepare_cached returned the same statement handle');
 	cmp_ok($warn,'==', 1, '... we got warned about our first statement handle being still active');
 	
-	ok(!$sth1->{Active}, '... our first statment is no longer Active since we re-prepared it');
+	ok(!$sth1->{Active}, '... our first statement is no longer Active since we re-prepared it');
 
 	my $sth3 = $dbh->prepare_cached($sql, { foo => 1 });
 	isa_ok($sth3, 'DBI::st');
@@ -98,7 +98,7 @@ do {
 	    [ values %{$ck} ],
 	    [ $sth1, $sth3 ]
 	    ), 
-	'... both statment handles should be in the CachedKids');    
+	'... both statement handles should be in the CachedKids');
 
 	ok($sth1->execute("."), '... executing first statement handle again');
 	ok($sth1->{Active}, '... first statement handle is now active again');
@@ -114,7 +114,7 @@ do {
 	    [ values %{$ck} ],
 	    [ $sth2, $sth4 ]
 	    ), 
-	'... second and fourth statment handles should be in the CachedKids');      
+	'... second and fourth statement handles should be in the CachedKids');
 	
 	$sth1->finish;
 	ok(!$sth1->{Active}, '... first statement handle is no longer active');    
@@ -136,7 +136,7 @@ do {
 	    [ values %{$ck} ],
 	    [ $sth2, $sth5 ]
 	    ), 
-	'... second and fourth/fifth statment handles should be in the CachedKids');     
+	'... second and fourth/fifth statement handles should be in the CachedKids');
     }
 
     SKIP: {
@@ -219,7 +219,7 @@ SKIP: {
 # this test checks for reference leaks by testing the Kids attribute
 # which is not supported by DBI::PurePerl, so we just do not run this
 # for DBI::PurePerl all together. Even though some of the tests would
-# pass, it does not make sense becuase in the end, what is actually
+# pass, it does not make sense because in the end, what is actually
 # being tested for will give a false positive
 
 sub work {
diff --git a/t/06attrs.t b/t/06attrs.t
index 89ba7c1..245ec78 100644
--- a/t/06attrs.t
+++ b/t/06attrs.t
@@ -38,8 +38,8 @@ ok( $dbh->{Warn},               '... checking Warn attribute for dbh');
 ok( $dbh->{Active},             '... checking Active attribute for dbh');
 ok( $dbh->{AutoCommit},         '... checking AutoCommit attribute for dbh');
 ok(!$dbh->{CompatMode},         '... checking CompatMode attribute for dbh');
-ok(!$dbh->{InactiveDestroy},    '... checking InactiveDestory attribute for dbh');
-ok(!$dbh->{AutoInactiveDestroy}, '... checking AutoInactiveDestory attribute for dbh');
+ok(!$dbh->{InactiveDestroy},    '... checking InactiveDestroy attribute for dbh');
+ok(!$dbh->{AutoInactiveDestroy}, '... checking AutoInactiveDestroy attribute for dbh');
 ok(!$dbh->{PrintError},         '... checking PrintError attribute for dbh');
 ok( $dbh->{PrintWarn},          '... checking PrintWarn attribute for dbh');	# true because of perl -w above
 ok( $dbh->{RaiseError},         '... checking RaiseError attribute for dbh');
@@ -111,8 +111,8 @@ ok( $drh->{Warn},               '... checking Warn attribute for drh');
 ok( $drh->{Active},             '... checking Active attribute for drh');
 ok( $drh->{AutoCommit},         '... checking AutoCommit attribute for drh');
 ok(!$drh->{CompatMode},         '... checking CompatMode attribute for drh');
-ok(!$drh->{InactiveDestroy},    '... checking InactiveDestory attribute for drh');
-ok(!$drh->{AutoInactiveDestroy}, '... checking AutoInactiveDestory attribute for drh');
+ok(!$drh->{InactiveDestroy},    '... checking InactiveDestroy attribute for drh');
+ok(!$drh->{AutoInactiveDestroy}, '... checking AutoInactiveDestroy attribute for drh');
 ok(!$drh->{PrintError},         '... checking PrintError attribute for drh');
 ok( $drh->{PrintWarn},          '... checking PrintWarn attribute for drh');	# true because of perl -w above
 ok(!$drh->{RaiseError},         '... checking RaiseError attribute for drh');
diff --git a/t/30subclass.t b/t/30subclass.t
index 3217a9e..9daae91 100644
--- a/t/30subclass.t
+++ b/t/30subclass.t
@@ -56,7 +56,7 @@ sub fetch {
 		if $row->[0] < 0;
 	# ... and providing alternate results
 	# (although typically would trap and hide and error from SUPER::fetch)
-	return $sth->set_err(2,"Don't exagerate",undef, undef, [ 42,"zz",0 ])
+	return $sth->set_err(2,"Don't exaggerate",undef, undef, [ 42,"zz",0 ])
 		if $row->[0] > 42;
     }
     return $row;
@@ -130,7 +130,7 @@ $row = eval { $sth->fetch };
 isa_ok($row, 'ARRAY');
 is($row->[0], 42);
 is($DBI::err, 2);
-like($DBI::errstr, qr/Don't exagerate/);
+like($DBI::errstr, qr/Don't exaggerate/);
 is($@ =~ /Don't be so negative/, $@);
 
 
diff --git a/t/85gofer.t b/t/85gofer.t
index bf7ec5c..ca31e21 100644
--- a/t/85gofer.t
+++ b/t/85gofer.t
@@ -86,7 +86,7 @@ my %trials = (
     #http       => { url => "http://localhost:8001/gofer" },
 );
 
-# too dependant on local config to make a standard test
+# too dependent on local config to make a standard test
 delete $trials{http} unless $username eq 'timbo' && -d '.svn';
 
 my @transports = ($opt_transport) ? ($opt_transport) : (sort keys %trials);
diff --git a/t/lib.pl b/t/lib.pl
index e1512c6..219dd2e 100644
--- a/t/lib.pl
+++ b/t/lib.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # lib.pl is the file where database specific things should live,
-# whereever possible. For example, you define certain constants
+# wherever possible. For example, you define certain constants
 # here and the like.
 
 use strict;