diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-09 14:49:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-09 14:49:00 +0000 |
| commit | 55d7b906b92a1aeb0d5030f2388e4f9daaf4425f (patch) | |
| tree | 575bbd8c0ca8258180bf53476c273a41610a7ba4 /lib/utf8_heavy.pl | |
| parent | 17baacb7566a50d23189ae645624597ecca41aab (diff) | |
| download | perl-55d7b906b92a1aeb0d5030f2388e4f9daaf4425f.tar.gz | |
Rename lib/unicode files to lib/unicore to avoid
conflicts between core lib/unicode and Unicode::
files in case-ignoring filesystems.
p4raw-id: //depot/perl@11623
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index b73cea0463..a90e24ce71 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -24,7 +24,7 @@ sub SWASHNEW { my $caller; my $i = 0; while (($caller = caller($i)) eq __PACKAGE__) { $i++ } - my $encoding = $enc{$caller} || "unicode"; + my $encoding = $enc{$caller} || "unicore"; (my $file = $type) =~ s!::!/!g; if ($file =~ /^In(.+)/) { my $In = $1; |