This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typos in gv.t
authorFather Chrysostomos <sprout@cpan.org>
Sun, 6 Nov 2011 20:57:12 +0000 (12:57 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 6 Nov 2011 20:58:46 +0000 (12:58 -0800)
t/op/gv.t

index 81e7ba8..b681638 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -856,13 +856,13 @@ ok eval {
   my $glob = do { no warnings "once"; \*phing::foo};
   delete $::{"phing::"};
   *$glob = *greck; 
   my $glob = do { no warnings "once"; \*phing::foo};
   delete $::{"phing::"};
   *$glob = *greck; 
-}, "Assigning a glob-with-sub to a glob that has lost its stash warks";
+}, "Assigning a glob-with-sub to a glob that has lost its stash works";
 ok eval {
   sub pon::foo;
   my $glob = \*pon::foo;
   delete $::{"pon::"};
   *$glob = *foo; 
 ok eval {
   sub pon::foo;
   my $glob = \*pon::foo;
   delete $::{"pon::"};
   *$glob = *foo; 
-}, "Assigning a glob to a glob-with-sub that has lost its stash warks";
+}, "Assigning a glob to a glob-with-sub that has lost its stash works";
 
 {
   package Tie::Alias;
 
 {
   package Tie::Alias;