Dan Kogai wrote:
On Tuesday, April 9, 2002, at 10:39 , Nick Ing-Simmons wrote:
I _think_ that gets me back to where I was. Now I can see if I can
get jis0208 to work ...
Thank you and your patches are applied flawlessly.
--- lib/Encode/Unicode.pm.ship Tue Apr 9 14:28:13 2002
+++ lib/Encode/Unicode.pm Tue Apr 9 14:28:51 2002
@@ -18,7 +18,7 @@
if ($_[0] < 0xD800){
return $_[0] > 0;
}else{
- return ($_[0] > 0xDFFFF && $_[0] <= 0xFFFF);
+ return ($_[0] > 0xDFFF && $_[0] <= 0xFFFF);
}
}
Aaaagh, superfluous F again! Everyone, beware of the number of
hexadecimal digits.
If you're worried that much, then do:
find . -print | xargs perl -wlne 'print "$ARGV:$.: $_" if
/0x(?:[0-9a-f]{2})*[0-9a-f](?![0-9a-f])/i'
This [untested] bit of code should find any 0x folloed by an odd number
of hex digits.
Dan the Man with Too Many F's
--
print reverse( ",rekcah", " lreP", " rehtona", " tsuJ" )."\n";
