diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-11-28 02:02:02 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-30 14:29:23 +0000 |
| commit | 979f29225180f8c09f4adec52f850ae45694fd81 (patch) | |
| tree | 2a19e5d269deb62b035de4c272f457862d7574f8 /lib | |
| parent | 8f7f721921e56db1ab4fa5e3365e8f86077b2518 (diff) | |
| download | perl-979f29225180f8c09f4adec52f850ae45694fd81.tar.gz | |
Re: XS-assisted SWASHGET (esp. for t/uni/class.t speedup)
Message-Id: <20051127170016.A786.BQW10602@nifty.com>
p4raw-id: //depot/perl@26229
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 229ed97536..e5fd6e3634 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -266,12 +266,6 @@ sub SWASHNEW { return $SWASH; } -# NOTE: utf8.c:swash_init() assumes entries are never modified once generated. -sub SWASHGET { - # See utf8.c:Perl_swash_fetch for problems with this interface. - # See universal.c for XS utf8::SWASHGET_heavy. - # USAGE: $swatch = utf8::SWASHGET_heavy($self, $start, $len, DEBUG); - return utf8::SWASHGET_heavy($_[0], $_[1], $_[2], DEBUG); -} +# Now SWASHGET is recasted into a C function S_swash_get (see utf8.c). 1; |