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",