diff options
| -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)" ; |