diff options
| author | Karl Williamson <khw@cpan.org> | 2014-07-26 22:50:17 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-01-21 22:47:29 -0700 |
| commit | cafe9cf02cdf3ba071a336c9ce43f09530f13c62 (patch) | |
| tree | de06dee916d9583e62823638ea41e584b92bdd4a /lib/unicore | |
| parent | 96f226dcd1c032e4aa63811b6c7dcd3377c58e60 (diff) | |
| download | perl-cafe9cf02cdf3ba071a336c9ce43f09530f13c62.tar.gz | |
mktables: White-space only
The previous commit added a block around this code
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 6276d1ee4c..b7bf629972 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -2514,12 +2514,12 @@ END if ($v_version ge v3.2.0 && lc($file) ne 'unicodedata.txt') { if ($file !~ /^Unihan/i) { - $_ = <$file_handle>; - if ($_ !~ / - $string_version \. /x) { - chomp; - $_ =~ s/^#\s*//; - die Carp::my_carp("File '$file' is version '$_'. It should be version $string_version"); - } + $_ = <$file_handle>; + if ($_ !~ / - $string_version \. /x) { + chomp; + $_ =~ s/^#\s*//; + die Carp::my_carp("File '$file' is version '$_'. It should be version $string_version"); + } } else { while (<$file_handle>) { |