Result:
found 1026 distributions and 1800 files matching your query !
( run in 1.145 )
Thread-CSP
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
src/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Thread-Csp
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
src/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Thread-GoChannel
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Tie-Hash-DBD
view release on metacpan or search on metacpan
return $dsn;
}
# We assume user "0" is illegal
my $user = $ENV{LOGNAME} || $ENV{USER};
$user ||= getpwuid $< unless $^O eq "MSWin32";
$user ||= "";
if ($type eq "Oracle") {
my @id = split m{/} => ($ENV{ORACLE_USERID} || "/"), -1;
$ENV{DBI_USER} = $id[0];
Timeout-Queue
view release on metacpan or search on metacpan
t/spellcheck.t view on Meta::CPAN
executables
filehandle
filehandles
FILENO
fujitsu
getpwuid
getservbyname
GMP
GPL
hmac
HMAC
Tk-Enscript
view release on metacpan or search on metacpan
Enscript.pm view on Meta::CPAN
sub parse_cfg {
my $cfg_file = shift;
my @cfg_files = (Tk->findINC('enscript.cfg'));
if (!defined $cfg_file) {
my $home_dir = eval { local $SIG{__DIE__};
(getpwuid($<))[7];
} || $ENV{'HOME'} || '';
my $pers_cfg_file = "$home_dir/.enscriptrc";
if (-f $pers_cfg_file && -r $pers_cfg_file) {
$cfg_file = $pers_cfg_file;
}
Tk-IDElayout
view release on metacpan or search on metacpan
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
Tk-JFileDialog
view release on metacpan or search on metacpan
lib/Tk/JFileDialog.pm view on Meta::CPAN
{
$self->{'Configure'}{'-Path'} =~ s#\\#\/#g;
}
else
{
$self->{'Configure'}{'-Path'} = (getpwuid($<))[7]
unless (!$< || $self->{'Configure'}{'-Path'});
}
$self->{'Configure'}{'-Path'} ||= &cwd() || &getcwd();
if ($bummer && $self->{'Configure'}{'-Path'} =~ /^(\w\:)/)
{
Tk-LockDisplay
view release on metacpan or search on metacpan
LockDisplay.pm view on Meta::CPAN
my $user;
if (not $user = getlogin) {
if ($^O eq 'MSWin32') {
$user = $^O;
} else {
die "Can't get user name." if not $user = getpwuid($<);
}
}
$cw->{user} = $user;
$cw->{-authenticate} = delete $args->{-authenticate};
die "-authenticate callback is improper or missing." unless ref($cw->{-authenticate}) eq 'CODE';
LockDisplay.pm view on Meta::CPAN
. Allow plugin name 'none' to disable screensaver. Thanks to
Roderick Anderson!
=item Version 1.2
. getlogin() fails on HPUX, so try getpwuid() as a fallback.
Thanks to Paul Schinder for the CPAN-Testers bug report.
. Plugins can return() their own -animationinterval value
during preset.
. Add 'neko' plugin.
Tk-OS2src
view release on metacpan or search on metacpan
patches/diff_tk_os2_800_02a view on Meta::CPAN
Tcl_AppendResult(canvasPtr->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
"%%Creator: Tk Canvas Widget\n", (char *) NULL);
-#if !(defined(__WIN32__) || defined(MAC_TCL))
+#if !(defined(__WIN32__) || defined(MAC_TCL) || defined(__EMX__))
if (!Tcl_IsSafe(interp)) {
struct passwd *pwPtr = getpwuid(getuid());
Tcl_AppendResult(canvasPtr->interp, "%%For: ",
diff -pru Tk800.0_02/pTk/mTk/generic/tkWindow.c Tk800.0_02.my/pTk/mTk/generic/tkWindow.c
--- Tk800.0_02/pTk/mTk/generic/tkWindow.c Fri Mar 6 07:58:12 1998
+++ Tk800.0_02.my/pTk/mTk/generic/tkWindow.c Sat Apr 4 01:59:24 1998
@@ -1167,7 +1167,7 @@ Tk_DestroyWindow(tkwin)
Tk-TableMatrix
view release on metacpan or search on metacpan
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
Tk-Zinc
view release on metacpan or search on metacpan
PostScript.c view on Meta::CPAN
if (ps_info.prolog) {
Tcl_AppendResult(wi->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
"%%Creator: Tk Zinc Widget\n", (char *) NULL);
#ifdef HAVE_PW_GECOS
if (!Tcl_IsSafe(wi->interp)) {
struct passwd *pwPtr = getpwuid(getuid()); /* INTL: Native. */
Tcl_AppendResult(wi->interp, "%%For: ",
(pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
(char *) NULL);
endpwent();
}
Tk
view release on metacpan or search on metacpan
sub _get_homedir {
my($user) = @_;
if (!defined $user) {
eval {
local $SIG{__DIE__};
(getpwuid($<))[7];
} || $ENV{HOME} || undef; # chdir undef changes to home directory, too
} else {
eval {
local $SIG{__DIE__};
(getpwnam($user))[7];
Trash-Park
view release on metacpan or search on metacpan
lib/Trash/Park.pm view on Meta::CPAN
my($self) = @_;
return sprintf "%s %s %10s %s",
scalar format_mode($self->{mode} & 07777),
nice_time($self->{move_time}),
getpwuid($self->{uid}) || $self->{uid},
$self->{file};
}
###########################################
sub nice_time {
Tree-Lexicon
view release on metacpan or search on metacpan
t/tree-lexicon.t view on Meta::CPAN
'b' => [ 'bind', 'binmode', 'bless', 'break' ],
'c' => [ 'caller', 'chdir', 'chmod', 'chomp', 'chop', 'chown', 'chr', 'chroot', 'close', 'closedir', 'cmp', 'connect', 'continue', 'cos', 'crypt' ],
'd' => [ 'dbmclose', 'dbmopen', 'defined', 'delete', 'die', 'do', 'dump' ],
'e' => [ 'each', 'else', 'elsif', 'endgrent', 'endhostent', 'endnetent', 'endprotoent', 'endpwent', 'endservent', 'eof', 'eq', 'eval', 'exec', 'exists', 'exit', 'exp' ],
'f' => [ 'fcntl', 'fileno', 'flock', 'for', 'foreach', 'fork', 'format', 'formline' ],
'g' => [ 'ge', 'getc', 'getgrent', 'getgrgid', 'getgrnam', 'gethostbyaddr', 'gethostbyname', 'gethostent', 'getlogin', 'getnetbyaddr', 'getnetbyname', 'getnetent', 'getpeername', 'getpgrp', 'getppid', 'getpriority', 'getprotobyname', 'getprot...
'h' => [ 'hex' ],
'i' => [ 'if', 'index', 'int', 'ioctl' ],
'j' => [ 'join' ],
'k' => [ 'keys', 'kill' ],
'l' => [ 'last', 'lc', 'lcfirst', 'le', 'length', 'link', 'listen', 'local', 'localtime', 'lock', 'log', 'lstat', 'lt' ],
Tree-PseudoIncLib
view release on metacpan or search on metacpan
PseudoIncLib.pm view on Meta::CPAN
) = stat ($full_file_name);
# on this stage the sub-directory has some (fictive in my understanding) size...
$row->{size} = $size_2;
$row->{inode} = $ino;
$row->{owner} = getpwuid($uid) unless $self->{skip_owner};
$row->{group} = getgrgid($gid) unless $self->{skip_group};
if ($type eq 'd') {
# one directory might have multiple rpm-owners like:
# [slava@PBC110 slava]$ rpm -qf /usr/lib/perl5/5.6.1/i386-linux
PseudoIncLib.pm view on Meta::CPAN
unless ($self->{skip_mode}){
my $permissions = sprintf "%04o", $mode & 07777;
$lib_descr->{permissions_octal_text} = $permissions;
}
$lib_descr->{owner} = getpwuid($uid) unless $self->{skip_owner};
$lib_descr->{group} = getgrgid($gid) unless $self->{skip_group};
$lib_descr->{inode} = $ino;
$lib_descr->{child_dir_list} = $self->_dir_description (
root_dir => $dir,
Tree-RB-XS
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Tripletail
view release on metacpan or search on metacpan
lib/Tripletail.pm view on Meta::CPAN
my $this = shift;
my $uid = $<;
my ($username, $home);
if( $^O ne 'MSWin32' )
{
$username = getpwuid($uid);
$home = (getpwuid($uid))[7];
}else
{
$username = 'anonymous';
$home = 'C:/';
}
Twiki-Upload
view release on metacpan or search on metacpan
lib/Pod/Simple/Wiki/Twiki/Upload.pm view on Meta::CPAN
$twikiweb ||= 'Main';
my %files = make_file_list;
return unless %files;
my $user = $ENV{TWIKI_USER} || prompt("What is your twiki user id?", scalar(getpwuid($<)));
chomp($user);
$user =~ s/ $//;
system("stty -echo");
my $pass = $ENV{TWIKI_PASS} || prompt("What is your twiki password?", '');
chomp($pass);
Type-Tiny-XS
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
UI-Dialog
view release on metacpan or search on metacpan
lib/UI/Dialog/Backend/Nautilus.pm view on Meta::CPAN
}
sub _get_desktop_dir {
my $self = shift();
# Figure out the user's home directory
my @user = getpwuid($>);
my $home = undef;
if (@user > 7 && -d $user[7]) {
$home = $user[7];
}
# check for XDG paths to home directory
UID2-Client-XS
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
UR
view release on metacpan or search on metacpan
lib/UR/Context/Process.pm view on Meta::CPAN
{
$real_user_name = 'WindowsUser';
}
else
{
$real_user_name = getpwuid($<) || getlogin || 'unknown';
}
}
return $real_user_name;
}
lib/UR/Context/Process.pm view on Meta::CPAN
{
my $class = shift;
if (!$effective_user_name)
{
$effective_user_name = getpwuid($>) || 'unknown';
}
return $effective_user_name;
}
=pod
UTF2
view release on metacpan or search on metacpan
lib/Eutf2.pm view on Meta::CPAN
### More-desperate methods
# Light desperation on any (Unixish) platform
else {
$home = CORE::eval q{ (getpwuid($<))[7] };
}
# On Unix in general, a non-existant home means "no home"
# For example, "nobody"-like users might use /nonexistant
if (defined $home and ! -d($home)) {
Ubic
view release on metacpan or search on metacpan
lib/Ubic/Admin/Setup.pm view on Meta::CPAN
print_tty "Default user will be used in this case.\n";
$default_user = prompt_str("Default user?", $opt_default_user);
}
else {
print_tty "\n";
$default_user = getpwuid($>);
unless (defined $default_user) {
die "Can't get login (uid '$>')";
}
print_tty "You're using local installation, so default service user will be set to '$default_user'.\n";
}
UnQLite
view release on metacpan or search on metacpan
unqlite/unqlite.c view on Meta::CPAN
{
#ifndef JX9_UNIX_STATIC_BUILD
struct passwd *pwd;
uid_t uid;
uid = getuid();
pwd = getpwuid(uid); /* Try getting UID for username */
if (pwd == 0) {
return;
}
/* Return the username */
jx9_result_string(pCtx, pwd->pw_name, -1);
Unicode-ICU
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Unicode-Map
view release on metacpan or search on metacpan
$registry_loaded=1;
1}
sub _getHomeDir {
$ENV{HOME}
|| eval ( '(getpwuid($<))[7]' ) # for systems not supporting getpwuid
|| "/";
}
sub _add_registry_entry {
my ($S, $name, $src, $map, $srcURL, $style, $aliasL, $info) = @_;
Unicode-Precis-Preparation
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
Unicorn-Manager
view release on metacpan or search on metacpan
lib/Unicorn/Manager/CLI/Proc.pm view on Meta::CPAN
my %user_table = %{ $self->process_table->ptable };
my @users = keys %user_table;
for (@users) {
my $username = getpwuid $_;
$user_table{$username} = $user_table{$_};
delete $user_table{$_};
}
return {%user_table};
( run in 1.145 second using v1.01-cache-2.11-cpan-4face438c0f )