diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-09 11:11:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-09 11:11:35 +0000 |
| commit | 3756e7ca8859282adfb92b71d3cd77c8f1bb038e (patch) | |
| tree | 40353da4305284c022a453aa5e315b1fd695e549 /lib/Unicode/Collate/t/hangul.t | |
| parent | 6e72d904e617d7842bb5f27ebd0bb001bf29b80f (diff) | |
| download | perl-3756e7ca8859282adfb92b71d3cd77c8f1bb038e.tar.gz | |
Upgrade to Unicode::Collate 0.50
p4raw-id: //depot/perl@24426
Diffstat (limited to 'lib/Unicode/Collate/t/hangul.t')
| -rw-r--r-- | lib/Unicode/Collate/t/hangul.t | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lib/Unicode/Collate/t/hangul.t b/lib/Unicode/Collate/t/hangul.t index fd6cc69394..d9f7db9b10 100644 --- a/lib/Unicode/Collate/t/hangul.t +++ b/lib/Unicode/Collate/t/hangul.t @@ -4,12 +4,9 @@ BEGIN { "cannot stringify a Unicode code point\n"; exit 0; } -} - -BEGIN { if ($ENV{PERL_CORE}) { - chdir('t') if -d 't'; - @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); + chdir('t') if -d 't'; + @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); } } @@ -20,9 +17,6 @@ use strict; use warnings; use Unicode::Collate; -use vars qw($IsEBCDIC); -$IsEBCDIC = ord("A") != 0x41; - ######################### ok(1); |