diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-07 15:50:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-07 15:50:10 +0000 |
| commit | c3a085ec5ba5769f306d1c263e6f0af825754ac5 (patch) | |
| tree | 9fcfca6e6e944fbf824526c34bea3854f2cd0d1e | |
| parent | 01f3e2c1cd43174851bb1912088c3670957c6baf (diff) | |
| download | perl-c3a085ec5ba5769f306d1c263e6f0af825754ac5.tar.gz | |
Spelling nit by Jim Cromie
p4raw-id: //depot/perl@31816
| -rw-r--r-- | lib/DBM_Filter/t/encode.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/DBM_Filter/t/encode.t b/lib/DBM_Filter/t/encode.t index b60fbb54e0..d7a8ef233f 100644 --- a/lib/DBM_Filter/t/encode.t +++ b/lib/DBM_Filter/t/encode.t @@ -46,7 +46,7 @@ my $db1 = tie(%h1, $db_file,'Op_dbmx', O_RDWR|O_CREAT, 0640) ; ok $db1, "tied to $db_file"; eval { $db1->Filter_Push('encode' => 'blah') }; -like $@, qr/^Encoding 'blah' is not available/, "push an illigal filter" ; +like $@, qr/^Encoding 'blah' is not available/, "push an illegal filter" ; eval { $db1->Filter_Push('encode') }; is $@, '', "push an 'encode' filter (default to utf-8)" ; |