This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add clarifying comments to charnames.t
[perl5.git] / lib / charnames.t
index 33d0f99..3f6e5d9 100644 (file)
@@ -1,6 +1,9 @@
 #!./perl
 use strict;
 
+# Because \N{} is compile time, any warnings will get generated before
+# execution, so have to have an array, and arrange things so no warning
+# is generated twice to verify that in fact a warning did happen
 my @WARN;
 
 BEGIN {
@@ -585,6 +588,8 @@ my @prgs;
 
 for (@prgs) {
     my ($code, $exp) = ((split m/\nEXPECT\n/), '$');
+
+    # FILE is the code that generates any abbreviations
     my ($prog, $fil) = ((split m/\nFILE\n/, $code), "");
     my $tmpfile = tempfile();
     open my $tmp, "> $tmpfile" or die "Could not open $tmpfile: $!";