view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Southamerica-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Southeastasia-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Southernafrica-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Southernasia-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Southerneurope-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Subsaharanafrica-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Unitednations-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Westernafrica-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Westernasia-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-Westerneurope-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
add_to_cleanup => [ 'Bundle-Locale-CLDR-World-*' ],
configure_requires => { 'Module::Build' => '0.40' },
release_status => 'stable',
dist_abstract => q<Locale::CLDR - Data Package ( )>,
meta_add => {
keywords => [ qw( locale CLDR locale-data-pack ) ],
resources => {
homepage => 'https://github.com/ThePilgrim/perlcldr',
bugtracker => 'https://github.com/ThePilgrim/perlcldr/issues',
repository => 'https://github.com/ThePilgrim/perlcldr.git',
},
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Bundle/OpenXPKI.pm view on Meta::CPAN
less 0.01
lib 0.5565
locale 1.00
sigtrap 1.02
sort 1.02
view all matches for this distribution
view release on metacpan or search on metacpan
lib/PBib/PBib.pm view on Meta::CPAN
##### use PBib::ReferenceConverter::MSWord; # to be able to convert word documents
##### PBib::ReferenceConverter::MSWord is not yet working ...
# binmode(STDOUT, ":locale");
# binmode(STDERR, ":locale");
=head1 METHODS
These methods are exported.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/Cart/Generic/Database/Create.pm view on Meta::CPAN
currency_id integer not null references currencies(id),
charset varchar(255) not null,
code char(5) not null,
date_format_long varchar(255) not null,
date_format_short varchar(255) not null,
locale varchar(255) not null,
name varchar(255) not null,
numeric_separator_decimal varchar(255) NOT NULL,
numeric_separator_thousands varchar(255) NOT NULL,
text_direction varchar(255) not null,
time_format varchar(255) not null,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/ES/NIF.pm view on Meta::CPAN
'E' => 'Comunidad de bienes y herencias',
'F' => 'Sociedades cooperativas',
'G' => 'Asociaciones',
'H' => 'Comunidaddes de propietarios',
'J' => 'Sociedades civiles',
'P' => 'Corporaciones locales',
'Q' => 'Organismos publicos',
'N' => 'Entidades extranjeras',
'R' => 'Congregaciones e instituciones religiosas',
'U' => 'Uniones temporales de epresas',
'V' => 'Otros tipos de sociedades',
lib/Business/ES/NIF.pm view on Meta::CPAN
};
use constant CIFe_EXTRA => {
'S' => 'Ãrganos de la Administración del Estado',
'Q' => 'Organismos autónomos o instituciones religiosas',
'P' => 'Corporaciones locales',
'K' => 'Formato antiguo (DNI sin letra de control)'
};
use constant PROVINCIAS => {
'00' => 'No Residente',
view all matches for this distribution
view release on metacpan or search on metacpan
hv_scalar||5.009001|
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incl_perldb|||
incline|||
incpush|||
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.009003|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_catsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
return TRUE;
}
}
#else
/* pre5.6.0 perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h */
#include <locale.h>
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/RO/CNP.pm view on Meta::CPAN
This method returns a L<DateTime|DateTime> object that holds the birth day of the person so you can call any DateTime methods on it.
print $cnp->birthday;
print $cnp->birthday->ymd;
print $cnp->birthday->strftime('%d %m %y');
print $cnp->birthday->set_locale('ro')->month_name;
Check the L<DateTime|DateTime> module for finding out what methods you can use with this object.
=head2 county
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/ReportWriter.pm view on Meta::CPAN
package Business::ReportWriter;
use strict;
use POSIX qw(setlocale LC_NUMERIC);
sub new {
my ( $class, %parms ) = @_;
my $self = {};
lib/Business/ReportWriter.pm view on Meta::CPAN
for my $field (@fields) {
$func =~ s/\$$field/\$rec->{$field}/g;
}
my $text;
setlocale( LC_NUMERIC, $self->{report}{locale} );
eval( '$text = ' . $func );
setlocale( LC_NUMERIC, "C" );
return $text;
}
1;
__END__
lib/Business/ReportWriter.pm view on Meta::CPAN
=back
Hash with report wide information. Possible entries:
I<locale> - eg us_EN, da_DK...
I<papersize> - A4, Letter...
=head3 breaks
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/Shipping/Util.pm view on Meta::CPAN
@EXPORT_OK = qw( looks_like_number unique );
=head2 * currency( $opt, $amount )
Formats a number for display as currency in the current locale (currently, the
only locale supported is USD).
=cut
sub currency {
my ($opt, $amount) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
aTHX|5.006000||p
add_data|||n
addmad|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_i_ncmp|||
amagic_ncmp|||
any_dup|||
ao|||
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_stores|5.009004||p
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incline|||
incpush_if_exists|||
incpush_use_sep|||
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.011000|
stdize_locale|||
store_cop_label|||
strEQ|||
strGE|||
strGT|||
strLE|||
sv_catxmlsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Business/WebMoney.pm view on Meta::CPAN
sub request
{
my ($self, %args) = @_;
my $old_locale = POSIX::setlocale(&POSIX::LC_ALL, 'C');
my $res = $self->do_request(%args);
POSIX::setlocale(&POSIX::LC_ALL, $old_locale);
return $res;
}
sub do_request
view all matches for this distribution
view release on metacpan or search on metacpan
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!--
One language-specific string for the location of tax,
e.g. London, Canada, California, etc.
xml:lang
The language or locale in which the location of tax is written.
-->
<!ELEMENT TaxLocation (#PCDATA)> <!-- string -->
<!ATTLIST TaxLocation
xml:lang %xmlLangCode; #REQUIRED
>
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
may be due either to identical hazards for all items or hazards
inherent in shipping various products together.
The contained Description element list (if provided) should include
detailed handling requirements. Elements in this list may appear in
any order. A description locale (Description@xml:lang attribute value)
must not appear more than once in a Hazard element. When more than one
Description element is present, all must contain translations of a
common description.
Classification elements may appear in any order. A classification
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!--
Defines an accounting segment. AccountingSegment is the newer, better
way to transport this information. Name corresponds to the type
attribute of Segment; Description corresponds to description. Both add
required locale attributes to the strings.
id
The unique key of this Segment against the type.
-->
<!ELEMENT AccountingSegment ( Name, Description )>
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
Zero or more PackagingCode elements may appear in the Packaging
element. Each PackagingCode must contain a single string corresponding
to the packaging for this item. When multiple PackagingCode elements
appear, all must describe the same packaging in different languages or
locales. (No two PackagingCode elements may have the same xml:lang
attribute.) Elements in such a list may appear in any order.
The dimensions mentioned in the Dimension element list may appear in
any order. A particular dimension (Dimension@type attribute value)
must not appear more than once in a Packaging element.
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
FreeGoodsQuantity?, QuantityVarianceNote?, BestBeforeDate?, Extrinsic*)>
<!--
One language-specific code for the packaging of this item. Values such
as "pallet", "skid" and "truck load" may be appropriate (for an
English-based locale).
xml:lang
The language or locale in which the PackagingCode content (the
value of the code) is written.
-->
<!ELEMENT PackagingCode (#PCDATA)> <!-- string -->
<!ATTLIST PackagingCode
xml:lang %xmlLangCode; #REQUIRED
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!--
One language-specific string for the creator of an IdReference,
e.g. IRS, BofA, UPS, Cisco, etc.
xml:lang
The language or locale in which the name of the creator is written.
-->
<!ELEMENT Creator (#PCDATA)> <!-- string -->
<!ATTLIST Creator
xml:lang %xmlLangCode; #REQUIRED
>
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
attribute is present and the document does not conform to the
specified signature version. If absent, the document is not
signed.
xml:lang
The default locale for all strings (not formatted items such as
dates, times and numbers) in this document. This attribute will be
required in a future version of cXML. (Leaving it out is
deprecated.)
-->
<!ELEMENT cXML (((Header, (Message | Request)) | Response), ds:Signature*)>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/BusyBird/DateTime/Format.pm view on Meta::CPAN
our $VERSION = "0.05";
our $preferred = 0;
my %OPT_DEFAULT = (
locale => 'en_US',
on_error => 'undef',
);
my @FORMATS = (
DateTime::Format::Strptime->new(
view all matches for this distribution
view release on metacpan or search on metacpan
lib/BusyBird/Config.pm view on Meta::CPAN
my %_DEFAULTS = ();
$_DEFAULTS{timeline} = {
time_zone => sub { "local" },
time_format => sub { '%x (%a) %X %Z' },
time_locale => sub { $ENV{LC_TIME} or "C" },
post_button_url => sub { "https://twitter.com/intent/tweet" },
status_permalink_builder => sub { return sub {
my ($status) = @_;
my $ss = safed($status);
view all matches for this distribution
view release on metacpan or search on metacpan
return TRUE;
}
}
#else
/* pre5.6.0 perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h */
#include <locale.h>
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
adjust_stack_on_leave|||
alloc_maybe_populate_EXACT|||
alloccopstash|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_deref_call||5.013007|
amagic_i_ncmp|||
amagic_is_enabled|||
amagic_ncmp|||
cando|||
cast_i32||5.006000|
cast_iv||5.006000|
cast_ulong||5.006000|
cast_uv||5.006000|
check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
ckWARN|5.006000||p
find_rundefsv||5.013002|
find_script|||
find_uninit_var|||
first_symbol|||n
foldEQ_latin1||5.013008|n
foldEQ_locale||5.013002|n
foldEQ_utf8_flags||5.013010|
foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
hv_store_flags||5.008000|
hv_stores|5.009004||p
hv_store|||
hv_undef_flags|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incline|||
incpush_if_exists|||
incpush_use_sep|||
ss_dup|||
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_flags||5.013006|
sv_cmp_locale_flags||5.013006|
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm_flags||5.013006|
sv_collxfrm|||
sv_copypv_flags||5.017002|
sv_copypv_nomg||5.017002|
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
hv_scalar||5.009001|
hv_store_ent||5.004000|
hv_store_flags||5.008000|
hv_store|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incl_perldb|||
incline|||
incpush|||
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.009003|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_catsv|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm|||
sv_compile_2op||5.008001|
sv_copypv||5.007003|
sv_dec|||
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif /* PERL_VERSION */
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
adjust_stack_on_leave|||
alloc_maybe_populate_EXACT|||
alloccopstash|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_deref_call||5.013007|
amagic_i_ncmp|||
amagic_is_enabled|||
amagic_ncmp|||
cando|||
cast_i32||5.006000|
cast_iv||5.006000|
cast_ulong||5.006000|
cast_uv||5.006000|
check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
ckWARN|5.006000||p
find_rundefsv||5.013002|
find_script|||
find_uninit_var|||
first_symbol|||n
foldEQ_latin1||5.013008|n
foldEQ_locale||5.013002|n
foldEQ_utf8_flags||5.013010|
foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
hv_store_flags||5.008000|
hv_stores|5.009004||p
hv_store|||
hv_undef_flags|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incline|||
incpush_if_exists|||
incpush_use_sep|||
ss_dup|||
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
sv_chop|||
sv_clean_all|||
sv_clean_objs|||
sv_clear|||
sv_cmp_flags||5.013006|
sv_cmp_locale_flags||5.013006|
sv_cmp_locale||5.004000|
sv_cmp|||
sv_collxfrm_flags||5.013006|
sv_collxfrm|||
sv_copypv_flags||5.017002|
sv_copypv_nomg||5.017002|
return TRUE;
}
}
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
}
}
#endif
#endif /* USE_LOCALE_NUMERIC */
/* always try "." if numeric radix didn't match because
* we may have data from different locales mixed */
if (*sp < send && **sp == '.') {
++*sp;
return TRUE;
}
return FALSE;
view all matches for this distribution
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/config-host-linux.h view on Meta::CPAN
#define CONFIG_QEMU_CONFDIR "/Users/eiselekd/bin/etc/qemu"
#define CONFIG_QEMU_DATADIR "/Users/eiselekd/bin/share/qemu"
#define CONFIG_QEMU_DOCDIR "/Users/eiselekd/bin/share/doc/qemu"
#define CONFIG_QEMU_LOCALSTATEDIR "/Users/eiselekd/bin/var"
#define CONFIG_QEMU_HELPERDIR "/Users/eiselekd/bin/libexec"
#define CONFIG_QEMU_LOCALEDIR "/Users/eiselekd/bin/share/locale"
#define HOST_I386 1
#define CONFIG_DEBUG_TCG 1
#define CONFIG_POSIX 1
#define CONFIG_LINUX 1
#define CONFIG_SLIRP 1
view all matches for this distribution