view release on metacpan or search on metacpan
lib/Linux/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/Linux/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Locale/ID/Locality.pm view on Meta::CPAN
['7401','74','BUTON','2'],
['7402','74','MUNA','2'],
['7403','74','KONAWE','2'],
['7404','74','KOLAKA','2'],
['7405','74','KONAWE SELATAN','2'],
['7406','74','BOMBANA','2'],
['7407','74','WAKATOBI','2'],
['7408','74','KOLAKA UTARA','2'],
['7409','74','BUTON UTARA','2'],
['7410','74','KONAWE UTARA','2'],
['7471','74','KENDARI','1'],
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Locale/SubCountry/Codes.pm view on Meta::CPAN
"name": "Boujdour (EH)",
"parent": "11",
"type": "Province"
},
{
"code": "MA-BOM",
"name": "Boulemane",
"parent": "03",
"type": "Province"
},
{
view all matches for this distribution
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
* CPAN RT #86917: Invalid META.
* Move Japanese documentation under POD2::JA.
1.010 2013-04-09 Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>
* Fix: UTF-16 & UTF-32 encoders are died by the texts without BOM.
* Added a test #6 and some cases to test #4.
* Changed layout of distribution.
1.009.3 2012-12-30 Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>
view all matches for this distribution
view release on metacpan or search on metacpan
t/test-utf8-bom.t view on Meta::CPAN
use Test::More tests => 4;
use MIME::Parser;
use IO::File;
# Handle a UTF-8 BOM at start of headers
my $parser = MIME::Parser->new();
$parser->output_to_core(1);
my $entity = $parser->parse(IO::File->new('testmsgs/utf8-bom-at-start.msg'));
view all matches for this distribution
view release on metacpan or search on metacpan
t/msgs/Default view on Meta::CPAN
leCWeNmLiNYoXVyT1JPPp3zikupYi2xZWjimHCu4Tdg8g4anPcxWwtpYmiceWBLk7ssfXDd/
69BUUKLbzu0lysZk58mIlj6gDLjFaruybS2aGCNTDCwuNnmSBfMQ5jIB9S3HpxUwfyZCsrAM
x8tWDA5H1DGoop5lUhA8jrkAylguM54G7096fqEYdd5lEAL7yfMbGOnALih6uzJnDuiJrqNW
keOd1fa0YE0hAA6HgMMj8+tbHhdE+2iNzkg8YIG0Y/3ufyrG1SNLjfcmS4lkTEaruVkKHnOd
+QfY1u+EZ43uDMWWWVgMvgAEDpgZqK1vZNoIqz1PQntLdylwxDyEcMSCVX6g0onASZhLPKIk
BOMny16AD0GaZb7Fcqr+cXQAtkkPjuOcD8KBLLHGcqJGWMDtu256cmvHVN1IqNNXv0tb7m9z
s5U0VrZkl8wQytM7DKmXsPQjIqwD5LLhmV5MKImGBjvzmqxd1EKowyRtxGp+bnryT/OryPM0
Yh3EYYASEj5SfUk8VyNX1b07CSaT0shEiE0PyyRrIrcqzcqM+gPtU+N1whV5NjKRnA2/UnPW
q28yM6MwfaxXcrAhsdSCDVqymIjyFQwspy4fv0AwTjHvW06ajT51O67dv0NFdrVmqy4spIo3
BckNzgkD0rnrlQ8yxk7ZAMFo3KjJ9Ruro7dP3c53xIiR5OWClQB7muZmjX7RIsLEsPvhiMIe
3Gc81pFU0vf1flpb73f8kVGPOI0whEb+eMxvym4cE8ZIzzTrecs7hxuOeWQf/rqK7jZcYQbc
t/msgs/Default view on Meta::CPAN
69KYZY41Dx4AOQcA+1ZTa1Z3K72kQDIJ4ByRVDUvEVlCObmJTKfljVhnH0JrwKkKdOKjUlK1
/P71poelZQWo+68U3MaskMsiuPlUMSxH5mt3w5r9/cW7pJJJxxzzn3bjivONX8W2Fm1ztdBj
BQ5HPH+9XNxfGXTtIkuyZozKqYZAwILHoDhh+ZrtnCNVOjCXTW1n+JFOrCPxH0Q3idrEgyz4
+XBbdzj0rkfH/wAVrOz0+bbMsu5CCR1I9DXzn4s/aOjS2ZorqOZ0b5xGw2Kv+1hgeeleJ658
UtV1+ZQLhXiG4tEC2CDzgbpM/wA63w+DxVaLcbQitru/4GVXFQgrLW51Q1jf4/v9QhmMMVwc
7I/mVsjBOM4zgYrotQ1GK6hi3RFJ1VWKLICy57nkgH2yK8o8LCWSZbgsHcv9wlvkUDuS/U+m
K9F13VkkQPAwyyj5SvJbHTJbp71pXw6lUV/ea36BQtye/Em0qZLct8w2MQSynA3E85554rQk
hRVmbdt3HsSMD865y01CSN1SJ0jROqliSWP1z+ftV6S+ZGEsjhsgoEcnJOOo+YdPoa86dNqV
uaxvGSgvdRqvLbu5WMOiEfeZtxB96zrueO1iHltiJMbPNBb5u5xnn0rPW6aNEALSSNyxZSAe
exLVVuJbezSfGEkCGTLOWJAIyF5xnnpW9KjOTd5fjqbq8leT+RstfxSuYonDggMWP8Jx6ZpF
1COzZomICx4AYsA/16iuRl8WraqZFmURsdp3rtO33JbjnFZ8njB0Z2ldDHtOXzgjsOScV0zw
t/msgs/Default view on Meta::CPAN
lrqe9K9+pjUxlKKtBanay+KYp4o7lCYw/wAzl3AKqOnORXOXHi1rn5hvYhztVD0GOrfPz+VR
2mhPqLCS6mZZGwoTzcZz7ZFadvoMEfmRkqQykBjglMfw8HOM967YU6VNNRu/67nm1MVVfu2s
YMmp3N6GfDGIbz88oUp3AA3Dj0zmpYrS61JLQO5kEhBVhOMKv90/NwOK3l0e1+z4idkVRjeZ
GIxnOCc9M0SEKYrmOZWRThDHJkDHXOWrrnGUY81OGi38ji9pGbu+hj22iIlwrSW8jGRmVtr5
xk+u4fXvVlrG0tzMACEVgWdWwT24O7ArSuZYHcnzQsnmCRRG5X9c+vtVOWXEm0yEIxz5aHLY
zzjJ/rWMX7WyUtfPRG7ansR3NzaCBWWTzGyOY7gruBOMEBx+tE115KXpwrCIZZVYcD0GW5p8
lqYsSEt5Z2lt7DJ9APnIHbNK5TzionjOTjy93I/WsnJX7/icqjZ+67oqyyPKkS7PKc4+ZiMD
6/NT1jicoxU7VOWIl5bPp83QU1cvE8UTrIXOEddzAc8gjPNLNGblWktgu9Nol8xmAI6ZAzgV
S7bI05uXY6TwRr02g6h5Mc0nku+138wEtu7fezivcorlLq24lG1kwW/iHvjPWvmXfEbmxka7
UGN1cFcFWYHGB8xxg19C+GroXHhyBiEV5FyWjfp9fm4rycdRUZRm4379P+AethJSaaXQ2lK2
1uDzLtXuQDnt9KZZXAlt4xOCUkBYmNgxB7Z+b1qApK5Idmiibqynn2zg05VVIXR3jLjjepIy
view all matches for this distribution
view release on metacpan or search on metacpan
Util/CommentedJson.pm view on Meta::CPAN
| $re_string
}xs;
sub strip_json_comments {
my ($pack, $bytes) = @_;
$bytes =~ s/\A\xef\xbb\xbf//; # Strip BOM of utf-8.
my @region = reverse list_json_comments($pack, $bytes);
foreach my $region (@region) {
my ($startPos, $len) = @$region;
substr($bytes, $startPos, $len, '');
}
view all matches for this distribution
view release on metacpan or search on metacpan
# text fields can be null-separated lists;
# UTF-16 therefore needs special care
#
# foobar2000 encodes tags in UTF-16LE
# (which is apparently illegal)
# Encode dies on a bad BOM, so it is
# probably wise to wrap it in an eval
# anyway
$data = eval { Encode::decode('utf16', $data) } || Encode::decode('utf16le', $data);
} elsif ($encoding eq "\003") { # UTF-8
}
} else {
# If the string starts with an
# UTF-16 little endian BOM, use a hack to
# convert to ASCII per best-effort
my $pat;
if ($data =~ s/^\xFF\xFE//) {
# strip additional BOMs as seen in COM(M?) and TXX(X?)
$data = join ("",map { ( /^(..)$/ && ! /(\xFF\xFE)/ )? $_: "" } (split /(..)/, $data));
$pat = 'v';
} elsif ($data =~ s/^\xFE\xFF//) {
# strip additional BOMs as seen in COM(M?) and TXX(X?)
$data = join ("",map { ( /^(..)$/ && ! /(\xFF\xFE)/ )? $_: "" } (split /(..)/, $data));
$pat = 'n';
}
if ($pat) {
# User defined frame
if ($id eq 'TXXX') {
my ($key, $val) = split(/\0/, $data);
# Some programs - such as FB2K leave a UTF-16 BOM on the value
if ($encoding eq "\001" || $encoding eq "\002") {
$val =~ s/^\x{feff}//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MP3/Tag.pm view on Meta::CPAN
local $/;
my $d = <F>;
# warn "From file $data (\$^OPEN=${^OPEN}, \$^UNICODE=${^UNICODE}): ", join q( ), map ord, split //, $d;
CORE::close F or die "Can't close file `$data' for parsing: $!";
$d =~ s/^(?:\x{FEFF}|\xEF\xBB\xBF)// unless $flags =~ /B/; # strip BOM
$data = $d;
}
my @data = $data;
if ($flags =~ /[ln]/) {
my $p = $self->get_config('parse_split')->[0];
view all matches for this distribution
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MPEG/ID3v2Tag.pm view on Meta::CPAN
$self->{ENCODING} = unpack( "C", substr( $data, 0, 1 ) );
if ( $self->{ENCODING} == 0 ) {
$self->{DATA} = unpack( "Z*", substr( $data, 1 ) );
}
elsif ( $self->{ENCODING} == 1 ) { ##with BOM
######## a really dirty hack to change the UNICODE to normal ISO-8859-1 this will of course
######## destroy the real unicode. so no need to write a UNICODE back to file
my @text_as_list;
$self->{BOM} = unpack( "n", substr( $data, 1, 2 ) );
if ( $self->{BOM} == 0xfeff ) {
@text_as_list = unpack( "n*", substr( $data, 3 ) );
}
else {
@text_as_list = unpack( "v*", substr( $data, 3 ) );
}
$self->{DATA} = pack( "C*", @text_as_list );
$self->{ENCODING} = 0; ## now
}
elsif ( $self->{ENCODING} == 2 ) { #no BOM here ##never tested
######## a really dirty hack to change the UNICODE to normal ISO-8859-1 this will of course
######## destroy the real unicode. so no need to write a UNICODE back to file
## I hope this n is working for ENCODING type 2. else change to back to v like type 1
my @text_as_list;
lib/MPEG/ID3v2Tag.pm view on Meta::CPAN
if ( $self->{ENCODING} == 0 ) {
$self->{DESCRIPTION} = $desc;
$self->{TEXT} = $text;
}
elsif ( $self->{ENCODING} == 1 ) { ##with BOM
######## a really dirty hack to change the UNICODE to normal ISO-8859-1 this will of course
######## destroy the real unicode. so no need to write a UNICODE back to file
my @text_as_list_t;
my @text_as_list_d;
$self->{BOM} = unpack( "n", substr( $data, 1, 2 ) );
if ( $self->{BOM} == 0xfeff ) {
@text_as_list_t = unpack( "n*", substr( $text, 2 ) );
@text_as_list_d = unpack( "n*", substr( $desc, 2 ) );
}
else {
@text_as_list_t = unpack( "v*", $text );
view all matches for this distribution
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
# empty four bytes for lang code
typeIntlText() => sub {' ' . MacPack(typeChar, $_[0])},
typeUnicodeText() => sub {
if ($ENCODE) {
# BOM sometimes causes problems, so it is optional, and
# we leave it off, and use native ordering explicitly
require Config;
my $bom = $Config::Config{byteorder} eq '1234' ? 'LE' : 'BE';
return new AEDesc typeUnicodeText,
Encode::encode('UTF-16'.$bom, $_[0]);
view all matches for this distribution
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
bool|5.003007||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
t/pubkeys.asc view on Meta::CPAN
cSsaTDRFrQ0BAFoQfvSKJWmbmiV7VfNU0NU5d/opcYGPX+3DEa4/f9Z/KFjh05hT
VJCTi7sDjE3pdEjjECxxIIJKKnyK8OCR0oj4Ghj9kYS4asoUoJQ4cbFIG+u1YX7g
TAfDIm8+/Lem3fQANIDnFQoFSteqzD2xsGMp6pf+PNzhpBb8eQTVzkO3mJc7LoF8
2B7j3efM3x/nMKw5tQiOayHuf75IDq4a+4BeU/fnzgB7VoNmSc0qAZWN6dy0CeIN
sZaa8DIjcF2lVy7sqoh34i0wN6S2A7Gp0khs+xyASLS0Vle0BlbRENezA3W01rLs
6uwO/aq/wXWoZmjZdp4zsRcdNRrAk4BOMAKT+5HKTZhA4R+bRmOm9XOswu/oUtxP
w8ZcbxcBkoZLEtuYIVG/ubO6WgBPn/lvDiIvbQriVuHvgIZl8yxMNdPduIA4kveO
nElQUTvf7szKjOpqoL3sDukYTxyOhxGh4lknBQLYa55bKTXDZEbT4FMdNWYAs+wW
4SzWjN1gckm72cTIkTcrzz/bpbPKWxn4rErm3IUMiLT/jwCNjBnMhqxfPIkCHAQQ
AQgABgUCUiRMWgAKCRDHMrHRwo9OL1AjD/9quKuCN2n8nTW6Ks7etu7PXNMP9yq3
f2DRxnemMVDD2tySevCTlOGxhyIH651QfjcbjJX596IdYoO6jPSRcYemeFMnWJyl
t/pubkeys.asc view on Meta::CPAN
NQRL5btyUzoX6LNQTCZ1l8DV0viphlMVtgcvirfS6WxtC3iE8yJoHrHWTQPwK9mu
qh9NI4O+wapmEBCWGsVZtkj73JY4HhKIe/IiO+UWLeGrXE+8GGiB92ow9auOEoOC
vxtMeYlTNfaGEGpAt6ubgEYM2aQ3z/GhVljAWc0PbPe75ZwUuspWt4/1OmbOVqEL
37SEn31NRzptsulybNeDLLNl7HnhcAeMNh/G5h0sCkSZKSgiEkudOcgDTIxQXyMB
egi2v+Qd5ilMXO8AfeyLn7lfGS78unhxZ64+5GtTPrq5AQ0EUA7h5wEIAMrtn97N
0RpBhuuMFw1U37xWQisZNx/rCQMMAE3jTHfC0kGjTOr0BOMf/fXY/sQtAefUPSnK
whtmvRAXz5j6gR7DGHfpd9VvkdFn/zHaCGPdV7WG26Pb0pWqsGWI0nCJaMXXiPIa
xzK17EEqNzVbxEhRn0mTWI+k+q8m9k+lf3rtyrSQGGQPaTsNpM4A5hAxcaBjKr/5
Mq70hga6w5f0NBKvS5W8KYvm4BV/rKNOQK3Z04F/xp8L0mDubRcAKLcwAXZXyk+u
zqk1JX9BaZFTCoIwI+6QSHMwFXeE51021tesdFvFNV8mU9q4CqJjfiA2VXkA7uQc
YIdESvghuMOWoc8AEQEAAYkCHwQYAQgACQUCUA7h5wIbIAAKCRB5IVJSe3WSHsQ9
view all matches for this distribution
view release on metacpan or search on metacpan
t/32_lyris.t view on Meta::CPAN
[order your free copy:]
http://www.lyris.com/email_book/
>>HOW FREDERICK'S OF HOLLYWOOD DOES "BOMBSHELL" MARKETING
Famous lingerie retailer FrederickÂs of Hollywood has always dared to
be just a little bit different. FrederickÂs Online Marketing Director
Jennifer Bedolla unveils her most effective marketing strategy  along
with her plans for future online initiatives.
view all matches for this distribution
view release on metacpan or search on metacpan
t/pki_store/ca/4b148d17.0 view on Meta::CPAN
AQDFYP77Gh/FCb7o30WFwnAsdtyQliin1FarnF22D5THdqZCpqjzmNsSvLxjyyKe
HMj6V0k9xaWwLC/N158B+Cc1C/YijR6HysyWrU9egExLV/Rt8/97tlfFKr8xUbkX
TvdWnoDn5yS/DfUB3v7jNOLkRq6aeqPQGeLYt6Pz1hHWM5VSZ1nKZzPEdw1QikTO
2Su8M9Gww9S+49HVarGGMpC44xhJDSnnZ3qRzz9FYXm2qHwj4w2xgANrMqjJxeIe
3QF4PGhBym7mJYCAMbtMrwP/Kd5ErqjhSvzxf9+3e7ndkRTJJwluUCqBq1WLHlFK
7ugNgvUM8iE2CJ4ormSu6ZahAgMBAAGjUDBOMB0GA1UdDgQWBBSDxMZG3etD1eea
zMS66qLNeqoV6jAfBgNVHSMEGDAWgBSDxMZG3etD1eeazMS66qLNeqoV6jAMBgNV
HRMEBTADAQH/MA0GCSqGSIb3DQEBCwUAA4IBAQAc1bdQaLimx2cO+kuJFMIF8NMm
DWK3o9t5+33GPOY9kHxFmxU4WtMXh8EndOG1EfSkhpsvCHdOxkexbzdvKVeEexty
EKOUJFJEnbwGuD3Wk+RSEfZUf4IMHd9ykO6qlKqZXWo+Tvj+HusCAkl3A92SObdV
s6un8mbYFantRIalEVD+OhNTWnX2gabomI52qe6415p2OyHxBqlYl2rcWkb+3MDK
view all matches for this distribution
view release on metacpan or search on metacpan
8AhGQCTEEAQ0Zng20D3pIINjkFoL0D0LAARbEwQskEv1UAWeYnQGoA4/VR8E
Fy5S0AS7sCCmUQPh0AL/MCBgsABDogOKIAJosT5t//APV2YFnWcEKqAFxCBs
mBgEMzYG2rMA+pVoZSODGTMGxWAEdJABmVAAyoMOm/JmOFANAjdwfSADX/AG
gHMOHBAtZCAD2XJjYEAMuUMCu8ABVhgGKHAEdTABHwMGwUcEQfCM8zQHNGB4
J3YN/JCG0XMNUKAPnIg9GpQCwxAJkTAMBVAAV5AUY7UCsLCO1fAPQ0UG2XYd
HNAGd/APU1AHfLCGJ1AHO1ABZYA65BBOM2AFvGcDdWB8xUB9wkZ9WqACCWYF
iFY5+zAG+XWNVsAFuaAFYBCOw1BSJLAUqfBTyTgBExBzbhAFtpgiuJUEXxBz
JbctYJAtfvNB9+ACKDCQDv8gfEDzDTlpBerQDbDUB/vniQskOVz2ATcIBDzF
TkBQBUbwU0ZgA5vlBMdgAw7pdV5YDXRwAepyCIDzOjGgRhZzAgvgBPaQDkPw
N68gBNEiBZXIe1bwMytAAHLQBMOQCXZgB97AAOgABWOwDdvwPElEBN0TQUo5
BlE5ASowAd9iDxSjBXygBZuWhbCQAIkwD51ABoegCm9gCjWQAV7gBN2yhvbw
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mail/SpamAssassin/Message/Node.pm view on Meta::CPAN
my $sum_h_o = 0;
my $sum_l_e = 0;
my $sum_l_o = 0;
my $decoder = undef;
# avoid scan if BOM present
if( $data =~ /^(?:\xff\xfe|\xfe\xff)/ ) {
dbg( "message: detect_utf16: found BOM" );
return; # let perl figure it out from the BOM
}
my @msg_h = unpack 'H' x length( $data ), $data;
my @msg_l = unpack 'h' x length( $data ), $data;
lib/Mail/SpamAssassin/Message/Node.pm view on Meta::CPAN
&& !$insist_on_declared_charset) {
# declared as US-ASCII but contains 8-bit characters, makes no sense
# to attempt decoding first as strict US-ASCII as we know it would fail
} elsif ($charset_declared =~ /^UTF[ -]?16/i) {
# Handle cases where spammers use UTF-16 encoding without including a BOM
# or declaring endianness as reported at:
# https://bz.apache.org/SpamAssassin/show_bug.cgi?id=7252
my $decoder = detect_utf16( $_[0] );
if (defined $decoder) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Markup/Perl.pm view on Meta::CPAN
It is possible to include and run Markup::Perl code from other files using the C<src> function. This will lead to a recursive loop if a file included in such a way also includes a file which then includes itself. This is the same as using the Perl C<...
=item use utf8
I've made every effort to write code that is UTF-8 friendly. So much so that you are likely to experience more problems for B<not> using UTF-8. Saving your documents as UTF-8 (no BOM) is recommended; other settings may or may not work. Files included...
=back
=head1 COPYRIGHT
view all matches for this distribution