Correct some comments

[perl/modules/subs-auto.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 5d09c90b109b0332eacd645cbd6b3d15b61043eb..48090834ca28e352157b7461fe2a60916a5eaf21 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -52,28 +52,28 @@ _got_ok('compiling to yay(11,13)');
 our @yay;
 is_deeply(\@yay, [ 11, 13 ], 'yay really was executed');
 
-eval "flip"; # Not called in sub::auto zone, not declared, not defined
+eval "flip"; # Not called in subs::auto zone, not declared, not defined
 _got_bareword('flip', 1, eval => 1);
 
-eval "flop"; # Not called in sub::auto zone, declared outside, not defined
+eval "flop"; # Not called in subs::auto zone, declared outside, not defined
 _got_undefined('flop', 1, eval => 1);
 
 my $qux;
-eval "qux"; # Called in sub::auto zone, not declared, not defined
+eval "qux"; # Called in subs::auto zone, not declared, not defined
 _got_bareword('qux', 1, eval => 1);
 
 my $blech;
-eval "blech"; # Called in sub::auto zone, declared outside, not defined
+eval "blech"; # Called in subs::auto zone, declared outside, not defined
 _got_undefined('blech', 1, eval => 1);
 
 my $wut;
-eval "wut"; # Called in sub::auto zone, declared and defined outside
+eval "wut"; # Called in subs::auto zone, declared and defined outside
 _got_ok('compiling to wut()');
 
 # === Starting from here ======================================================
 use subs::auto;
 
-# ... Called in sub::auto zone only, not declared, not defined ................
+# ... Called in subs::auto zone only, not declared, not defined ...............
 
 eval { onlycalledonce 1, 2 };
 _got_undefined('onlycalledonce', __LINE__-1);
@@ -102,7 +102,7 @@ is($c, 0, "hash keys shouldn't be converted");
 my $foo;
 our @foo;
 
-# ... Called in sub::auto zone, declared and defined inside ...................
+# ... Called in subs::auto zone, declared and defined inside ..................
 
 eval { foo 1, 2, \%h };
 _got_ok('compiling to foo(1,2,\\\%h)');
@@ -120,7 +120,7 @@ eval { &foo(7, 8, \%h) };
 _got_ok('compiling to foo(7,8,\\\%h)');
 is($foo, 27, '&foo() really was executed');
 
-# ... Called in sub::auto zone, declared and defined outside ..................
+# ... Called in subs::auto zone, declared and defined outside .................
 
 eval { wut 13, "what" };
 _got_ok('compiling to wut(13,"what")');
@@ -138,7 +138,7 @@ eval { &wut(25, "what") };
 _got_ok('compiling to wut(25,"what")');
 is($wut, 29, '&wut() really was executed');
 
-# ... Called in sub::auto zone, not declared, not defined .....................
+# ... Called in subs::auto zone, not declared, not defined ....................
 
 eval { qux };
 _got_undefined('qux', __LINE__-1);