view release on metacpan or  search on metacpan

eg/perlsh  view on Meta::CPAN

            $HOSTNAME $LOGNAME $CWP);

#$PS1 = '$ ';
$PS1='\w[\!]$ ';
$PS2 = '> ';
$HISTFILE = ($ENV{HOME} || ((getpwuid($<))[7])) . "/.perlsh_history";
$HISTSIZE = 256;
$INPUTRC = ($ENV{HOME} || ((getpwuid($<))[7])) . "/.perlshrc";
$STRICT = 0;

$HOSTNAME = $ENV{HOSTNAME};
$LOGNAME = $ENV{LOGNAME};
$CWP = 'main';                  # current working package

eg/perlsh  view on Meta::CPAN

                    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

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* CHANGES, lib/Term/ReadLine/Perl5.pm,
	lib/Term/ReadLine/Perl5/readline.pm: Get ready for release 1.31

2014-05-13  Rocky Bernstein <rocky@cpan.org>

	* t/10test-filelist.t: Skip some tests if we don't have getpwuid,
	e.g. Strawberry Perl on Windows

2014-05-13  Rocky Bernstein <rocky@cpan.org>

	* lib/Term/ReadLine/Perl5/readline-guide.pod,

 view release on metacpan or  search on metacpan

lib/Term/RouterCLI/Base.pm  view on Meta::CPAN

sub _ExpandTildes
{
    my $self = shift;
    my $parameter = shift;
    
    $parameter =~ s/^~([^\/]*)/$1?(getpwnam($1))[7]:$ENV{HOME}||$ENV{LOGDIR}||(getpwuid($>))[7]/e;
    return $parameter;
}


return 1;

 view release on metacpan or  search on metacpan

lib/Term/ShellUI.pm  view on Meta::CPAN

        );

    # expand tildes in the history file
    if($args{history_file}) {
        $args{history_file} =~ s/^~([^\/]*)/$1?(getpwnam($1))[7]:
            $ENV{HOME}||$ENV{LOGDIR}||(getpwuid($>))[7]/e;
    }

    for(keys %args) {
        next if $_ eq 'app';    # this param is not a member
        $self->{$_} = $args{$_};

 view release on metacpan or  search on metacpan

lib/Terminal/Identify.pm  view on Meta::CPAN

sub get_username {
    # Initialise the username.
    my $username = "";
    # Define the methods for getting the username.
    my $method1 = getlogin();
    my $method2 = (getpwuid($<))[0];
    my $method3 = $ENV{LOGNAME};
    my $method4 = $ENV{USER};
    # Extract the username.
    $username = ($method1 || $method2 || $method3 || $method4);
    # Return the username.

 view release on metacpan or  search on metacpan

lib/Test/AutoBuild/Stage/EmailAlert.pm  view on Meta::CPAN

    my $log = Log::Log4perl->get_logger();

    my $from = $self->option("from");
    unless (defined $from) {
	my ($name,$passwd,$uid,$gid,
	    $quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($>);

	my $email = $name . '@' . hostname;

	if ($comment) {
	    $from = $comment . " <" . $email . ">";

 view release on metacpan or  search on metacpan

tags  view on Meta::CPAN

getopts	../perl/lib/Getopt/Std.pm	/^sub getopts ($;$) {$/;"	s	class:Std
getproto	../perl/lib/Net/protoent.pm	/^sub getproto ($;$) {$/;"	s	class:protoent
getprotobyname	../perl/lib/Net/protoent.pm	/^sub getprotobyname   ($)  { populate(CORE::getprotobyname(shift)) } $/;"	s	class:protoent
getprotobynumber	../perl/lib/Net/protoent.pm	/^sub getprotobynumber ($)  { populate(CORE::getprotobynumber(shift)) } $/;"	s	class:protoent
getprotoent	../perl/lib/Net/protoent.pm	/^sub getprotoent      ( )  { populate(CORE::getprotoent()) } $/;"	s	class:protoent
getpw	../perl/lib/User/pwent.pm	/^sub getpw    ($) { ($_[0] =~ \/^\\d+\\z\/s) ? &getpwuid : &getpwnam }$/;"	s	class:pwent
getpwent	../perl/lib/User/pwent.pm	/^sub getpwent ( ) { _populate(CORE::getpwent()) }$/;"	s	class:pwent
getpwnam	../perl/lib/User/pwent.pm	/^sub getpwnam ($) { _populate(CORE::getpwnam(shift)) }$/;"	s	class:pwent
getpwuid	../perl/lib/User/pwent.pm	/^sub getpwuid ($) { _populate(CORE::getpwuid(shift)) }$/;"	s	class:pwent
getserv	../perl/lib/Net/servent.pm	/^sub getserv ($;$) {$/;"	s	class:servent
getservbyname	../perl/lib/Net/servent.pm	/^sub getservbyname ($;$) { populate(CORE::getservbyname(shift,shift||'tcp')) }$/;"	s	class:servent
getservbyport	../perl/lib/Net/servent.pm	/^sub getservbyport ($;$) { populate(CORE::getservbyport(shift,shift||'tcp')) }$/;"	s	class:servent
getservent	../perl/lib/Net/servent.pm	/^sub getservent    (   ) { populate(CORE::getservent()) }$/;"	s	class:servent
gid	../perl/lib/File/stat.pm	/^    my ($gid, $eff)   = @_;$/;"	v	file:	class:stat

tags  view on Meta::CPAN

pp_gpbyname	../perl/lib/B/Deparse.pm	/^sub pp_gpbyname { unop(@_, "getprotobyname") }$/;"	s	class:Deparse
pp_gpbynumber	../perl/lib/B/Deparse.pm	/^sub pp_gpbynumber { listop(@_, "getprotobynumber") }$/;"	s	class:Deparse
pp_gprotoent	../perl/lib/B/Deparse.pm	/^sub pp_gprotoent { baseop(@_, "getprotoent") }$/;"	s	class:Deparse
pp_gpwent	../perl/lib/B/Deparse.pm	/^sub pp_gpwent { baseop(@_, "getpwent") }$/;"	s	class:Deparse
pp_gpwnam	../perl/lib/B/Deparse.pm	/^sub pp_gpwnam { unop(@_, "getpwnam") }$/;"	s	class:Deparse
pp_gpwuid	../perl/lib/B/Deparse.pm	/^sub pp_gpwuid { unop(@_, "getpwuid") }$/;"	s	class:Deparse
pp_grepstart	../perl/lib/B/Deparse.pm	/^sub pp_grepstart { baseop(@_, "grep") }$/;"	s	class:Deparse
pp_grepwhile	../perl/lib/B/Deparse.pm	/^sub pp_grepwhile { mapop(@_, "grep") }$/;"	s	class:Deparse
pp_gsbyname	../perl/lib/B/Deparse.pm	/^sub pp_gsbyname { listop(@_, "getservbyname") }$/;"	s	class:Deparse
pp_gsbyport	../perl/lib/B/Deparse.pm	/^sub pp_gsbyport { listop(@_, "getservbyport") }$/;"	s	class:Deparse
pp_gservent	../perl/lib/B/Deparse.pm	/^sub pp_gservent { baseop(@_, "getservent") }$/;"	s	class:Deparse

 view release on metacpan or  search on metacpan

lib/Test/Database/Driver.pm  view on Meta::CPAN

# GLOBAL CONFIGURATION
#

# the location where all drivers-related files will be stored
my $KEY   = '';
my $login = getlogin() || getpwuid($<);
$login =~ s/\W+//g;
my $root  = File::Spec->rel2abs(
    File::Spec->catdir( File::Spec->tmpdir(), "Test-Database-$login" ) );

# generic driver class initialisation

 view release on metacpan or  search on metacpan

inc/Net/FTP.pm  view on Meta::CPAN

  my ($ftp, $auth, $resp) = @_;

  unless (defined $resp) {
    require Net::Netrc;

    $auth ||= eval { (getpwuid($>))[0] } || $ENV{NAME};

    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'}, $auth)
      || Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});

    ($auth, $resp) = $rc->lpa()

 view release on metacpan or  search on metacpan

lib/Test/File.pm  view on Meta::CPAN

sub _obviously_non_multi_user {
	foreach my $os ( qw(dos MacOS) ) { return 1 if $^O eq $os }

	return 0 if $^O eq 'MSWin32';

	eval { my $holder = getpwuid(0) };
	return 1 if $@;

	eval { my $holder = getgrgid(0) };
	return 1 if $@;

lib/Test/File.pm  view on Meta::CPAN

		return;
		}

	return $Test->ok( 1, $name ) if $file_uid == $owner_uid;

	my $real_owner = ( getpwuid $file_uid )[0];
	unless( defined $real_owner ) {
		$Test->diag("file does not belong to $owner");
		return $Test->ok( 0, $name );
		}

lib/Test/File.pm  view on Meta::CPAN

=item group_is( FILE , GROUP [, NAME ] )

Ok if FILE's group is the same as GROUP.  GROUP may be a text group name or
a numeric group id.  Test skips on Dos, Mac OS <= 9 and any other operating
systems that do not support getpwuid() and friends.  If the file does not
exist, the test fails.

Contributed by Dylan Martin

=cut

lib/Test/File.pm  view on Meta::CPAN

=item group_isnt( FILE , GROUP [, NAME ] )

Ok if FILE's group is not the same as GROUP.  GROUP may be a text group name or
a numeric group id.  Test skips on Dos, Mac OS <= 9 and any other operating
systems that do not support getpwuid() and friends.  If the file does not
exist, the test fails.

Contributed by Dylan Martin

=cut

lib/Test/File.pm  view on Meta::CPAN

	# that doesn't mean that we are done. There might be a name with
	# the same value.
	#
	# Don't use this value in comparisons! An undef could be turned
	# into zero!
	my $from_uid = (getpwuid($arg))[2] if $arg =~ /\A[0-9]+\z/;

	# Now try the argument as a name. If it's a name, then we'll get
	# back a UID. Maybe we get back nothing.
	my $from_nam = (getpwnam($arg))[2];

	return do {
		# first case, we got back nothing from getpwnam but did get
		# something from getpwuid. The arg is not a name and is a
		# UID.
		   if( defined $from_uid and not defined $from_nam ) { $arg }
		# second case, we got back nothing from getpwuid but did get
		# something from getpwnam. The arg is a name and is not a
		# UID.
		elsif( not defined $from_uid and defined $from_nam ) { $from_nam }
		# Now, what happens if neither are defined? The argument does
		# not correspond to a name or GID on the system. Since no such

lib/Test/File.pm  view on Meta::CPAN

	# back a GID. Maybe we get back nothing.
	my $from_nam = (getgrnam($arg))[2];

	return do {
		# first case, we got back nothing from getgrnam but did get
		# something from getpwuid. The arg is not a name and is a
		# GID.
		   if( defined $from_gid and not defined $from_nam ) { $arg }
		# second case, we got back nothing from getgrgid but did get
		# something from getgrnam. The arg is a name and is not a
		# GID.

 view release on metacpan or  search on metacpan

lib/Test/Legal/Util.pm  view on Meta::CPAN

=pod

=head2  default_copyright_notice
=cut
sub default_copyright_notice {
	my $geco =  ucfirst ([getpwuid $<]->[6] || getlogin);
	my $year =  1900 + [localtime]->[5];
	sprintf '%s %s, %s', '# Copyright (C)', $year, $geco ;
}
=pod

 view release on metacpan or  search on metacpan

lib/Test/MockFile.pm  view on Meta::CPAN

    # ~
    # ~/...
    # ~sawyer
    if ( $path =~ m{ ^(~ ([^/]+)? ) }xms ) {
        my $req_homedir = $1;
        my $username    = $2 || getpwuid($<);
        my $pw_homedir;

        # Reset iterator so we *definitely* start from the first one
        # Then reset when done looping over pw entries
        endpwent;

 view release on metacpan or  search on metacpan

lib/Test/OpenLDAP.pm  view on Meta::CPAN

    my ($self)      = @_;
    my $write_flags = Fcntl::O_WRONLY() | Fcntl::O_CREAT() | Fcntl::O_EXCL();
    my $uuid        = lc $self->_uuid();
    my $entry_csn   = $self->_entry_csn();
    my ( $uid, $gid ) =
      ( getpwuid $EFFECTIVE_USER_ID )[ UID_INDEX(), GID_INDEX() ];
    my $create_timestamp = POSIX::strftime( '%Y%m%d%H%M%SZ', gmtime time );
    my $handle           = FileHandle->new( $self->{olc_database_config_path},
        $write_flags, Fcntl::S_IRUSR() | Fcntl::S_IWUSR() )
      or Carp::croak(
"Failed to open '$self-{olc_database_config_path}' for writing:$OS_ERROR"

lib/Test/OpenLDAP.pm  view on Meta::CPAN

    my $write_flags = Fcntl::O_WRONLY() | Fcntl::O_CREAT() | Fcntl::O_EXCL();
    my $uuid        = lc $self->_uuid();
    my $entry_csn   = $self->_entry_csn();
    my $create_timestamp = POSIX::strftime( '%Y%m%d%H%M%SZ', gmtime time );
    my ( $uid, $gid ) =
      ( getpwuid $EFFECTIVE_USER_ID )[ UID_INDEX(), GID_INDEX() ];
    my $handle = FileHandle->new( $self->{olc_database_path},
        $write_flags, Fcntl::S_IRUSR() | Fcntl::S_IWUSR() )
      or Carp::croak(
        "Failed to open '$self->{olc_database_path}' for writing:$OS_ERROR");
    my $user     = $self->admin_user();

 view release on metacpan or  search on metacpan

inc/inc_Module-Build/Module/Build/Platform/Unix.pm  view on Meta::CPAN

sub _detildefy {
  my ($self, $value) = @_;
  $value =~ s[^~([^/]+)?(?=/|$)]   # tilde with optional username
    [$1 ?
     ((getpwnam $1)[7] || "~$1") :
     ($ENV{HOME} || (getpwuid $>)[7])
    ]ex;
  return $value;
}

1;

 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

Changes  view on Meta::CPAN

            - 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

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

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

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;