Result:
found more than 514 distributions - search limited to the first 2001 files matching your query
( run in 2.324 )
CPANPLUS-Dist-Arch
view release on metacpan or search on metacpan
Now that META.json is more prevalent we can use it instead of META.yml
when it is available.
* Release 1.19 [2011-10-25 Tue]
** Detect non-perl XS deps when using non-english locale. :BUGFIX:
We scrape pacman's output in order to find package owners of C
libraries that we are linking to. Silly me, I only matched english
output of pacman. We now force the locale to C when we run pacman
behind the scenes.
Reported by Franek at https://bbs.archlinux.org/viewtopic.php?id=128890
* Release 1.18 [2011-08-21 Sun]
CPANPLUS-Dist-Debora
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Debora/Package/Debian.pm view on Meta::CPAN
'File-Rename' => 'rename',
'GDGraph' => 'libgd-graph-perl',
'GDTextUtil' => 'libgd-text-perl',
'Gearman' => 'libgearman-client-perl',
'Gearman-Server' => 'gearman-server',
'gettext' => 'liblocale-gettext-perl',
'IO-Tty' => 'libio-pty-perl',
'libintl-perl' => 'libintl-perl',
'libwww-perl' => 'libwww-perl',
'libxml-perl' => 'libxml-perl',
'Mail-MtPolicyd' => 'mtpolicyd',
CPANPLUS-Dist-Gentoo
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Gentoo/Maps.pm view on Meta::CPAN
if ($timestamp =~ s/\s+([+-])([0-9]{2})([0-9]{2})$//) {
$shift = ($2 * 60 + $3) * 60;
$shift = -$shift if $1 eq '-';
}
my $old_lc_all = POSIX::setlocale(POSIX::LC_ALL());
POSIX::setlocale(POSIX::LC_ALL(), 'C');
$timestamp = POSIX::mktime(
POSIX::strptime($timestamp, '%a, %d %b %Y %H:%M:%S')
);
POSIX::setlocale(POSIX::LC_ALL(), $old_lc_all);
$timestamp += $shift;
return $timestamp;
}
lib/CPANPLUS/Dist/Gentoo/Maps.pm view on Meta::CPAN
Gtk2Fu gtk2-fu
I18N-LangTags i18n-langtags
Image-Info ImageInfo
Image-Size ImageSize
Inline-Files inline-files
Locale-Maketext locale-maketext
Locale-Maketext-Fuzzy locale-maketext-fuzzy
Locale-Maketext-Lexicon locale-maketext-lexicon
Log-Dispatch log-dispatch
Math-Pari math-pari
Module-Info module-info
MogileFS-Server mogilefs-server
NTLM Authen-NTLM
CPANPLUS-Dist-Mageia
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Mageia.pm view on Meta::CPAN
# writing the spec file.
my $tmpl = _template_spec_file_path();
open my $tmplfh, '<', $tmpl or die "can't open '$tmpl': $!";
POSIX::setlocale(&POSIX::LC_ALL, 'C');
my $specfh;
if ( not open $specfh, '>', $spec ) {
error( "can't open '$spec': $!" );
return;
}
CPANPLUS
view release on metacpan or search on metacpan
inc/bundle/Locale/Maketext/Simple.pm view on Meta::CPAN
Class => 'Foo', # search in auto/Foo/
Style => 'gettext', # %1 instead of [_1]
Export => 'maketext', # maketext() instead of loc()
Subclass => 'L10N', # Foo::L10N instead of Foo::I18N
Decode => 1, # decode entries to unicode-strings
Encoding => 'locale', # but encode lexicons in current locale
# (needs Locale::Maketext::Lexicon 0.36)
);
sub japh {
print maketext("Just another %1 hacker", "Perl");
}
inc/bundle/Locale/Maketext/Simple.pm view on Meta::CPAN
needs the B<Encode> or B<Encode::compat> module.
=head2 Encoding
Specifies an encoding to store lexicon entries, instead of
utf8-strings. If set to C<locale>, the encoding from the current
locale setting is used. Implies a true value for C<Decode>.
=cut
sub import {
my ($class, %args) = @_;
CPANSA-DB
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260531.001';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
CPU-Z80-Disassembler
view release on metacpan or search on metacpan
Other
* Add link to git repository
0.04 2011-03-24
Bug Fixes
* t/Memory.t failed test on non-US locale due to different $! error message.
0.03 2010-11-28
Bug Fixes
* Tests fail when CPU::Z80::Assembler is installed, but version is old,
(e.g. 'equ' not recognized)
CSS-Croco
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libdatetime-format-natural-perl", "DateTime-Format-Natural", "0.82", "0", "0"
"libdatetime-format-pg-perl", "DateTime-Format-Pg", "0.16004", "0", "0"
"libdatetime-format-sqlite-perl", "DateTime-Format-SQLite", "0.11", "0", "0"
"libdatetime-format-strptime-perl", "DateTime-Format-Strptime", "1.1000", "0", "0"
"libdatetime-format-w3cdtf-perl", "DateTime-Format-W3CDTF", "0.05", "0", "0"
"libdatetime-locale-perl", "DateTime-Locale", "0.44", "0", "0"
"libdatetime-perl", "DateTime", "0.5200", "0", "0"
"libdatetime-set-perl", "DateTime-Set", "0.28", "0", "0"
"libdatetime-timezone-perl", "DateTime-TimeZone", "1.05", "1", "0"
"libdatetimex-easy-perl", "DateTimeX-Easy", "0.087", "0", "0"
"libdb-file-lock-perl", "DB_File-Lock", "0.05", "0", "0"
Debian_CPANTS.txt view on Meta::CPAN
"liblinux-usermod-perl", "Linux-usermod", "0.69", "0", "0"
"liblist-compare-perl", "List-Compare", "0.37", "0", "0"
"liblist-moreutils-perl", "List-MoreUtils", "0.25~02", "1", "0"
"libload-perl", "load", "0.19", "0", "0"
"liblocal-lib-perl", "local-lib", "1.004009", "0", "0"
"liblocale-gettext-perl", "gettext", "1.05", "1", "0"
"liblocale-maketext-fuzzy-perl", "Locale-Maketext-Fuzzy", "0.10", "0", "0"
"liblocale-maketext-gettext-perl", "Locale-Maketext-Gettext", "1.28", "0", "0"
"liblocale-maketext-lexicon-perl", "Locale-Maketext-Lexicon", "0.77", "0", "0"
"liblocale-msgfmt-perl", "Locale-Msgfmt", "0.14", "0", "0"
"liblocale-subcountry-perl", "Locale-SubCountry", "1.41", "0", "0"
"liblocale-us-perl", "Locale-US", "1.2", "0", "0"
"liblockfile-simple-perl", "LockFile-Simple", "0.207", "4", "0"
"liblog-agent-logger-perl", "Log-Agent-Logger", "0.1.1", "0", "0"
"liblog-agent-perl", "Log-Agent", "0.307", "0", "0"
"liblog-agent-rotate-perl", "Log-Agent-Rotate", "0.104", "0", "0"
"liblog-handler-perl", "Log-Handler", "0.63", "0", "0"
CSS-SAC
view release on metacpan or search on metacpan
keep those to a justified minimum and to flag them correctly.
=head2 the CSS::SAC module itself
The Parser class doesn't exist separately, it's defined in CSS::SAC.
It doesn't expose the locale interface because we don't localize
errors (yet). It also doesn't have C<parse_style_sheet> but rather
C<parse>, which is more consistent with other Perl parsing interfaces.
I have added the C<charset($charset)> callback to the DocumentHandler
interface. There are valid reasons why it wasn't there (it can be
CSS-Sass
view release on metacpan or search on metacpan
bin/psass.pl view on Meta::CPAN
# get cmd arg encoding
use Encode::Locale qw();
# convert cmd args to utf8
use Encode qw(decode encode);
# now just decode every command arguments
@ARGV = map { decode(locale => $_, 1) } @ARGV;
####################################################################################################
# config variables
####################################################################################################
CSV-Reader
view release on metacpan or search on metacpan
lib/CSV/Reader.pm view on Meta::CPAN
This was designed with the idea of using an iterator interface, but Perl does not support interators (nor interfaces) yet :(
=head1 SYNOPSIS
use CSV::Reader ();
use open OUT => ':locale'; # optional; make perl aware of your terminal's encoding
# Create reader from file name:
my $reader = new CSV::Reader('/path/to/file.csv');
# Create reader from a file handle (GLOB):
CTKlib
view release on metacpan or search on metacpan
lib/CTK/Util.pm view on Meta::CPAN
Returns CR/LF normalized string
Tags: BASE, FORMAT
=head3 localedir
my $value = localedir();
For example value can be set as: /usr/share/locale
See L<Sys::Path/"localedir">
Tags: CORE, BASE, FILE
=head3 localstatedir
lib/CTK/Util.pm view on Meta::CPAN
Exports functions:
L</"cachedir">,
L</"docdir">,
L</"localedir">,
L</"localstatedir">,
L</"lockdir">,
L</"prefixdir">,
L</"rundir">,
L</"sharedir">,
lib/CTK/Util.pm view on Meta::CPAN
read_attributes
syscfg getsyscfg isos isostype
);
my @est_core = qw(
prefixdir localstatedir sysconfdir srvdir
sharedir docdir localedir cachedir syslogdir spooldir rundir lockdir sharedstatedir webdir
);
my @est_util = qw(
randomize randchars shuffle isTrueFlag isFalseFlag
);
my @est_encoding = qw(
lib/CTK/Util.pm view on Meta::CPAN
#
# See Sys::Path
#
# prefixdir localstatedir sysconfdir srvdir
# sharedir docdir localedir cachedir syslogdir spooldir rundir lockdir sharedstatedir webdir
#
sub prefixdir {
my $pfx = __PACKAGE__->ext_syscfg('prefix') ;
return defined $pfx ? $pfx : '';
}
lib/CTK/Util.pm view on Meta::CPAN
my $pfx = prefixdir();
return $pfx eq '/usr' ? '/var/www' : catdir($pfx, 'www');
}
sub sharedir { catdir(prefixdir(), 'share') }
sub docdir { catdir(prefixdir(), 'share', 'doc') }
sub localedir { catdir(prefixdir(), 'share', 'locale') }
sub cachedir { catdir(localstatedir(), 'cache') }
sub syslogdir { catdir(localstatedir(), 'log') }
sub spooldir { catdir(localstatedir(), 'spool') }
sub rundir { catdir(localstatedir(), 'run') }
sub lockdir { catdir(localstatedir(), 'lock') }
CWB
view release on metacpan or search on metacpan
script/cwb-regedit view on Meta::CPAN
##
$| = 1;
use warnings;
use strict;
use locale;
use CWB;
use Getopt::Long;
sub Usage {
Cache-Memcached-Fast
view release on metacpan or search on metacpan
*sp += len;
return TRUE;
}
}
#else
#include <locale.h>
dTHR;
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;
#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *LoC_
#endif
#ifndef STORE_NUMERIC_SET_STANDARD
#define STORE_NUMERIC_SET_STANDARD() \
LoC_ = savepv(setlocale(LC_NUMERIC, NULL)); \
SAVEFREEPV(LoC_); \
setlocale(LC_NUMERIC, "C");
#endif
#ifndef RESTORE_LC_NUMERIC
#define RESTORE_LC_NUMERIC() \
setlocale(LC_NUMERIC, LoC_);
#endif
#else
#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#endif
#define LOCK_LC_NUMERIC_STANDARD LOCK_NUMERIC_STANDARD
#endif
#ifndef UNLOCK_LC_NUMERIC_STANDARD
#define UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD
#endif
#ifndef switch_to_global_locale
#define switch_to_global_locale()
#endif
#ifdef sync_locale
#if (PERL_BCDVERSION < 0x5027009)
#if (PERL_BCDVERSION >= 0x5021003)
#undef sync_locale
#define sync_locale() (Perl_sync_locale(aTHX), 1)
#elif defined(sync_locale)
#undef sync_locale
#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
new_collate(setlocale(LC_COLLATE, NULL)), \
set_numeric_local(), \
new_numeric(setlocale(LC_NUMERIC, NULL)), \
1)
#elif defined(new_ctype) && defined(LC_CTYPE)
#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
#endif
#endif
#endif
#ifndef sync_locale
#define sync_locale() 1
#endif
#endif
Cache-Memcached-GetParserXS
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;
Cache-Memcached-XS
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|||
sortsv||5.007003|
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
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;
Cache-Mmap
view release on metacpan or search on metacpan
Thanks to Janardhan Molumuri <mjanardhan@gmail.com>
for being bitten by this, and for assistance in fixing it
Minor documentation improvements
2004-03-15 0.081
Fix bug in t/03corrupt.t in the face of UTF8 locales
Escape non-printable characters in cmmtest
2003-10-30 0.08
Add CMM_keep_expired and CMM_keep_expired_refresh flags to enable temporary
underlying data availability problems to be dealt with nicely
Cache-Swifty
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|||
sortsv||5.007003|
ss_dup|||
stack_grow|||
start_glob|||
start_subparse||5.004000|
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;
Cache-utLRU
view release on metacpan or search on metacpan
_invlist_search|||n
_invlist_subtract|||
_invlist_union_maybe_complement_2nd|||
_invlist_union|||
_is_cur_LC_category_utf8|||
_is_in_locale_category||5.021001|
_is_uni_FOO||5.017008|
_is_uni_perl_idcont||5.017008|
_is_uni_perl_idstart||5.017007|
_is_utf8_FOO||5.017008|
_is_utf8_char_slow||5.021001|n
_load_PL_utf8_foldclosures|||
_make_exactf_invlist|||
_new_invlist_C_array|||
_new_invlist|||
_pMY_CXT|5.007003||p
_setlocale_debug_string|||n
_setup_canned_invlist|||
_swash_inversion_hash|||
_swash_to_invlist|||
_to_fold_latin1|||
_to_uni_fold_flags||5.014000|
_to_utf8_case|||
_to_utf8_fold_flags||5.019009|
_to_utf8_lower_flags||5.019009|
_to_utf8_title_flags||5.019009|
_to_utf8_upper_flags||5.019009|
_warn_problematic_locale|||n
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
aTHXR_|5.024000||p
aTHXR|5.024000||p
aTHX_|5.006000||p
advance_one_WB|||
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|n
cast_iv||5.006000|n
cast_ulong||5.006000|n
cast_uv||5.006000|n
check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
ckWARN|5.006000||p
find_script|||
find_uninit_var|||
first_symbol|||n
fixup_errno_string|||
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|||
my_memset|||n
my_pclose||5.003070|
my_popen_list||5.007001|
my_popen||5.003070|
my_setenv|||
my_setlocale|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
my_stat||5.024000|
space_join_names_mortal|||
ss_dup|||
ssc_add_range|||
ssc_and|||
ssc_anything|||
ssc_clear_locale|||n
ssc_cp_and|||
ssc_finalize|||
ssc_init|||
ssc_intersection|||
ssc_is_anything|||n
ssc_or|||
ssc_union|||
stack_grow|||
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|
swallow_bom|||
swash_fetch||5.007002|
swash_init||5.006000|
swash_scan_list_line|||
swatch_get|||
sync_locale||5.021004|
sys_init3||5.010000|n
sys_init||5.010000|n
sys_intern_clear|||
sys_intern_dup|||
sys_intern_init|||
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;
Cairo
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|||
incl_perldb|||
incline|||
incpush_if_exists|||
stack_grow|||
start_force|||
start_glob|||
start_subparse||5.004000|
stashpv_hvname_match||5.009005|
stdize_locale|||
strEQ|||
strGE|||
strGT|||
strLE|||
strLT|||
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;
Calendar-Any
view release on metacpan or search on metacpan
use Getopt::Long qw(:config auto_help);
use Calendar::Any::Util::Calendar qw(:all);
use I18N::Langinfo;
my %Config = (
'locale' => langinfo(I18N::Langinfo::CODESET()),
'weekstart' => 0,
'type' => 'gregorian',
);
my ($month, $year, $type, $china, $gregorian, $julian);
# Install configuration
$week_start_day = $Config{weekstart};
$type = $Config{type};
GetOptions(
'locale=s' => \$Config{locale},
'china' => \$china,
'gregorian' => \$gregorian,
'julian' => \$julian,
'type=s' => \$type,
'weekstart=i' => \$week_start_day,
pod2usage();
}
my $cal = Calendar::Any::Util::Calendar::calendar($month, $year, $type)."\n";
if ( $type =~ /China/ ) {
# out put using locale
require Encode;
Encode::_utf8_on($cal);
print Encode::encode($Config{locale}, $cal);
} else {
print $cal;
}
__END__
version 0.5
=head1 SYNOPSIS
cal.pl [-l locale -w weekstart [-c|-g|-j|-t calendar_type] month year]
Options:
-l, --locale locale
The locale of system. Only for Non english calendar.
-w, --weekstart start
The week start day for the output. Default is 0, means the
first day of the week is Sunday
Calendar-Model
view release on metacpan or search on metacpan
lib/Calendar/Model.pm view on Meta::CPAN
A simple Model layer providing Classes representing A Calendar containing rows and days
=cut
use POSIX qw(locale_h);
use I18N::Langinfo qw(langinfo DAY_1 DAY_2 DAY_3 DAY_4 DAY_5 DAY_6 DAY_7
MON_1 MON_2 MON_3 MON_4 MON_5 MON_6
MON_7 MON_8 MON_9 MON_10 MON_11 MON_12);
use DateTime;
use DateTime::Duration;
lib/Calendar/Model.pm view on Meta::CPAN
###
sub _translate_days_months {
my $self = shift;
# query and save the old locale
my $old_locale = POSIX::setlocale( &POSIX::LC_ALL);
# set local from obj language
POSIX::setlocale( &POSIX::LC_ALL,$self->{LANG});
$self->_days_of_week([ undef, map { langinfo($_) } (DAY_1, DAY_2, DAY_3, DAY_4, DAY_5, DAY_6, DAY_7) ]);
$self->_months_of_year([ undef, map { langinfo($_) } (MON_1, MON_2, MON_3, MON_4, MON_5, MON_6,
MON_7, MON_8, MON_9, MON_10, MON_11, MON_12) ]);
$self->_columns([@{$self->days_of_week}[1,2,3,4,5,6,7]]);
# restore the old locale
setlocale(LC_CTYPE, $old_locale);
return;
}
no Moose;
Calendar-Schedule
view release on metacpan or search on metacpan
1. use of uninitialize value in comparisons, lines 1386 and 1208
2. issue with Windows behaviour (spliting CL arguments within quotes)
1.18 Sun Nov 8 15:33:57 AST 2020
- fixing bug in test t/02.t; added an option to bin/cal2html to make
the test independent of locale and the current date
- added option --ColLabel to cal2html to specify column label
- test t/02.t now uses "cal2html --ColLabel='weekday %w'" to avoid depending
on local weekday names, and the current time
1.17 Sat Nov 7 10:16:22 AST 2020
- thanks to Gabor Szabo for GitHub PR to add files for CI
- thanks to Slaven Rezic for reporting the bug re locale
The bug is fixed by setting LC_ALL=C just for test t/02.t
- documentation improvements
1.16 Fri Nov 6 15:50:06 AST 2020
- add script bin/cal2html to EXE_FILES in Makefile.PL
1.10 Fri Jul 17 08:18:19 ADT 2020
- documentation improvements
- thanks to Mohammad S Anwar for PR regarding license
- added LICENSE
- fixing bug: t/01.t depended on locale due to the weekday name,
replace it with "Week day 1", "Week day 2", etc.;
thanks to Slaven Rezic for reporting the bug
- thanks to David Cross for help with Meta CPAN documentation
1.09 Thu Jul 16 09:16:35 ADT 2020
CallBackery
view release on metacpan or search on metacpan
lib/CallBackery.pm view on Meta::CPAN
=head1 ATTRIBUTES
=cut
# load the two modules to have perl check them
# having a non-C locale for number will wreck all sorts of havoc
# when things get converted to string and back
use POSIX qw(locale_h);
setlocale(LC_NUMERIC, "C");
setlocale(LC_TIME, "C");
use Mojo::Base 'Mojolicious';
use Mojolicious::Plugin::Qooxdoo;
use Mojo::URL;
use Mojo::JSON;
lib/CallBackery.pm view on Meta::CPAN
=cut
sub startup {
my $app = shift;
# having a non-C locale for number will wreck all sorts of havoc
# when things get converted to string and back
setlocale(LC_NUMERIC, "C");
setlocale(LC_TIME, "C");
weaken($app);
$app->config->postProcessCfg();
my $gcfg = $app->config->cfgHash->{BACKEND};
if ($gcfg->{log_file}){
if (open my $file, '>>', $gcfg->{log_file}){
Capstone
view release on metacpan or search on metacpan
_invlist_search|||n
_invlist_subtract|||
_invlist_union_maybe_complement_2nd|||
_invlist_union|||
_is_cur_LC_category_utf8|||
_is_in_locale_category||5.021001|
_is_uni_FOO||5.017008|
_is_uni_perl_idcont||5.017008|
_is_uni_perl_idstart||5.017007|
_is_utf8_FOO||5.017008|
_is_utf8_char_slow||5.021001|n
_to_upper_title_latin1|||
_to_utf8_fold_flags||5.019009|
_to_utf8_lower_flags||5.019009|
_to_utf8_title_flags||5.019009|
_to_utf8_upper_flags||5.019009|
_warn_problematic_locale|||n
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
aTHXR_|5.021008||p
aTHXR|5.021008||p
aTHX_|5.006000||p
advance_one_WB|||
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|n
cast_iv||5.006000|n
cast_ulong||5.006000|n
cast_uv||5.006000|n
check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
ckWARN|5.006000||p
find_script|||
find_uninit_var|||
first_symbol|||n
fixup_errno_string|||
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|||
my_memset|||n
my_pclose||5.003070|
my_popen_list||5.007001|
my_popen||5.003070|
my_setenv|||
my_setlocale|||
my_snprintf|5.009004||pvn
my_socketpair||5.007003|n
my_sprintf|5.009003||pvn
my_stat_flags|||
my_stat||5.021008|
space_join_names_mortal|||
ss_dup|||
ssc_add_range|||
ssc_and|||
ssc_anything|||
ssc_clear_locale|||n
ssc_cp_and|||
ssc_finalize|||
ssc_init|||
ssc_intersection|||
ssc_is_anything|||n
ssc_or|||
ssc_union|||
stack_grow|||
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|
swallow_bom|||
swash_fetch||5.007002|
swash_init||5.006000|
swash_scan_list_line|||
swatch_get|||
sync_locale||5.021004|
sys_init3||5.010000|n
sys_init||5.010000|n
sys_intern_clear|||
sys_intern_dup|||
sys_intern_init|||
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;
Capture-Tiny
view release on metacpan or search on metacpan
t/lib/Cases.pm view on Meta::CPAN
our @ISA = 'Exporter';
our @EXPORT_OK = qw(
run_test
);
my $locale_ok = eval {
my $err = capture_stderr { system($^X, '-we', 1) };
$err !~ /setting locale failed/i;
};
my $have_diff = eval {
require Test::Differences;
Test::Differences->import;
t/lib/Cases.pm view on Meta::CPAN
my $test_type = shift or return;
my $todo = shift || '';
my $skip_utf8 = shift || '';
local $ENV{PERL_CAPTURE_TINY_TIMEOUT} = 0; # don't timeout during testing
for my $m ( keys %methods ) {
if ( ($m eq 'sys' || substr($test_type,0,3) eq 'tee' ) && ! $locale_ok ) {
SKIP: {
skip "Perl could not initialize locale", 1
};
next;
}
for my $c ( keys %channels ) {
for my $t ( keys %texts ) {
Caroline
view release on metacpan or search on metacpan
lib/Caroline.pm view on Meta::CPAN
=head1 About east Asian ambiguous width characters
Caroline detects east Asian ambiguous character width from environment variable using L<Unicode::EastAsianWidth::Detect>.
User need to set locale correctly. For more details, please read L<Unicode::EastAsianWidth::Detect>.
=head1 LICENSE
Copyright (C) tokuhirom.
Cassandra-Client
view release on metacpan or search on metacpan
PerlProc_pipe_cloexec|||
PerlSock_accept_cloexec|||
PerlSock_socket_cloexec|||
PerlSock_socketpair_cloexec|||
Perl_langinfo|||n
Perl_setlocale|||n
PoisonFree|5.009004||p
PoisonNew|5.009004||p
PoisonWith|5.009004||p
Poison|5.008000||p
READ_XDIGIT||5.017006|
Zero|||
__ASSERT_|||p
_aMY_CXT|5.007003||p
_inverse_folds|||
_is_grapheme|||
_is_in_locale_category|||
_new_invlist_C_array|||
_pMY_CXT|5.007003||p
_to_fold_latin1|||n
_to_upper_title_latin1|||
_to_utf8_case|||
_variant_byte_number|||n
_warn_problematic_locale|||n
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
aTHXR_|5.024000||p
aTHXR|5.024000||p
aTHX_|5.006000||p
advance_one_LB|||
advance_one_SB|||
advance_one_WB|||
allocmy|||
amagic_call|||
amagic_cmp_locale|||
amagic_cmp|||
amagic_deref_call||5.013007|
amagic_i_ncmp|||
amagic_is_enabled|||
amagic_ncmp|||
dump_vindent||5.006000|
dumpuntil|||
dup_attrlist|||
dup_warnings|||
edit_distance|||n
emulate_setlocale|||n
eval_pv|5.006000||p
eval_sv|5.006000||p
exec_failed|||
expect_number|||
fbm_compile||5.005000|
find_span_end|||n
first_symbol|||n
fixup_errno_string|||
foldEQ_latin1_s2_folded|||n
foldEQ_latin1||5.013008|n
foldEQ_locale||5.013002|n
foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
force_ident_maybe_lex|||
hv_store_ent||5.003070|
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|||
pregcomp||5.009005|
pregexec|||
pregfree2||5.011000|
pregfree|||
prescan_version||5.011004|
print_bytes_for_locale|||
print_collxfrm_input_and_return|||
printbuf|||
printf_nocontext|||vn
process_special_blocks|||
ptr_hash|||n
report_uninit|||
report_wrongway_fh|||
require_pv||5.006000|
require_tie_mod|||
restore_magic|||
restore_switched_locale|||
rninstr|||n
rpeep|||
rsignal_restore|||
rsignal_save|||
rsignal_state||5.004000|
setfd_cloexec_for_nonsysfd|||
setfd_cloexec_or_inhexec_by_sysfdness|||
setfd_cloexec|||n
setfd_inhexec_for_sysfd|||
setfd_inhexec|||n
setlocale_debug_string|||n
share_hek_flags|||
share_hek||5.004000|
should_warn_nl|||n
si_dup|||
sighandler|||n
space_join_names_mortal|||
ss_dup|||
ssc_add_range|||
ssc_and|||
ssc_anything|||
ssc_clear_locale|||n
ssc_cp_and|||
ssc_finalize|||
ssc_init|||
ssc_intersection|||
ssc_is_anything|||n
ssc_is_cp_posixl_init|||n
ssc_or|||
ssc_union|||
stack_grow|||
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|
sv_vsetpvfn||5.004000|
sv_vsetpvf|5.006000|5.004000|p
svtype|||
swallow_bom|||
swatch_get|||
switch_category_locale_to_template|||
switch_to_global_locale|||n
sync_locale||5.021004|n
sys_init3||5.010000|n
sys_init||5.010000|n
sys_intern_clear|||
sys_intern_dup|||
sys_intern_init|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
win32_setlocale|||
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
#ifdef EBCDIC
/* This is the first version where these macros are fully correct. Relying on
* the C library functions, as earlier releases did, causes problems with
* locales */
# if (PERL_BCDVERSION < 0x5022000)
# undef isALNUM
# undef isALNUM_A
# undef isALNUMC
# undef isALNUMC_A
#else /* Above is EBCDIC; below is ASCII */
# if (PERL_BCDVERSION < 0x5004000)
/* The implementation of these in older perl versions can give wrong results if
* the C program locale is set to other than the C locale */
# undef isALNUM
# undef isALNUM_A
# undef isALPHA
# undef isALPHA_A
# undef isDIGIT
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;
Catalyst-Authentication-Credential-RedmineCookie
view release on metacpan or search on metacpan
lib/Catalyst/Authentication/RedmineCookie/Schema/Result/Members.pm view on Meta::CPAN
"created_on",
{
data_type => "datetime",
datetime_undef_if_invalid => 1,
is_nullable => 1,
locale => "ja_JP",
timezone => "Asia/Tokyo",
},
"mail_notification",
{ data_type => "tinyint", default_value => 0, is_nullable => 0 },
);
( run in 2.324 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )