This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Spelling nit by Jim Cromie
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 7 Sep 2007 15:50:10 +0000 (15:50 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 7 Sep 2007 15:50:10 +0000 (15:50 +0000)
p4raw-id: //depot/perl@31816

lib/DBM_Filter/t/encode.t

index b60fbb5..d7a8ef2 100644 (file)
@@ -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') };
 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)" ;
 
 eval { $db1->Filter_Push('encode') };
 is $@, '', "push an 'encode' filter (default to utf-8)" ;