From da85ecb8100a34ccc17636776871fafc7a2853bf Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@khw-desktop.(none)>
Date: Wed, 30 Jun 2010 13:48:33 -0600
Subject: [PATCH] Add clarifying comments to charnames.t

---
 lib/charnames.t | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/charnames.t b/lib/charnames.t
index 33d0f99..3f6e5d9 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -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: $!";
-- 
1.8.3.1