diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
| commit | 91f110e064cd7c194e59e019b83bb7496c1c84d4 (patch) | |
| tree | 3e8e577405dba7e94b43cbf21c22f21aaa5ab949 /gnu/usr.bin/perl/ext/POSIX/lib | |
| parent | do not call purge_task every 10 secs, it is only needed once at startup and (diff) | |
| download | wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.tar.xz wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.zip | |
Import perl-5.18.2
OK espie@ sthen@ deraadt@
Diffstat (limited to 'gnu/usr.bin/perl/ext/POSIX/lib')
| -rw-r--r-- | gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pm | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pod | 49 |
2 files changed, 28 insertions, 23 deletions
diff --git a/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pm b/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pm index 457af508681..71577c61f3a 100644 --- a/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pm +++ b/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pm @@ -4,7 +4,7 @@ use warnings; our ($AUTOLOAD, %SIGRT); -our $VERSION = '1.30'; +our $VERSION = '1.32'; require XSLoader; diff --git a/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pod b/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pod index f935ae05743..7141b873f79 100644 --- a/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pod +++ b/gnu/usr.bin/perl/ext/POSIX/lib/POSIX.pod @@ -412,7 +412,7 @@ Retrieves the value of a configurable limit on a file or directory. This uses file descriptors such as those obtained by calling C<POSIX::open>. The following will determine the maximum length of the longest allowable -pathname on the filesystem which holds C</var/foo>. +pathname on the filesystem which holds F</var/foo>. $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); @@ -730,27 +730,32 @@ containing the current locale formatting values. Here is how to query the database for the B<de> (Deutsch or German) locale. - $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" ); - print "Locale = $loc\n"; - $lconv = POSIX::localeconv(); - print "decimal_point = ", $lconv->{decimal_point}, "\n"; - print "thousands_sep = ", $lconv->{thousands_sep}, "\n"; - print "grouping = ", $lconv->{grouping}, "\n"; - print "int_curr_symbol = ", $lconv->{int_curr_symbol}, "\n"; - print "currency_symbol = ", $lconv->{currency_symbol}, "\n"; - print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n"; - print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n"; - print "mon_grouping = ", $lconv->{mon_grouping}, "\n"; - print "positive_sign = ", $lconv->{positive_sign}, "\n"; - print "negative_sign = ", $lconv->{negative_sign}, "\n"; - print "int_frac_digits = ", $lconv->{int_frac_digits}, "\n"; - print "frac_digits = ", $lconv->{frac_digits}, "\n"; - print "p_cs_precedes = ", $lconv->{p_cs_precedes}, "\n"; - print "p_sep_by_space = ", $lconv->{p_sep_by_space}, "\n"; - print "n_cs_precedes = ", $lconv->{n_cs_precedes}, "\n"; - print "n_sep_by_space = ", $lconv->{n_sep_by_space}, "\n"; - print "p_sign_posn = ", $lconv->{p_sign_posn}, "\n"; - print "n_sign_posn = ", $lconv->{n_sign_posn}, "\n"; + my $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" ); + print "Locale: \"$loc\"\n"; + my $lconv = POSIX::localeconv(); + foreach my $property (qw( + decimal_point + thousands_sep + grouping + int_curr_symbol + currency_symbol + mon_decimal_point + mon_thousands_sep + mon_grouping + positive_sign + negative_sign + int_frac_digits + frac_digits + p_cs_precedes + p_sep_by_space + n_cs_precedes + n_sep_by_space + p_sign_posn + n_sign_posn + )) + { + printf qq(%s: "%s",\n), $property, $lconv->{$property}; + } =item localtime |