view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm 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 release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
view release on metacpan or search on metacpan
redland/ChangeLog.4 view on Meta::CPAN
yylex_init/yylex_destroy.
* raptor/Makefile.am: n3_lexer_test depends on raptor_utf8
* raptor/raptor_parse.c:
Add EXPAT_UTF8_BOM_CRASH fix updates for sax2 changes.
* raptor/configure.ac: Tweak for old flex version output
* raptor/configure.ac: Try to check flex is new enough.
redland/ChangeLog.4 view on Meta::CPAN
* raptor/raptor.h:
Declare handlers for raptor www write bytes, content type
raptor_www_fetch now takes a raptor_uri
* raptor/raptor_parse.c:
Fix broken-fix for broken-expat UTF8 BOM crash.
tokens_count is on the rdf_xml_parser not rdf_parser
* raptor/configure.ac: tweak
* raptor/configure.ac: tidy libcurl version
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 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 release on metacpan or search on metacpan
t/30log_1.t view on Meta::CPAN
's-action' => 'TCP_ERR_MISS',
'sc-status' => '503',
'cs-bytes' => '3100',
'cs-method' => 'GET',
'cs-uri' => 'http:// bug0bus0.free.fr/es_fichiers/tn_ak_01.jpg',
'cs-username' => 'CN=Tom BOMBADIL,OU=fr,O=tolkien',
's-hierarchy' => 'DIRECT',
'cs-supplier-name' => '-',
'cs-content-type' => '-',
'sc-filter-category' => 'Portal_Sites',
'user-agent' =>
view release on metacpan or search on metacpan
share/flot/jquery.js view on Meta::CPAN
// Used for detecting and trimming whitespace
core_rnotwhite = /\S/,
core_rspace = /\s+/,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
rquickExpr = /^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,
view release on metacpan or search on metacpan
(index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()),
} )
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
BOM_UTF8|||
BhkDISABLE||5.024000|
BhkENABLE||5.024000|
BhkENTRY_set||5.024000|
BhkENTRY|||
BhkFLAGS|||
view release on metacpan or search on metacpan
lib/Rex/JobControl/public/3rdparty/jquery-ui-1.11.1/external/jquery/jquery.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
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 release on metacpan or search on metacpan
examples/rpm-to-sbom.pl view on Meta::CPAN
#!perl
# rpm-to-bom.pl - Generate a BOM file from installed RPM packages
# (C) 2026, Giuseppe Di Terlizzi <giuseppe.diterlizzi@gmail.com>
# License MIT
use strict;
use warnings;
use utf8;
use v5.16;
use SBOM::CycloneDX;
use SBOM::CycloneDX::Component;
use SBOM::CycloneDX::Metadata::Lifecycle;
use SBOM::CycloneDX::Tool;
use SBOM::CycloneDX::Util qw(cyclonedx_tool);
use Carp;
use URI::PackageURL;
my $packages = `rpm -qa --qf '%{NAME}\t%{VERSION}-%{RELEASE}\t%{ARCH}\t%{SUMMARY}\n'`;
my @packages = split /\n/, $packages;
my %os_release = parse_os_release();
my $bom = SBOM::CycloneDX->new(spec_version => 1.7);
my $os_component = SBOM::CycloneDX::Component->new(
type => 'operating-system',
name => $os_release{NAME},
version => $os_release{VERSION},
bom_ref => sprintf('%s-%s', $os_release{ID}, $os_release{VERSION_ID}),
cpe => $os_release{CPE_NAME},
);
my $root_component = SBOM::CycloneDX::Component->new(
type => 'operating-system',
name => $os_release{NAME},
version => $os_release{VERSION},
lifecycle => {phase => 'operation'},
);
my $this_tool = SBOM::CycloneDX::Tool->new(name => $0, version => '1.0');
my $lifecycle = SBOM::CycloneDX::Metadata::Lifecycle->new(phase => 'operations');
my $metadata = $bom->metadata;
$metadata->lifecycles->add($lifecycle);
$metadata->component($root_component);
examples/rpm-to-sbom.pl view on Meta::CPAN
name => $name,
version => $version,
qualifiers => {arch => $arch, distro => sprintf('%s-%s', $os_release{ID}, $os_release{VERSION_ID})}
);
my $pkg_component = SBOM::CycloneDX::Component->new(
type => 'application',
name => $name,
description => $summary,
version => $version,
bom_ref => "$name-$version",
view release on metacpan or search on metacpan
* 2.408 Sun June 13 2010
- Added File::ShareDir as a dep
- TODO'd temporary test cases
* 2.407 Wed June 02 2010
- Minor fix on BOM marks in test files
* 2.406 Tues May 18 2010
- Fixed SDL::Video::list_modes(), it returns now arrayref to SDL::Rects [FROGGS]
- Updated docs [Blaizer]
- Removed deprecated modules [kthakore, FROGGS]
view release on metacpan or search on metacpan
lib/SDL2/TTF.pm view on Meta::CPAN
( SDL_TTF_COMPILEDVERSION() >= SDL_VERSIONNUM( $X, $Y, $Z ) )
}
]
];
attach ttf => { TTF_Linked_Version => [ [], 'SDL_Version' ] };
define ttf => [ [ UNICODE_BOM_NATIVE => 0xFEFF ], [ UNICODE_BOM_SWAPPED => 0xFFFE ] ];
package SDL2::TTF::Font {
use SDL2::Utils;
our $TYPE = has();
};
lib/SDL2/TTF.pm view on Meta::CPAN
These functions deal with L<SDL2::TTF::Font> and global attributes.
=head2 C<TTF_ByteSwappedUNICODE( ... )>
This function tells C<SDL_ttf> whether UNICODE (Uint16 per character) text is
generally byteswapped. A B<UNICODE_BOM_NATIVE> or B<UNICODE_BOM_SWAPPED>
character in a string will temporarily override this setting for the remainder
of that string, however this setting will be restored for the next one. The
default mode is non-swapped, native endianness of the CPU.
# Turn on byte swapping for UNICODE text
lib/SDL2/TTF.pm view on Meta::CPAN
=item C<TTF_PATCHLEVEL>
SDL_ttf library patch level at compilation time.
=item C<UNICODE_BOM_NATIVE>
This allows you to switch byte-order of UNICODE text data to native order,
meaning the mode of your CPU. This is meant to be used in a UNICODE string that
you are using with the SDL_ttf API.
=item C<UNICODE_BOM_SWAPPED>
This allows you to switch byte-order of UNICODE text data to swapped order,
meaning the reversed mode of your CPU. So if your CPU is LSB, then the data
will be interpreted as MSB. This is meant to be used in a UNICODE string that
you are using with the SDL_ttf API.
view release on metacpan or search on metacpan
lib/SIL/Shoe/Control.pm view on Meta::CPAN
}
$self->{' INFILE'} = $fh;
$self->{' fname'} = $file;
open($fh, "$file") and ($_ = <$fh>);
s/^\xEF\xBB\xBF//o; # BOM in UTF8
chomp;
if (m/^\\\+(\S+)\s+(.*?)\s*$/o)
{ $self->{'name'} = $2; }
else
{ croak("Malformed database type file ($file)"); }
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfax-hylafax-client-perl", "Fax-Hylafax-Client", "1.02", "0", "0"
"libfcgi-perl", "FCGI", "0.71", "1", "1"
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.19", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.07", "0", "1"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "1"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.20", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-link-perl", "File-Copy-Link", "0.112", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "1", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"