diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-08-02 16:36:51 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-08-13 14:36:20 +0200 |
| commit | 53ce39ec9c67bc99054a0728146d667dfedc9fa4 (patch) | |
| tree | 00df0e527166bc732ccb2c68eee329db68cc7532 /lib | |
| parent | 565064d1b0f5998285add90fd484b9191d00c520 (diff) | |
| download | perl-53ce39ec9c67bc99054a0728146d667dfedc9fa4.tar.gz | |
charnames.t: Guard agains empty lines in __DATA__
Somehow an empty line got inserted at the end of the file, and got
interpreted as 0's which caused the test for NULL to fail. This guards
against that.
I removed the empty line, but I'm not sure git has picked that up.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/charnames.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index a77fec2f6c..f41d5a3e83 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -850,6 +850,7 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); # from the web. while (<DATA>) { chomp; + next unless $_; # Guard against empty lines getting inserted. my ($code, $name) = split ";"; my $decimal = hex $code; $names[$decimal] = $name; |