Add or amplify inline comments as to placement of file in t/opbasic.

[perl5.git] / t / opbasic / qq.t

diff --git a/t/opbasic/qq.t b/t/opbasic/qq.t
index 3d1bfac..8dac6ec 100644 (file)
--- a/t/opbasic/qq.t
+++ b/t/opbasic/qq.t
@@ -5,6 +5,9 @@ BEGIN {
     @INC = '../lib';
 }
 
+# This file uses a specially crafted is() function rather than that found in
+# t/test.pl or Test::More.  Hence, we place this file in directory t/opbasic.
+
 print q(1..28
 );
 
@@ -20,7 +23,7 @@ sub is {
     }
     foreach ($left, $right) {
       # Comment out these regexps to map non-printables to ord if the perl under
-      # test is so broken that it's not helping
+      # test is so broken that it is not helping
       s/([^-+A-Za-z_0-9])/sprintf q{'.chr(%d).'}, ord $1/ge;
       $_ = sprintf q('%s'), $_;
       s/^''\.//;