This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add clarifying comments to charnames.t
authorKarl Williamson <khw@khw-desktop.(none)>
Wed, 30 Jun 2010 19:48:33 +0000 (13:48 -0600)
committerJesse Vincent <jesse@bestpractical.com>
Sun, 4 Jul 2010 20:43:41 +0000 (21:43 +0100)
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: $!";