view release on metacpan or search on metacpan
lib/Test/Reporter.pm view on Meta::CPAN
warn __PACKAGE__, ": _mailaddress\n" if $self->debug();
my $mailaddress = $ENV{MAILADDRESS};
$mailaddress ||= $ENV{USER} ||
$ENV{LOGNAME} ||
eval {getpwuid($>)} ||
"postmaster";
$mailaddress .= '@' . $self->_maildomain() unless $mailaddress =~ /\@/;
$mailaddress =~ s/(^.*<|>.*$)//g;
my $realname = $self->_realname();
lib/Test/Reporter.pm view on Meta::CPAN
warn __PACKAGE__, ": _realname\n" if $self->debug();
my $realname = '';
$realname =
eval {(split /,/, (getpwuid($>))[6])[0]} ||
$ENV{QMAILNAME} ||
$ENV{REALNAME} ||
$ENV{USER};
return $realname;
view release on metacpan or search on metacpan
- Adding namespace::autoclean and other deps
- Cleaning up Build.PL, adding LICENSE, META, examples, etc.
0.04 08.02.09
- in t/02-failure.t: initialized $ENV{'HOME'} as empty (windows)
- in t/03-successful.t: skipping if getpwuid doesn't work (windows)
0.03 20.01.08
- in t/01-timeout.t: finally fixed eval for Test::Timer
- in t/03-successful.t: finally fixed eval for File::Util
- in t/03-successful.t: changed no. of skipped tests in first SKIP
view release on metacpan or search on metacpan
lib/Test/SSH.pm view on Meta::CPAN
/opt/*SSH*
/opt/*SSH*/* ) );
@default_user_keys = bsd_glob("~/.ssh/*", GLOB_TILDE);
$default_user = getpwuid($>);
($private_dir) = bsd_glob("~/.libtest-ssh-perl", GLOB_TILDE|GLOB_NOCHECK);
}
view release on metacpan or search on metacpan
lib/Test/Smoke/Reporter.pm view on Meta::CPAN
smoke_date => __posixdate($self->{_rpt}{started}),
smoke_revision => $Test::Smoke::VERSION,
smoker_version => $Test::Smoke::Smoker::VERSION,
smoke_version => $Test::Smoke::VERSION,
test_jobs => $ENV{TEST_JOBS},
username => $ENV{LOGNAME} || getlogin || getpwuid($<) || "?",
user_note => $user_note,
smoke_perl => ($^V ? sprintf("%vd", $^V) : $]),
};
};
$rpt{compiler_msgs} = [$self->ccmessages];
view release on metacpan or search on metacpan
maint/build-perl-dic view on Meta::CPAN
alarm exec fork getpgrp getppid getpriority kill pipe qx readpipe setpgrp setpriority sleep system times wait waitpid
do import no package require use
bless dbmclose dbmopen package ref tie tied untie use
accept bind connect getpeername getsockname getsockopt listen recv send setsockopt shutdown socket socketpair
msgctl msgget msgrcv msgsnd semctl semget semop shmctl shmget shmread shmwrite
endgrent endhostent endnetent endpwent getgrent getgrgid getgrnam getlogin getpwent getpwnam getpwuid setgrent setpwent
endprotoent endservent gethostbyaddr gethostbyname gethostent getnetbyaddr getnetbyname getnetent getprotobyname getprotobynumber getprotoent getservbyname getservbyport getservent sethostent setnetent setprotoent setservent
gmtime localtime time times
and AUTOLOAD BEGIN CHECK cmp CORE __DATA__ default DESTROY else elseif elsif END __END__ eq for foreach ge given gt if INIT le lt ne not or UNITCHECK unless until when while x xor
),
);
view release on metacpan or search on metacpan
lib/Test/TempDatabase.pm view on Meta::CPAN
sub become_postgres_user {
my $class = shift;
return if $<;
my $p_uid = $class->find_postgres_user;
my @pw = getpwuid($p_uid);
carp("# $class\->become_postgres_user: setting $pw[0] uid\n");
setuid($p_uid) or die "Unable to set $p_uid uid";
$ENV{HOME} = $pw[ $#pw - 1 ];
}
view release on metacpan or search on metacpan
lib/Test/Unix/User.pm view on Meta::CPAN
}
}
}
if(exists $spec->{owner}) {
my $owner = getpwuid($sb->uid)->name();
if($spec->{owner} ne $owner) {
push @diag, " Field: owner\n";
push @diag, " expected: $spec->{owner}\n";
push @diag, " got: $owner\n";
}
view release on metacpan or search on metacpan
lib/Test2/Plugin/FauxHomeDir.pm view on Meta::CPAN
$real = $ENV{HOME};
$user = $ENV{USER};
}
$user = eval { getlogin } unless defined $user;
$user = eval { scalar getpwuid($>) } unless defined $user;
die "unable to determine username" unless defined $user;
die "unable to determine 'real' home directory"
unless defined $real && -d $real;
lib/Test2/Plugin/FauxHomeDir.pm view on Meta::CPAN
directory.
At the moment this module accomplishes this by setting the operating
system appropriate environment variables. In the future, it may hook
into some of the other methods used for determining home directories
(such as C<getpwuid> and friends). There are many ways of getting
around this faux module and getting the real home directory (especially
from C). But if your code uses standard Perl interfaces then this
plugin should fool your code okay.
This module sets the native environment variables for the home directory
view release on metacpan or search on metacpan
examples/csvdiff view on Meta::CPAN
use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 0 });
if ($opt_h) {
binmode STDOUT, ":encoding(utf-8)";
my $name = $^O eq "MSWin32" ? Win32::LoginName () : scalar getpwuid $<;
print <<"EOH";
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
view release on metacpan or search on metacpan
discount-2.2.7d/cmake/CMakeLists.txt view on Meta::CPAN
string(TOUPPER ${_symbol} _SYMBOL)
check_symbol_exists(${_symbol} string.h HAVE_${_SYMBOL})
endforeach()
check_symbol_exists(random stdlib.h HAVE_RANDOM)
check_symbol_exists(srandom stdlib.h HAVE_SRANDOM)
check_symbol_exists(getpwuid pwd.h HAVE_GETPWUID)
check_symbol_exists(basename libgen.h HAVE_BASENAME)
check_symbol_exists(fchdir unistd.h HAVE_FCHDIR)
if(HAVE_STAT)
check_symbol_exists(S_ISCHR sys/stat.h HAVE_S_ISCHR)
check_symbol_exists(S_ISFIFO sys/stat.h HAVE_S_ISFIFO)
view release on metacpan or search on metacpan
bin/metapage view on Meta::CPAN
use File::Recurse;
my $NAME = "metapage";
my $VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
my $HOME = $ENV{ HOME } || (getpwuid($<))[7] || die "No HOME\n";
my $RCFILE = $ENV{"\U${NAME}rc"} || "$HOME/.${NAME}rc";
# configuration items
my %mppath = ();
my %mtcfg = ();
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
view release on metacpan or search on metacpan
lib/Text/Placeholder/Group/OS/Unix/File/Properties.pm view on Meta::CPAN
my $PLACEHOLDERS = {
'file_mode_octal' => sub { return($_[THIS][ATR_STAT][2])},
'file_mode_rwx' => sub { return(as_rwx_string($_[THIS][ATR_STAT][2]))},
'file_owner_id' => sub { return($_[THIS][ATR_STAT][4])},
'file_owner_name' => sub { return((getpwuid($_[THIS][ATR_STAT][4]))[0])},
'file_group_id' => sub { return($_[THIS][ATR_STAT][5])},
'file_group_name' => sub { return((getgrgid($_[THIS][ATR_STAT][5]))[0])},
'file_size' => sub { return($_[THIS][ATR_STAT][7])},
'file_timestamp_creation' => sub { return(localtime($_[THIS][ATR_STAT][8]))},
'file_timestamp_modification' => sub { return(localtime($_[THIS][ATR_STAT][9]))},
view release on metacpan or search on metacpan
lib/Text/Quote.pm view on Meta::CPAN
endprotoent endpwent endservent eof eq eval exec exists exit exp fcntl
fileno flock for foreach fork format formline ge getc getgrent
getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid
getpriority getprotobyname getprotobynumber getprotoent getpwent
getpwnam getpwuid getservbyname getservbyport getservent getsockname
getsockopt glob gmtime goto grep gt hex if index int ioctl join keys
kill last lc lcfirst le length link listen local localtime lock log
lstat lt m map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct
open opendir or ord pack package pipe pop pos print printf prototype
push q qq qr quotemeta qw qx rand read readdir readline readlink
view release on metacpan or search on metacpan
lib/Text/Restructured/Directive/rst.st view on Meta::CPAN
endgrent endhostent endnetent endprotoent endpwent endservent eof
eq eval exec exists exit exp fcntl fileno flock for foreach fork
format formline ge getc getgrent getgrgid getgrnam gethostbyaddr
gethostbyname gethostent getlogin getnetbyaddr getnetbyname
getnetent getpeername getpgrp getppid getpriority getprotobyname
getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname
getservbyport getservent getsockname getsockopt glob gmtime goto
grep gt hex if index int ioctl join keys kill last lc lcfirst le
length link listen local localtime log lstat lt m map mkdir msgctl
msgget msgrcv msgsnd my ne new next no not oct open opendir or ord
pack package pipe pop pos print printf prototype push q qq quotemeta
view release on metacpan or search on metacpan
lib/Thorium/Utils.pm view on Meta::CPAN
sub block_new_invocations {
my ($lock_file) = @_;
unless ($lock_file) {
my $username = getlogin || getpwuid($<) || 'unknown';
my $s = $FindBin::Script;
# clean up the filename so it's easier to read and Unix-safe
$s =~ s/[.\-]/_/g;
$s =~ s/[\{\[\(\<>)\]\}~\|\/]/_/g;
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
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
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
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];
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
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;
}
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' });
}
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\:)/)
{
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.
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)
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' });
}
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();
}
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];