24717 execve("/var/cpanel/cpgsd.pl", ["/var/cpanel/cpgsd.pl"], ["MANPATH=/usr/lib/courier-imap/man:", "HOSTNAME=gs.cpanel.net", "TERM=rxvt", "SHELL=/bin/bash", "HISTSIZE=1000", "SSH_CLIENT=208.74.121.102 53155 22", "OLDPWD=/home/gameservers/gameserver_files/bf2", "SSH_TTY=/dev/pts/0", "USER=root", "LS_COLORS=no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:bd=40;33;01:cd=40;33;01:or=01;05;37;41:mi=01;05;37;41:ex=01;32:*.cmd=01;32:*.exe=01;32:*.com=01;32:*.btm=01;32:*.bat=01;32:*.sh=01;32:*.csh=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.bz=01;31:*.tz=01;31:*.rpm=01;31:*.cpio=01;31:*.jpg=01;35:*.gif=01;35:*.bmp=01;35:*.xbm=01;35:*.xpm=01;35:*.png=01;35:*.tif=01;35:", "MAIL=/var/spool/mail/root", "PATH=/usr/kerberos/sbin:/usr/kerberos/bin:/usr/lib/courier-imap/sbin:/usr/lib/courier-imap/bin:/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin:/root/bin", "INPUTRC=/etc/inputrc", "PWD=/home/gameservers/gameserver_files", "LANG=en_US.UTF-8", "SHLVL=1", "HOME=/root", "LOGNAME=root", "SSH_CONNECTION=208.74.121.102 53155 208.74.121.106 22", "LESSOPEN=|/usr/bin/lesspipe.sh %s", "G_BROKEN_FILENAMES=1", "_=/usr/bin/strace"]) = 0 24717 brk(0) = 0x1c873000 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaaab000 24717 uname({sysname="Linux", nodename="gs.cpanel.net", release="2.6.18-53.1.13.el5", version="#1 SMP Tue Feb 12 13:02:30 EST 2008", machine="x86_64"}) = 0 24717 access("/etc/ld.so.preload", R_OK) = -1 ENOENT (No such file or directory) 24717 open("/etc/ld.so.cache", O_RDONLY) = 3 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=20382426, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=112, st_size=49205, st_atime=2008/04/01-17:48:14, st_mtime=2008/03/04-05:08:49, st_ctime=2008/03/04-05:08:49}) = 0 24717 mmap(NULL, 49205, PROT_READ, MAP_PRIVATE, 3, 0) = 0x2aaaaaaac000 24717 close(3) = 0 24717 open("/lib64/libm.so.6", O_RDONLY) = 3 24717 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0`>\340\0269\0\0\0@\0\0\0\0\0\0\0\240X\t\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0)\0(\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0\340\0269\0\0\0@\0\340\0269\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0\20\304\7\0\0\0\0\0\20\304\347\0269\0\0\0\20\304\347\0269\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\340\0269\0\0\0\0\0\340\0269\0\0\0H\22\10\0\0\0\0\0H\22\10\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\270\35\10\0\0\0\0\0\270\35\10\0279\0\0\0\270\35\10\0279\0\0\0\320\2\0\0\0\0\0\0 \3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\350\35\10\0\0\0\0\0\350\35\10\0279\0\0\0\350\35\10\0279\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2\340\0269\0\0\0008\2\340\0269\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0,\304\7\0\0\0\0\0,\304\347\0269\0\0\0,\304\347\0269\0\0\0\374\r\0\0\0\0\0\0\374\r\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=39714971, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=1216, st_size=615136, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:06, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaab9000 24717 mmap(0x3916e00000, 2629848, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x3916e00000 24717 mprotect(0x3916e82000, 2093056, PROT_NONE) = 0 24717 mmap(0x3917081000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x81000) = 0x3917081000 24717 close(3) = 0 24717 open("/lib64/libnsl.so.1", O_RDONLY) = 3 24717 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240@\240\0309\0\0\0@\0\0\0\0\0\0\0\360\265\1\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0#\0\"\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0\240\0309\0\0\0@\0\240\0309\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0\340\33\1\0\0\0\0\0\340\33\241\0309\0\0\0\340\33\241\0309\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0309\0\0\0\0\0\240\0309\0\0\0\220A\1\0\0\0\0\0\220A\1\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0xM\1\0\0\0\0\0xM\301\0309\0\0\0xM\301\0309\0\0\0\310\5\0\0\0\0\0\0008-\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\250M\1\0\0\0\0\0\250M\301\0309\0\0\0\250M\301\0309\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2\240\0309\0\0\0008\2\240\0309\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0\374\33\1\0\0\0\0\0\374\33\241\0309\0\0\0\374\33\241\0309\0\0\0\\\5\0\0\0\0\0\0\\\5\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=39715155, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=232, st_size=114352, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:07, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3918a00000, 2194096, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x3918a00000 24717 mprotect(0x3918a15000, 2093056, PROT_NONE) = 0 24717 mmap(0x3918c14000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x14000) = 0x3918c14000 24717 mmap(0x3918c16000, 6832, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x3918c16000 24717 close(3) = 0 24717 open("/lib64/libdl.so.2", O_RDONLY) = 3 24717 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\20\16\240\0269\0\0\0@\0\0\0\0\0\0\0@R\0\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0$\0#\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0\240\0269\0\0\0@\0\240\0269\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0\300\32\0\0\0\0\0\0\300\32\240\0269\0\0\0\300\32\240\0269\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0269\0\0\0\0\0\240\0269\0\0\0\224\37\0\0\0\0\0\0\224\37\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0`-\0\0\0\0\0\0`-\300\0269\0\0\0`-\300\0269\0\0\0 \3\0\0\0\0\0\0\240\3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\240-\0\0\0\0\0\0\240-\300\0269\0\0\0\240-\300\0269\0\0\0\360\1\0\0\0\0\0\0\360\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2\240\0269\0\0\0008\2\240\0269\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0\334\32\0\0\0\0\0\0\334\32\240\0269\0\0\0\334\32\240\0269\0\0\0\264\0\0\0\0\0\0\0\264\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=39715083, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=23360, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:06, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3916a00000, 2109696, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x3916a00000 24717 mprotect(0x3916a02000, 2097152, PROT_NONE) = 0 24717 mmap(0x3916c02000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x2000) = 0x3916c02000 24717 close(3) = 0 24717 open("/lib64/libcrypt.so.1", O_RDONLY) = 3 24717 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0P\t`\0309\0\0\0@\0\0\0\0\0\0\0ho\0\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0#\0\"\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0`\0309\0\0\0@\0`\0309\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0 F\0\0\0\0\0\0 F`\0309\0\0\0 F`\0309\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0`\0309\0\0\0\0\0`\0309\0\0\0\24K\0\0\0\0\0\0\24K\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\310M\0\0\0\0\0\0\310M\200\0309\0\0\0\310M\200\0309\0\0\0\230\2\0\0\0\0\0\0\270\343\2\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\370M\0\0\0\0\0\0\370M\200\0309\0\0\0\370M\200\0309\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2`\0309\0\0\0008\2`\0309\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0\0\1\0\0\0\200\16\240\0379\0\0\0@\0\0\0\0\0\0\0(>\0\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0#\0\"\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0\240\0379\0\0\0@\0\240\0379\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0\220\26\0\0\0\0\0\0\220\26\240\0379\0\0\0\220\26\240\0379\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0379\0\0\0\0\0\240\0379\0\0\0\370\31\0\0\0\0\0\0\370\31\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\340\35\0\0\0\0\0\0\340\35\300\0379\0\0\0\340\35\300\0379\0\0\0 \3\0\0\0\0\0\0000\3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\20\36\0\0\0\0\0\0\20\36\300\0379\0\0\0\20\36\300\0379\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2\240\0379\0\0\0008\2\240\0379\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0\254\26\0\0\0\0\0\0\254\26\240\0379\0\0\0\254\26\240\0379\0\0\0D\0\0\0\0\0\0\0D\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=39715154, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=18152, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:09, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391fa00000, 2105616, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x391fa00000 24717 mprotect(0x391fa02000, 2093056, PROT_NONE) = 0 24717 mmap(0x391fc01000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x1000) = 0x391fc01000 24717 close(3) = 0 24717 open("/lib64/libc.so.6", O_RDONLY) = 3 24717 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240\331a\0269\0\0\0@\0\0\0\0\0\0\0h\254\31\0\0\0\0\0\0\0\0\0@\0008\0\n\0@\0M\0L\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0`\0269\0\0\0@\0`\0269\0\0\0000\2\0\0\0\0\0\0000\2\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0000\310\21\0\0\0\0\0000\310q\0269\0\0\0000\310q\0269\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0`\0269\0\0\0\0\0`\0269\0\0\0\370\\\24\0\0\0\0\0\370\\\24\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0xg\24\0\0\0\0\0xg\224\0269\0\0\0xg\224\0269\0\0\0\0F\0\0\0\0\0\0 \211\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0`\233\24\0\0\0\0\0`\233\224\0269\0\0\0`\233\224\0269\0\0\0\360\1\0\0\0\0\0\0\360\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0p\2\0\0\0\0\0\0p\2`\0269\0\0\0p\2`\0269\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0\7\0\0\0\4\0\0\0xg\24\0\0\0\0\0xg\224\0269\0\0\0xg\224\0269\0\0\0\20\0\0\0\0\0\0\0`\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0L\310\21\0\0\0\0\0L\310q\0269\0\0\0L\310q\0269\0\0\0\314^\0\0\0\0\0\0\314^\0\0"..., 832) = 832 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=39714972, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=3304, st_size=1687464, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:06, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3916600000, 3469464, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x3916600000 24717 mprotect(0x3916746000, 2097152, PROT_NONE) = 0 24717 mmap(0x3916946000, 20480, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x146000) = 0x3916946000 24717 mmap(0x391694b000, 16536, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x391694b000 24717 close(3) = 0 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaabb000 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaabc000 24717 arch_prctl(ARCH_SET_FS, 0x2aaaaaabbe10) = 0 24717 mprotect(0x3917081000, 4096, PROT_READ) = 0 24717 mprotect(0x3918c14000, 4096, PROT_READ) = 0 24717 mprotect(0x3916c02000, 4096, PROT_READ) = 0 24717 mprotect(0x3918804000, 4096, PROT_READ) = 0 24717 mprotect(0x391fc01000, 4096, PROT_READ) = 0 24717 mprotect(0x3916946000, 16384, PROT_READ) = 0 24717 mprotect(0x3916419000, 4096, PROT_READ) = 0 24717 munmap(0x2aaaaaaac000, 49205) = 0 24717 rt_sigaction(SIGFPE, {SIG_IGN}, {SIG_DFL}, 8) = 0 24717 brk(0) = 0x1c873000 24717 brk(0x1c894000) = 0x1c894000 24717 getuid() = 0 24717 geteuid() = 0 24717 getgid() = 0 24717 getegid() = 0 24717 open("/usr/lib/locale/locale-archive", O_RDONLY) = 3 24717 fstat(3, {st_dev=makedev(253, 0), st_ino=33801834, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=110304, st_size=56458928, st_atime=2008/04/01-17:48:02, st_mtime=2007/12/03-05:13:06, st_ctime=2007/12/03-05:13:42}) = 0 24717 mmap(NULL, 56458928, PROT_READ, MAP_PRIVATE, 3, 0) = 0x2aaaaaabd000 24717 close(3) = 0 24717 open("/dev/urandom", O_RDONLY) = 3 24717 read(3, "7\233\263\342", 4) = 4 24717 close(3) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.7", {st_dev=makedev(253, 0), st_ino=33916087, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/03/30-04:03:02, st_mtime=2007/01/30-13:12:49, st_ctime=2007/11/19-10:33:22}) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.6", {st_dev=makedev(253, 0), st_ino=33916086, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/03/30-04:03:02, st_mtime=2007/01/30-13:12:49, st_ctime=2007/11/19-10:33:22}) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.5", {st_dev=makedev(253, 0), st_ino=33916085, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/03/30-04:03:02, st_mtime=2007/01/30-13:12:49, st_ctime=2007/11/19-10:33:22}) = 0 24717 ioctl(0, SNDCTL_TMR_TIMEBASE or TCGETS, {c_iflags=0x500, c_oflags=0x5, c_cflags=0xbf, c_lflags=0x8a3b, c_line=0, c_cc="\x03\x1c\x7f\x15\x04\x00\x01\x00\x11\x13\x1a\x00\x12\x0f\x17\x16\x00\x00\x00"}) = 0 24717 lseek(0, 0, SEEK_CUR) = -1 ESPIPE (Illegal seek) 24717 ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {c_iflags=0x500, c_oflags=0x5, c_cflags=0xbf, c_lflags=0x8a3b, c_line=0, c_cc="\x03\x1c\x7f\x15\x04\x00\x01\x00\x11\x13\x1a\x00\x12\x0f\x17\x16\x00\x00\x00"}) = 0 24717 lseek(1, 0, SEEK_CUR) = -1 ESPIPE (Illegal seek) 24717 ioctl(2, SNDCTL_TMR_TIMEBASE or TCGETS, {c_iflags=0x500, c_oflags=0x5, c_cflags=0xbf, c_lflags=0x8a3b, c_line=0, c_cc="\x03\x1c\x7f\x15\x04\x00\x01\x00\x11\x13\x1a\x00\x12\x0f\x17\x16\x00\x00\x00"}) = 0 24717 lseek(2, 0, SEEK_CUR) = -1 ESPIPE (Illegal seek) 24717 open("/var/cpanel/cpgsd.pl", O_RDONLY) = 3 24717 ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d818cc0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(3, 0, SEEK_CUR) = 0 24717 fcntl(3, F_SETFD, FD_CLOEXEC) = 0 24717 rt_sigaction(SIGCHLD, NULL, {SIG_DFL}, 8) = 0 24717 readlink("/proc/self/exe", "/usr/bin/perl", 4095) = 13 24717 stat("/usr/kerberos/sbin", {st_dev=makedev(253, 0), st_ino=34079029, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/03-05:22:13, st_ctime=2007/12/03-05:22:13}) = 0 24717 stat("/usr/kerberos/bin", {st_dev=makedev(253, 0), st_ino=34078980, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/03-05:22:13, st_ctime=2007/12/03-05:22:13}) = 0 24717 stat("/usr/lib/courier-imap/sbin", {st_dev=makedev(253, 0), st_ino=34440391, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=1, st_gid=1, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/04-04:04:34, st_ctime=2007/12/04-04:04:34}) = 0 24717 stat("/usr/lib/courier-imap/bin", {st_dev=makedev(253, 0), st_ino=34440355, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=1, st_gid=1, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/01/14-04:02:14, st_ctime=2008/01/14-04:02:14}) = 0 24717 stat("/usr/local/sbin", {st_dev=makedev(253, 0), st_ino=33783842, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/11/26-15:13:04, st_ctime=2007/11/26-15:13:04}) = 0 24717 stat("/usr/local/bin", {st_dev=makedev(253, 0), st_ino=33783835, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/02/07-05:11:44, st_ctime=2008/02/07-05:11:44}) = 0 24717 stat("/sbin", {st_dev=makedev(253, 0), st_ino=71270401, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12288, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:46, st_ctime=2008/03/05-04:02:46}) = 0 24717 stat("/bin", {st_dev=makedev(253, 0), st_ino=21921793, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:48, st_ctime=2008/03/05-04:02:48}) = 0 24717 stat("/usr/sbin", {st_dev=makedev(253, 0), st_ino=33783810, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12288, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:48, st_ctime=2008/03/05-04:02:48}) = 0 24717 stat("/usr/bin", {st_dev=makedev(253, 0), st_ino=33783818, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=64, st_size=28672, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:49, st_ctime=2008/03/05-04:02:49}) = 0 24717 stat("/root/bin", 0x7fff9d817da0) = -1 ENOENT (No such file or directory) 24717 getpid() = 24717 24717 read(3, "#!/usr/bin/perl -w -T\n# Game Server Module, Daemon Copyright(c) cPanel, Inc.\n# All rights Reserved.\n# darren@cpanel.net http://cpgs.cpanel.net\n\nBEGIN {\n push(@INC,\"/var/cpanel/cpgs\");\n\teval \"use IO::Socket::SSL\";\n\tif($@) {\n\t print \"You must have the perl module IO::Socket::SSL installed on this server.\\n\"; \n \tprint \"The gcc compiler must also exist, something like `yum install gcc` should do it, depending on your OS.\\n\";\n\t "..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/SSL.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/SSL.pm", 0x7fff9d818800) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/SSL.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/SSL.pm", 0x7fff9d818800) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/IO/Socket/SSL.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/IO/Socket/SSL.pm", 0x7fff9d818800) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm", {st_dev=makedev(253, 0), st_ino=34308288, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=136, st_size=61678, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/24-13:44:33, st_ctime=2008/03/24-13:44:33}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/IO/Socket/SSL.pm", O_RDONLY) = 4 24717 ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8185e0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(4, 0, SEEK_CUR) = 0 24717 read(4, "#!/usr/bin/perl -w\n#\n# IO::Socket::SSL: \n# a drop-in replacement for IO::Socket::INET that encapsulates\n# data passed over a network with SSL.\n#\n# Current Code Shepherd: Steffen Ullrich \n# Code Shepherd before: Peter Behroozi, \n#\n# The original version of this module was written by \n# Marko Asplund, , who drew from\n# Crypt::SSLeay (Net::SSL) by Gisle Aas.\n#\n\npackage IO::Socket::SSL;\n\nuse IO::Socket;\nuse Net::SSL"..., 4096) = 4096 24717 brk(0x1c8b5000) = 0x1c8b5000 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket.pm", {st_dev=makedev(253, 0), st_ino=34276154, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=11903, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# IO::Socket.pm\n#\n# Copyright (c) 1997-8 Graham Barr . All rights reserved.\n# This program is free software; you can redistribute it and/or\n# modify it under the same terms as Perl itself.\n\npackage IO::Socket;\n\nrequire 5.006;\n\nuse IO::Handle;\nuse Socket 1.3;\nuse Carp;\nuse strict;\nour(@ISA, $VERSION, @EXPORT_OK);\nuse Exporter;\nuse Errno;\n\n# legacy\n\nrequire IO::Socket::INET;\nrequire IO::Socket::UNIX if ($^O ne \'epoc\' && $^O ne \'symbian\');\n\n@ISA = qw(IO::Handle);\n\n$VERSION = \"1.29\""..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Handle.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Handle.pm", {st_dev=makedev(253, 0), st_ino=34276153, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=16161, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Handle.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package IO::Handle;\n\n=head1 NAME\n\nIO::Handle - supply object methods for I/O handles\n\n=head1 SYNOPSIS\n\n use IO::Handle;\n\n $io = new IO::Handle;\n if ($io->fdopen(fileno(STDIN),\"r\")) {\n print $io->getline;\n $io->close;\n }\n\n $io = new IO::Handle;\n if ($io->fdopen(fileno(STDOUT),\"w\")) {\n $io->print(\"Some text\\n\");\n }\n\n # setvbuf is not available by default on Perls 5.8.0 and later.\n use IO::Handle \'_IOLBF\';\n $io->setvbuf($buffer_var, _IOLBF, 1024);\n"..., 4096) = 4096 24717 read(6, "FSET ] )\n\nThis C is like C found in C, that is it is the\nopposite of read. The wrapper for the perl C function is\ncalled C.\n\n=item $io->error\n\nReturns a true value if the given handle has experienced any errors\nsince it was opened or since the last call to C, or if the\nhandle is invalid. It only returns false for a valid handle with no\noutstanding errors.\n\n=item $io->clearerr\n\nClear the given handle\'s error indicator. Returns -1 if the handle is\ninval"..., 4096) = 4096 24717 read(6, "L,\nL\n\n=head1 BUGS\n\nDue to backwards compatibility, all filehandles resemble objects\nof class C, or actually classes derived from that class.\nThey actually aren\'t. Which means you can\'t derive your own \nclass from C and inherit those methods.\n\n=head1 HISTORY\n\nDerived from FileHandle.pm by Graham Barr EFE\n\n=cut\n\nuse 5.006_001;\nuse strict;\nour($VERSION, @EXPORT_OK, @ISA);\nuse Carp;\nuse Symbol;\nuse SelectSaver;\nuse I"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/strict.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/strict.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/strict.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/strict.pm", {st_dev=makedev(253, 0), st_ino=33915576, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=3292, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/strict.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package strict;\n\n$strict::VERSION = \"1.03\";\n\nmy %bitmask = (\nrefs => 0x00000002,\nsubs => 0x00000200,\nvars => 0x00000400\n);\n\nsub bits {\n my $bits = 0;\n my @wrong;\n foreach my $s (@_) {\n\tpush @wrong, $s unless exists $bitmask{$s};\n $bits |= $bitmask{$s} || 0;\n }\n if (@wrong) {\n require Carp;\n Carp::croak(\"Unknown \'strict\' tag(s) \'@wrong\'\");\n }\n $bits;\n}\n\nmy $default_bits = bits(qw(refs subs vars));\n\nsub import {\n shift;\n $^H |= @_ ? bits(@_) : $defau"..., 4096) = 3292 24717 lseek(7, 598, SEEK_SET) = 598 24717 lseek(7, 0, SEEK_CUR) = 598 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Carp.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Carp.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Carp.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Carp.pm", {st_dev=makedev(253, 0), st_ino=33915066, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=8840, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/Carp.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package Carp;\n\nour $VERSION = \'1.04\';\n\n=head1 NAME\n\ncarp - warn of errors (from perspective of caller)\n\ncluck - warn of errors with stack backtrace\n (not exported by default)\n\ncroak - die of errors (from perspective of caller)\n\nconfess - die of errors with stack backtrace\n\nshortmess - return the message that carp and croak produce\n\nlongmess - return the message that cluck and confess produce\n\n=head1 SYNOPSIS\n\n use Carp;\n croak \"We\'re outta here!\";\n\n use Carp qw(cluck);\n "..., 4096) = 4096 24717 read(7, "an not get %CarpInternal or %Internal to work as advertised,\n# therefor leaving it out of the below documentation.\n# $CarpLevel may be decprecated according to the last comment, but\n# after 6 years, it\'s still around and in heavy use ;)\n\n=pod\n\n=head1 GLOBAL VARIABLES\n\n=head2 $Carp::CarpLevel\n\nThis variable determines how many call frames are to be skipped when\nreporting where an error occurred on a call to one of C\'s\nfunctions. For example:\n\n $Carp::CarpLevel = 1;\n sub bar { ...."..., 4096) = 4096 24717 read(7, "need to (for Safe compartments)\n\trequire Carp::Heavy unless $INC{\"Carp/Heavy.pm\"};\n }\n # Icky backwards compatibility wrapper. :-(\n my $call_pack = caller();\n local @CARP_NOT = caller();\n shortmess_heavy(@_);\n}\n\n\n# the following four functions call longmess() or shortmess() depending on\n# whether they should generate a full stack trace (confess() and cluck())\n# or simply report the caller\'s package (croak() and carp()), respectively.\n# confess() and croak() die, carp() and cluck()"..., 4096) = 648 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Exporter.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Exporter.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Exporter.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Exporter.pm", {st_dev=makedev(253, 0), st_ino=33915113, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=14419, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/Exporter.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package Exporter;\n\nrequire 5.006;\n\n# Be lean.\n#use strict;\n#no strict \'refs\';\n\nour $Debug = 0;\nour $ExportLevel = 0;\nour $Verbose ||= 0;\nour $VERSION = \'5.58\';\nour (%Cache);\n$Carp::Internal{Exporter} = 1;\n\nsub as_heavy {\n require Exporter::Heavy;\n # Unfortunately, this does not work if the caller is aliased as *name = \\&foo\n # Thus the need to create a lot of identical subroutines\n my $c = (caller(1))[3];\n $c =~ s/.*:://;\n \\&{\"Exporter::Heavy::heavy_$c\"};\n}\n\nsub export {\n goto &{as_heavy("..., 4096) = 4096 24717 brk(0x1c8d6000) = 0x1c8d6000 24717 lseek(7, 2217, SEEK_SET) = 2217 24717 lseek(7, 0, SEEK_CUR) = 2217 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Symbol.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Symbol.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Symbol.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Symbol.pm", {st_dev=makedev(253, 0), st_ino=33915317, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=4794, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/Symbol.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package Symbol;\n\n=head1 NAME\n\nSymbol - manipulate Perl symbols and their names\n\n=head1 SYNOPSIS\n\n use Symbol;\n\n $sym = gensym;\n open($sym, \"filename\");\n $_ = <$sym>;\n # etc.\n\n ungensym $sym; # no effect\n\n # replace *FOO{IO} handle but not $FOO, %FOO, etc.\n *FOO = geniosym;\n\n print qualify(\"x\"), \"\\n\"; # \"Test::x\"\n print qualify(\"x\", \"FOO\"), \"\\n\" # \"FOO::x\"\n print qualify(\"BAR::x\"), \"\\n\"; # \"BAR::x\"\n print qualify(\"BAR::x\", \"FOO\""..., 4096) = 4096 24717 read(7, "{\n my $pkg = shift;\n\n # expand to full symbol table name if needed\n\n unless ($pkg =~ /^main::.*::$/) {\n $pkg = \"main$pkg\"\tif\t$pkg =~ /^::/;\n $pkg = \"main::$pkg\"\tunless\t$pkg =~ /^main::/;\n $pkg .= \'::\'\t\tunless\t$pkg =~ /::$/;\n }\n\n my($stem, $leaf) = $pkg =~ m/(.*::)(\\w+::)$/;\n my $stem_symtab = *{$stem}{HASH};\n return unless defined $stem_symtab and exists $stem_symtab->{$leaf};\n\n\n # free all the symbols in the package\n\n my $leaf_symtab = *{$stem_sym"..., 4096) = 698 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/SelectSaver.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/SelectSaver.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/SelectSaver.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/SelectSaver.pm", {st_dev=makedev(253, 0), st_ino=33915313, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=1070, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/SelectSaver.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package SelectSaver;\n\nour $VERSION = \'1.01\';\n\n=head1 NAME\n\nSelectSaver - save and restore selected file handle\n\n=head1 SYNOPSIS\n\n use SelectSaver;\n\n {\n my $saver = new SelectSaver(FILEHANDLE);\n # FILEHANDLE is selected\n }\n # previous handle is selected\n\n {\n my $saver = new SelectSaver;\n # new handle may be selected, or not\n }\n # previous handle is selected\n\n=head1 DESCRIPTION\n\nA C object contains a reference to the file handle that\nwas se"..., 4096) = 1070 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO.pm", {st_dev=makedev(253, 0), st_ino=34112467, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=1401, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/IO.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "#\n\npackage IO;\n\nuse XSLoader ();\nuse Carp;\nuse strict;\nuse warnings;\n\nour $VERSION = \"1.22\";\nXSLoader::load \'IO\', $VERSION;\n\nsub import {\n shift;\n\n warnings::warnif(\'deprecated\', qq{Parameterless \"use IO\" deprecated})\n if @_ == 0 ;\n \n my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);\n\n eval join(\"\", map { \"require IO::\" . (/(\\w+)/)[0] . \";\\n\" } @l)\n\tor croak $@;\n}\n\n1;\n\n__END__\n\n=head1 NAME\n\nIO - load various IO modules\n\n=head1 SYNOPSIS\n\n use IO qw(Handle File);"..., 4096) = 1401 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/XSLoader.pmc", 0x7fff9d8174c0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/XSLoader.pm", {st_dev=makedev(253, 0), st_ino=34112458, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=10461, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/XSLoader.pm", O_RDONLY) = 8 24717 ioctl(8, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817160) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(8, 0, SEEK_CUR) = 0 24717 read(8, "# Generated from XSLoader.pm.PL (resolved %Config::Config value)\n\npackage XSLoader;\n\n$VERSION = \"0.06\";\n\n#use strict;\n\n# enable debug/trace messages from DynaLoader perl code\n# $dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug;\n\n my $dl_dlext = \'so\';\n\npackage DynaLoader;\n\n# No prizes for guessing why we don\'t say \'bootstrap DynaLoader;\' here.\n# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB\nboot_DynaLoader(\'DynaLoader\') if defined(&boot_DynaLoader) &&\n "..., 4096) = 4096 24717 brk(0x1c8f7000) = 0x1c8f7000 24717 lseek(8, 3479, SEEK_SET) = 3479 24717 lseek(8, 0, SEEK_CUR) = 3479 24717 close(8) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/warnings.pmc", 0x7fff9d8174c0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/warnings.pm", 0x7fff9d817380) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/warnings.pmc", 0x7fff9d8174c0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/warnings.pm", {st_dev=makedev(253, 0), st_ino=33916082, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=15879, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:22}) = 0 24717 open("/usr/lib/perl5/5.8.8/warnings.pm", O_RDONLY) = 8 24717 ioctl(8, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817160) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(8, 0, SEEK_CUR) = 0 24717 read(8, "# -*- buffer-read-only: t -*-\n# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!\n# This file was created by warnings.pl\n# Any changes made here will be lost.\n#\n\npackage warnings;\n\nour $VERSION = \'1.05\';\n\n=head1 NAME\n\nwarnings - Perl pragma to control optional warnings\n\n=head1 SYNOPSIS\n\n use warnings;\n no warnings;\n\n use warnings \"all\";\n no warnings \"all\";\n\n use warnings::register;\n if (warnings::enabled()) {\n warnings::warn(\"some warning\");\n }\n\n if (warnings::enabled(\"voi"..., 4096) = 4096 24717 read(8, ",\n \'void\'\t\t=> 90,\n \'y2k\'\t\t=> 92,\n );\n\nour %Bits = (\n \'all\'\t\t=> \"\\x55\\x55\\x55\\x55\\x55\\x55\\x55\\x55\\x55\\x55\\x55\\x15\", # [0..46]\n \'ambiguous\'\t\t=> \"\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x04\\x00\\x00\\x00\\x00\", # [29]\n \'bareword\'\t\t=> \"\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x10\\x00\\x00\\x00\\x00\", # [30]\n \'closed\'\t\t=> \"\\x00\\x10\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [6]\n \'closure\'\t\t=> \"\\x04\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [1]\n \'debugging\'\t\t=> \"\\x00\\x00\\x00\\x00\\x00\\x10\\x00\\x00\\x00"..., 4096) = 4096 24717 read(8, "x00\\x00\\x20\\x00\\x00\\x00\\x00\\x00\\x00\", # [22]\n \'deprecated\'\t=> \"\\x20\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [2]\n \'digit\'\t\t=> \"\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x80\\x00\\x00\\x00\\x00\", # [31]\n \'exec\'\t\t=> \"\\x00\\x80\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [7]\n \'exiting\'\t\t=> \"\\x80\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [3]\n \'glob\'\t\t=> \"\\x00\\x02\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\\x00\", # [4]\n \'inplace\'\t\t=> \"\\x00\\x00\\x00\\x00\\x00\\x80\\x00\\x00\\x00\\x00\\x00\\x00\", # [23]\n "..., 4096) = 4096 24717 read(8, " $mask = ${^WARNING_BITS} ;\n\n if (vec($mask, $Offsets{\'all\'}, 1)) {\n $mask |= $Bits{\'all\'} ;\n $mask |= $DeadBits{\'all\'} if vec($mask, $Offsets{\'all\'}+1, 1);\n }\n \n push @_, \'all\' unless @_;\n\n foreach my $word ( @_ ) {\n\tif ($word eq \'FATAL\') {\n\t $fatal = 1;\n\t $no_fatal = 0;\n\t}\n\telsif ($word eq \'NONFATAL\') {\n\t $fatal = 0;\n\t $no_fatal = 1;\n\t}\n\telsif ($catmask = $Bits{$word}) {\n\t $mask |= $catmask ;\n\t $mask |= $DeadBits{$word} if $fatal ;\n\t $mask &= ~"..., 4096) = 3591 24717 brk(0x1c918000) = 0x1c918000 24717 read(8, "", 4096) = 0 24717 close(8) = 0 24717 lseek(7, 412, SEEK_SET) = 412 24717 lseek(7, 0, SEEK_CUR) = 412 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/IO/IO.so", {st_dev=makedev(253, 0), st_ino=34276108, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=20824, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/IO/IO.bs", {st_dev=makedev(253, 0), st_ino=34276109, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:30:53, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/IO/IO.so", O_RDONLY) = 7 24717 read(7, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240\25\0\0\0\0\0\0@\0\0\0\0\0\0\0\220:\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\3244\0\0\0\0\0\0\3244\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\3304\0\0\0\0\0\0\3304 \0\0\0\0\0\3304 \0\0\0\0\0\300\3\0\0\0\0\0\0\310\3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\0105\0\0\0\0\0\0\0105 \0\0\0\0\0\0105 \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\f2\0\0\0\0\0\0\f2\0\0\0\0\0\0\f2\0\0\0\0\0\0\214\0\0\0\0\0\0\0\214\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\21\0\0\0001\0\0\0\2\0\0\0\7\0\0\0\214\0\2H\4\210\204\r)$\r\1\250$Dz1\0\0\0002\0\0\0004\0\0\0005\0\0\0007\0\0\0009\0\0\0\0\0\0\0:\0\0\0;\0\0\0<\0\0\0@\0\0\0\0\0\0\0A\0\0\0\0\0\0\0B\0\0\0\0\0\0\0C\0\0\0\375}\262\236\352\323\357\16\323\341\260\315\271\215\361\16\272\3650w\331qX\34\362\266\232\277\273\343\222|y\211\r}CE\325\354\3156\313\236\300\22?*\20\241cY~\236\230\333"..., 832) = 832 24717 fstat(7, {st_dev=makedev(253, 0), st_ino=34276108, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=20824, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 mmap(NULL, 2111648, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 7, 0) = 0x2aaaae095000 24717 mprotect(0x2aaaae099000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaae298000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 7, 0x3000) = 0x2aaaae298000 24717 close(7) = 0 24717 read(6, "])\';\n local($\\) = \"\";\n $_[2] = length($_[1]) unless defined $_[2];\n print { $_[0] } substr($_[1], $_[3] || 0, $_[2]);\n}\n\nsub syswrite {\n @_ >= 2 && @_ <= 4 or croak \'usage: $io->syswrite(BUF [, LEN [, OFFSET]])\';\n if (defined($_[2])) {\n\tsyswrite($_[0], $_[1], $_[2], $_[3] || 0);\n } else {\n\tsyswrite($_[0], $_[1]);\n }\n}\n\nsub stat {\n @_ == 1 or croak \'usage: $io->stat()\';\n stat($_[0]);\n}\n\n################################################\n## State modification functions.\n##"..., 4096) = 3873 24717 brk(0x1c939000) = 0x1c939000 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Socket.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Socket.pm", {st_dev=makedev(253, 0), st_ino=34112485, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9801, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Socket.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package Socket;\n\nour($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);\n$VERSION = \"1.78\";\n\n=head1 NAME\n\nSocket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h defines and structure manipulators \n\n=head1 SYNOPSIS\n\n use Socket;\n\n $proto = getprotobyname(\'udp\');\n socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto);\n $iaddr = gethostbyname(\'hishost.com\');\n $port = getservbyname(\'time\', \'udp\');\n $sin = sockaddr_in($port, $iaddr);\n send(Socket_Handle, 0, 0, "..., 4096) = 4096 24717 read(6, "eername()) and returns the address family tag. It will match the\nconstant AF_INET for a sockaddr_in and AF_UNIX for a sockaddr_un. It\ncan be used to figure out what unpacker to use for a sockaddr of\nunknown type.\n\n=item sockaddr_in PORT, ADDRESS\n\n=item sockaddr_in SOCKADDR_IN\n\nIn a list context, unpacks its SOCKADDR_IN argument and returns an array\nconsisting of (PORT, ADDRESS). In a scalar context, packs its (PORT,\nADDRESS) arguments as a SOCKADDR_IN and returns it. If this is confusing,\nus"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/warnings/register.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/warnings/register.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/warnings/register.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/warnings/register.pm", {st_dev=makedev(253, 0), st_ino=33916083, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=1023, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:28, st_ctime=2007/11/19-10:33:22}) = 0 24717 open("/usr/lib/perl5/5.8.8/warnings/register.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package warnings::register;\n\nour $VERSION = \'1.01\';\n\n=pod\n\n=head1 NAME\n\nwarnings::register - warnings import function\n\n=head1 SYNOPSIS\n\n use warnings::register;\n\n=head1 DESCRIPTION\n\nCreates a warnings category with the same name as the current package.\n\nSee L and L for more information on this module\'s\nusage.\n\n=cut\n\nrequire warnings;\n\nsub mkMask\n{\n my ($bit) = @_;\n my $mask = \"\";\n\n vec($mask, $bit, 1) = 1;\n return $mask;\n}\n\nsub import\n{\n shift;\n my $pa"..., 4096) = 1023 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 read(6, "TRANSPORT\n\tSO_SNDBUF\n\tSO_SNDLOWAT\n\tSO_SNDTIMEO\n\tSO_STATE\n\tSO_TYPE\n\tSO_USELOOPBACK\n\tSO_XOPEN\n\tSO_XSE\n\tUIO_MAXIOV\n);\n\n@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF\n\n\t IPPROTO_TCP\n\t TCP_KEEPALIVE\n\t TCP_MAXRT\n\t TCP_MAXSEG\n\t TCP_NODELAY\n\t TCP_STDURG);\n\n%EXPORT_TAGS = (\n crlf => [qw(CR LF CRLF $CR $LF $CRLF)],\n all => [@EXPORT, @EXPORT_OK],\n);\n\nBEGIN {\n sub CR () {\"\\015\"}\n sub LF () {\"\\012\"}\n sub CRLF () {\"\\015\\012\"}\n}\n\n*CR = \\CR();\n*LF = \\L"..., 4096) = 1609 24717 brk(0x1c95a000) = 0x1c95a000 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Socket/Socket.so", {st_dev=makedev(253, 0), st_ino=34275874, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=23768, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Socket/Socket.bs", {st_dev=makedev(253, 0), st_ino=34275873, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:30:52, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Socket/Socket.so", O_RDONLY) = 6 24717 read(6, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\200\20\0\0\0\0\0\0@\0\0\0\0\0\0\0xH\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0lC\0\0\0\0\0\0lC\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0pC\0\0\0\0\0\0pC \0\0\0\0\0pC \0\0\0\0\0@\3\0\0\0\0\0\0H\3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\240C\0\0\0\0\0\0\240C \0\0\0\0\0\240C \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0|A\0\0\0\0\0\0|A\0\0\0\0\0\0|A\0\0\0\0\0\0d\0\0\0\0\0\0\0d\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\'\0\0\0\2\0\0\0\7\0\0\0\200\0@\t\4\0\200MN\4\4\3\252\4 \201\'\0\0\0+\0\0\0/\0\0\0\"\335\266\224\272\343\222|BE\325\354\227\333\266\224b\201\350\t\330qX\34\370\177\373\203\271\215\361\16@I\225\226\352\323\357\16\330:\232\27`\3\317\243\30_\364\203e<\232\27\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\3\0\10\0\260\16\0\0\0\0\0\0\0\0\0\0\0\0\0\0\242\2\0\0"..., 832) = 832 24717 fstat(6, {st_dev=makedev(253, 0), st_ino=34275874, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=23768, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 mmap(NULL, 2115256, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 6, 0) = 0x2aaaae299000 24717 mprotect(0x2aaaae29e000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaae49d000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 6, 0x4000) = 0x2aaaae49d000 24717 close(6) = 0 24717 brk(0x1c97b000) = 0x1c97b000 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Errno.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Errno.pm", {st_dev=makedev(253, 0), st_ino=34112471, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=7538, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Errno.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "#\n# This file is auto-generated. ***ANY*** changes here will be lost\n#\n\npackage Errno;\nour (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);\nuse Exporter ();\nuse Config;\nuse strict;\n\n\"$Config{\'archname\'}-$Config{\'osvers\'}\" eq\n\"x86_64-linux-2.6.18-8.el5\" or\n\tdie \"Errno architecture (x86_64-linux-2.6.18-8.el5) does not match executable architecture ($Config{\'archname\'}-$Config{\'osvers\'})\";\n\n$VERSION = \"1.09_01\";\n$VERSION = eval $VERSION;\n@ISA = qw(Exporter);\n\n@EXPORT_OK = qw(EBADR ENOMSG E"..., 4096) = 4096 24717 brk(0x1c99c000) = 0x1c99c000 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Config.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Config.pm", {st_dev=makedev(253, 0), st_ino=34112459, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2568, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Config.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "# This file was created by configpm when Perl was built. Any changes\n# made to this file will be lost the next time perl is built.\n\npackage Config;\nuse strict;\n# use warnings; Pulls in Carp\n# use vars pulls in Carp\n@Config::EXPORT = qw(%Config);\n@Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);\n\n# Need to stub all the functions to make code such as print Config::config_sh\n# keep working\n\nsub myconfig;\nsub config_sh;\nsub config_vars;\nsub config_re;\n\nmy %Export_Cache = map {($_ =>"..., 4096) = 2568 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 brk(0x1c9bd000) = 0x1c9bd000 24717 read(6, "{ 84 }\nsub ERESTART () { 85 }\nsub ESTRPIPE () { 86 }\nsub EUSERS () { 87 }\nsub ENOTSOCK () { 88 }\nsub EDESTADDRREQ () { 89 }\nsub EMSGSIZE () { 90 }\nsub EPROTOTYPE () { 91 }\nsub ENOPROTOOPT () { 92 }\nsub EPROTONOSUPPORT () { 93 }\nsub ESOCKTNOSUPPORT () { 94 }\nsub ENOTSUP () { 95 }\nsub EOPNOTSUPP () { 95 }\nsub EPFNOSUPPORT () { 96 }\nsub EAFNOSUPPORT () { 97 }\nsub EADDRINUSE () { 98 }\nsub EADDRNOTAVAIL () { 99 }\nsub ENETDOWN () { 100 }\nsub ENETUNREACH () { 101 }\nsub ENETRESET () { 102 }\nsub ECONNABO"..., 4096) = 3442 24717 lseek(6, 6187, SEEK_SET) = 6187 24717 lseek(6, 0, SEEK_CUR) = 6187 24717 close(6) = 0 24717 read(5, " }\n\n $peer = accept($new,$sock)\n\tor return;\n\n return wantarray ? ($new, $peer)\n \t \t : $new;\n}\n\nsub sockname {\n @_ == 1 or croak \'usage: $sock->sockname()\';\n getsockname($_[0]);\n}\n\nsub peername {\n @_ == 1 or croak \'usage: $sock->peername()\';\n my($sock) = @_;\n getpeername($sock)\n || ${*$sock}{\'io_socket_peername\'}\n || undef;\n}\n\nsub connected {\n @_ == 1 or croak \'usage: $sock->connected()\';\n my($sock) = @_;\n getpeername($sock);\n}\n\nsub send {\n "..., 4096) = 4096 24717 brk(0x1c9de000) = 0x1c9de000 24717 lseek(5, 6698, SEEK_SET) = 6698 24717 lseek(5, 0, SEEK_CUR) = 6698 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/INET.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/INET.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/INET.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/INET.pm", {st_dev=makedev(253, 0), st_ino=33915204, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=11383, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/IO/Socket/INET.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# IO::Socket::INET.pm\n#\n# Copyright (c) 1997-8 Graham Barr . All rights reserved.\n# This program is free software; you can redistribute it and/or\n# modify it under the same terms as Perl itself.\n\npackage IO::Socket::INET;\n\nuse strict;\nour(@ISA, $VERSION);\nuse IO::Socket;\nuse Socket;\nuse Carp;\nuse Exporter;\nuse Errno;\n\n@ISA = qw(IO::Socket);\n$VERSION = \"1.29\";\n\nmy $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;\n\nIO::Socket::INET->register_domain( AF_INET );\n\nmy %socket_ty"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Exporter/Heavy.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Exporter/Heavy.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Exporter/Heavy.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Exporter/Heavy.pm", {st_dev=makedev(253, 0), st_ino=33915114, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=6397, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/Exporter/Heavy.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package Exporter::Heavy;\n\nuse strict;\nno strict \'refs\';\n\n# On one line so MakeMaker will see it.\nrequire Exporter; our $VERSION = $Exporter::VERSION;\n$Carp::Internal{\"Exporter::Heavy\"} = 1;\n\n=head1 NAME\n\nExporter::Heavy - Exporter guts\n\n=head1 SYNOPSIS\n\n(internal use only)\n\n=head1 DESCRIPTION\n\nNo user-serviceable parts inside.\n\n=cut\n\n#\n# We go to a lot of trouble not to \'require Carp\' at file scope,\n# because Carp requires Exporter, and something has to give.\n#\n\nsub _rebuild_cache {\n my ($p"..., 4096) = 4096 24717 read(6, "ols. Optimise the lookup by adding\n\t # barewords twice... both with and without a leading &.\n\t # (Technique could be applied to $export_cache at cost of memory)\n\t my @expanded = map { /^\\w/ ? ($_, \'&\'.$_) : $_ } @$fail;\n\t warn \"${pkg}::EXPORT_FAIL cached: @expanded\" if $Exporter::Verbose;\n\t @{$fail_cache}{@expanded} = (1) x @expanded;\n\t}\n\tmy @failed;\n\tforeach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} }\n\tif (@failed) {\n\t @failed = $pkg->export_fail(@failed);\n\t"..., 4096) = 2301 24717 brk(0x1c9ff000) = 0x1c9ff000 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 brk(0x1ca20000) = 0x1ca20000 24717 read(5, "exists($arg->{PeerAddr});\n \n $raddr = shift @raddr;\n\n\treturn _error($sock, $EINVAL, \'Cannot determine remote port\')\n\t\tunless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW);\n\n\tlast\n\t unless($type == SOCK_STREAM || defined $raddr);\n\n\treturn _error($sock, $EINVAL, \"Bad hostname \'\",$arg->{PeerAddr},\"\'\")\n\t unless defined $raddr;\n\n# my $timeout = ${*$sock}{\'io_socket_timeout\'};\n# my $before = time() if $timeout;\n\n\tundef $@;\n if ($sock->connect(pack_sockaddr_in($r"..., 4096) = 4096 24717 lseek(5, 6497, SEEK_SET) = 6497 24717 lseek(5, 0, SEEK_CUR) = 6497 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/UNIX.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Socket/UNIX.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/UNIX.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IO/Socket/UNIX.pm", {st_dev=makedev(253, 0), st_ino=33915205, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=3123, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/IO/Socket/UNIX.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# IO::Socket::UNIX.pm\n#\n# Copyright (c) 1997-8 Graham Barr . All rights reserved.\n# This program is free software; you can redistribute it and/or\n# modify it under the same terms as Perl itself.\n\npackage IO::Socket::UNIX;\n\nuse strict;\nour(@ISA, $VERSION);\nuse IO::Socket;\nuse Socket;\nuse Carp;\n\n@ISA = qw(IO::Socket);\n$VERSION = \"1.22\";\n$VERSION = eval $VERSION;\n\nIO::Socket::UNIX->register_domain( AF_UNIX );\n\nsub new {\n my $class = shift;\n unshift(@_, \"Peer\") if @_ == 1;\n "..., 4096) = 3123 24717 brk(0x1ca41000) = 0x1ca41000 24717 lseek(5, 1386, SEEK_SET) = 1386 24717 lseek(5, 0, SEEK_CUR) = 1386 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Net/SSLeay.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Net/SSLeay.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Net/SSLeay.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Net/SSLeay.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/Net/SSLeay.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/Net/SSLeay.pm", {st_dev=makedev(253, 0), st_ino=34308316, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=176, st_size=83622, st_atime=2008/04/01-17:48:02, st_mtime=2007/09/03-16:09:59, st_ctime=2007/11/26-14:33:56}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/Net/SSLeay.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# Net::SSLeay.pm - Perl module for using Eric Young\'s implementation of SSL\n#\n# Copyright (c) 1996-2003 Sampo Kellomaki , All Rights Reserved.\n# Copyright (C) 2005 Florian Ragwitz , All Rights Reserved.\n# Copyright (C) 2005 Mike McCauley , All Rights Reserved.\n#\n# $Id: SSLeay.pm 193 2007-07-14 20:15:39Z florian-guest $\n#\n# Version 1.04, 31.3.1999\n# 30.7.1999, Tracking OpenSSL-0.9.3a changes, --Sampo\n# 31.7.1999, version 1.05 --Sampo\n# 7.4.2001, "..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/vars.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/vars.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/vars.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/vars.pm", {st_dev=makedev(253, 0), st_ino=33916079, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=2358, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:22}) = 0 24717 open("/usr/lib/perl5/5.8.8/vars.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 brk(0x1ca62000) = 0x1ca62000 24717 read(6, "package vars;\n\nuse 5.006;\n\nour $VERSION = \'1.01\';\n\nuse warnings::register;\nuse strict qw(vars subs);\n\nsub import {\n my $callpack = caller;\n my ($pack, @imports) = @_;\n my ($sym, $ch);\n foreach (@imports) {\n if (($ch, $sym) = /^([\\$\\@\\%\\*\\&])(.+)/) {\n\t if ($sym =~ /\\W/) {\n\t\t# time for a more-detailed check-up\n\t\tif ($sym =~ /^\\w+[[{].*[]}]$/) {\n\t\t require Carp;\n\t\t Carp::croak(\"Can\'t declare individual elements of hash or array\");\n\t\t} elsif (warnings::enabled() and lengt"..., 4096) = 2358 24717 lseek(6, 1148, SEEK_SET) = 1148 24717 lseek(6, 0, SEEK_CUR) = 1148 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/AutoLoader.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/AutoLoader.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/AutoLoader.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/AutoLoader.pm", {st_dev=makedev(253, 0), st_ino=33915018, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=11093, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/AutoLoader.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package AutoLoader;\n\nuse strict;\nuse 5.006_001;\n\nour($VERSION, $AUTOLOAD);\n\nmy $is_dosish;\nmy $is_epoc;\nmy $is_vms;\nmy $is_macos;\n\nBEGIN {\n $is_dosish = $^O eq \'dos\' || $^O eq \'os2\' || $^O eq \'MSWin32\' || $^O eq \'NetWare\';\n $is_epoc = $^O eq \'epoc\';\n $is_vms = $^O eq \'VMS\';\n $is_macos = $^O eq \'MacOS\';\n $VERSION = \'5.60\';\n}\n\nAUTOLOAD {\n my $sub = $AUTOLOAD;\n my $filename;\n # Braces used to preserve $1 et al.\n {\n\t# Try to find the autoloaded file from the package-qualif"..., 4096) = 4096 24717 brk(0x1ca83000) = 0x1ca83000 24717 read(6, " \'lib\').\n #\n\n (my $calldir = $callpkg) =~ s#::#/#g;\n my $path = $INC{$calldir . \'.pm\'};\n if (defined($path)) {\n\t# Try absolute path name.\n\tif ($is_macos) {\n\t (my $malldir = $calldir) =~ tr#/#:#;\n\t $path =~ s#^(.*)$malldir\\.pm\\z#$1auto:$malldir:autosplit.ix#s;\n\t} else {\n\t $path =~ s#^(.*)$calldir\\.pm\\z#$1auto/$calldir/autosplit.ix#;\n\t}\n\n\teval { require $path; };\n\t# If that failed, try relative path with normal @INC searching.\n\tif ($@) {\n\t $path =\"auto/$calldir/autosplit.ix"..., 4096) = 4096 24717 lseek(6, 4936, SEEK_SET) = 4936 24717 lseek(6, 0, SEEK_CUR) = 4936 24717 close(6) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/autosplit.ix", {st_dev=makedev(253, 0), st_ino=34308389, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=1562, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:33:51, st_ctime=2007/11/26-14:33:57}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/autosplit.ix", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "# Index created by AutoSplit for blib/lib/Net/SSLeay.pm\n# (file acts as timestamp)\npackage Net::SSLeay;\nsub want_nothing ;\nsub want_read ;\nsub want_write ;\nsub want_X509_lookup ;\nsub open_tcp_connection ;\nsub open_proxy_tcp_connection ;\nsub debug_read ;\nsub ssl_read_all ;\nsub tcp_read_all ;\nsub ssl_write_all ;\nsub tcp_write_all ;\nsub ssl_read_until ($;$$);\nsub tcp_read_until ;\nsub ssl_read_CRLF ($;$);\nsub tcp_read_CRLF ;\nsub ssl_write_CRLF ($$);\nsub tcp_write_CRLF ;\nsub dump_"..., 4096) = 1562 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 read(5, "(v23)\n#\n$Net::SSLeay::ssl_version = 0; # don\'t change here, use \n # Net::SSLeay::version=[2,3,0] in caller\n\n#define to enable the \"cat /proc/$$/stat\" stuff\n$Net::SSLeay::linux_debug = 0;\n\n# Number of seconds to sleep after sending message and before half\n# closing connection. Useful with antiquated broken servers.\n$Net::SSLeay::slowly = 0;\n\n# RANDOM NUMBER INITIALIZATION\n#\n# Edit to your taste. Using /dev/random would be more secure, but may\n# block if randomness "..., 4096) = 4096 24717 read(5, "LLENGE_LENGTH\n R_NO_CERTIFICATE_SET\n R_NO_CERTIFICATE_SPECIFIED\n R_NO_CIPHER_LIST\n R_NO_CIPHER_MATCH\n R_NO_CIPHER_WE_TRUST\n R_NO_PRIVATEKEY\n R_NO_PUBLICKEY\n R_NO_READ_METHOD_SET\n R_NO_WRITE_METHOD_SET\n R_NULL_SSL_CTX\n R_PEER_DID_NOT_RETURN_A_CERTIFICATE\n R_PEER_ERROR\n R_PEER_ERROR_CERTIFICATE\n R_PEER_ERROR_NO_CIPHER\n R_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE\n R_PERR_ERROR_NO_CERTIFICATE\n R_PUBLIC_KEY_ENCRYPT_ERROR\n R_PUBLIC_KEY_IS_NOT_RSA\n "..., 4096) = 4096 24717 read(5, "ct_name\n X509_NAME_oneline\n X509_NAME_get_text_by_NID\n CTX_get_cert_store\n X509_STORE_add_cert\n X509_STORE_add_crl\n X509_STORE_CTX_set_flags\n X509_load_cert_file\n X509_load_crl_file\n X509_load_cert_crl_file\n PEM_read_bio_X509_CRL\n die_if_ssl_error\n die_now\n print_errs\n set_cert_and_key\n set_server_cert_and_key\n make_form\n make_headers\n do_https\n get_https\n post_https\n get_https4\n post_https4\n sslcat\n ssl_read_CRLF\n ssl_re"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/bytes.pmc", 0x7fff9d817a40) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/bytes.pm", 0x7fff9d817900) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/bytes.pmc", 0x7fff9d817a40) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/bytes.pm", {st_dev=makedev(253, 0), st_ino=33915394, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=2384, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/bytes.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8176e0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package bytes;\n\nour $VERSION = \'1.02\';\n\n$bytes::hint_bits = 0x00000008;\n\nsub import {\n $^H |= $bytes::hint_bits;\n}\n\nsub unimport {\n $^H &= ~$bytes::hint_bits;\n}\n\nsub AUTOLOAD {\n require \"bytes_heavy.pl\";\n goto &$AUTOLOAD if defined &$AUTOLOAD;\n require Carp;\n Carp::croak(\"Undefined subroutine $AUTOLOAD called\");\n}\n\nsub length ($);\nsub chr ($);\nsub ord ($);\nsub substr ($$;$$);\nsub index ($$;$);\nsub rindex ($$;$);\n\n1;\n__END__\n\n=head1 NAME\n\nbytes - Perl pragma to force byte semant"..., 4096) = 2384 24717 lseek(6, 446, SEEK_SET) = 446 24717 lseek(6, 0, SEEK_CUR) = 446 24717 close(6) = 0 24717 lseek(5, 15302, SEEK_SET) = 15302 24717 lseek(5, 0, SEEK_CUR) = 15302 24717 close(5) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/SSLeay.so", {st_dev=makedev(253, 0), st_ino=34308315, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=1032, st_size=523735, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:33:56, st_ctime=2007/11/26-14:33:56}) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/SSLeay.bs", {st_dev=makedev(253, 0), st_ino=34308314, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-15:10:23, st_mtime=2007/11/26-14:33:56, st_ctime=2007/11/26-14:33:56}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/SSLeay.so", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0`\306\0\0\0\0\0\0@\0\0\0\0\0\0\0\10|\7\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0%\0\"\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0L\376\2\0\0\0\0\0L\376\2\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0\0\3\0\0\0\0\0\0\0#\0\0\0\0\0\0\0#\0\0\0\0\0p\24\0\0\0\0\0\0\220\24\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0000\0\3\0\0\0\0\0000\0#\0\0\0\0\0000\0#\0\0\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0<\316\2\0\0\0\0\0<\316\2\0\0\0\0\0<\316\2\0\0\0\0\0\224\t\0\0\0\0\0\0\224\t\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\7\1\0\0\37\1\0\0 \0\0\0\v\0\0\0\210\2\10\0$\20\"$A( G\243@\200$\260D\0\200\n\0\10 \243\16s\200\6R\2\6\nY\22\300P\2540W\220B`\22\10\34\0\201\f\202\v(\342\304$\t\350V&M\2c\30R\2320\25\33\0\00342@ \4\301\206\1(\0\0\200\344f\240P\302\250\0\2\200\0\0\202$\2\24\254\204\1\241\231mB\222\223\f\232\0\213L\0\4\204\0008\0\4\3If@@\0\200\4\16$\0@\200\0\201\200\4\3@\200\2\26"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=34308315, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=1032, st_size=523735, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:33:56, st_ctime=2007/11/26-14:33:56}) = 0 24717 mmap(NULL, 2299024, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x2aaaae49e000 24717 mprotect(0x2aaaae4ce000, 2097152, PROT_NONE) = 0 24717 mmap(0x2aaaae6ce000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x30000) = 0x2aaaae6ce000 24717 close(5) = 0 24717 open("/usr/lib64/tls/x86_64/libssl.so.6", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib64/tls/x86_64", 0x7fff9d817960) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/tls/libssl.so.6", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib64/tls", {st_dev=makedev(253, 0), st_ino=33783832, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/03/30-04:03:10, st_mtime=2007/03/29-12:00:09, st_ctime=2007/11/19-10:31:57}) = 0 24717 open("/usr/lib64/x86_64/libssl.so.6", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib64/x86_64", 0x7fff9d817960) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libssl.so.6", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib64", {st_dev=makedev(253, 0), st_ino=33783827, st_mode=S_IFDIR|0755, st_nlink=51, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=56, st_size=24576, st_atime=2008/03/30-04:03:11, st_mtime=2008/03/05-04:02:48, st_ctime=2008/03/05-04:02:48}) = 0 24717 open("/etc/ld.so.cache", O_RDONLY) = 5 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=20382426, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=112, st_size=49205, st_atime=2008/04/01-17:48:14, st_mtime=2008/03/04-05:08:49, st_ctime=2008/03/04-05:08:49}) = 0 24717 mmap(NULL, 49205, PROT_READ, MAP_PRIVATE, 5, 0) = 0x2aaaae6d0000 24717 close(5) = 0 24717 open("/lib64/libssl.so.6", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\220!!\0369\0\0\0@\0\0\0\0\0\0\0(\226\4\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0 \0369\0\0\0\0\0 \0369\0\0\0\204&\4\0\0\0\0\0\204&\4\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0000\4\0\0\0\0\0\0000D\0369\0\0\0\0000D\0369\0\0\0p[\0\0\0\0\0\0@\\\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\360<\4\0\0\0\0\0\360\0\1\0\0\0\360b\345\0339\0\0\0@\0\0\0\0\0\0\0XC\24\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\340\0339\0\0\0\0\0\340\0339\0\0\0\34N\22\0\0\0\0\0\34N\22\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0P\22\0\0\0\0\0\0P\22\0349\0\0\0\0P\22\0349\0\0\0\10\352\1\0\0\0\0\0\270$\2\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0H\322\22\0\0\0\0\0H\322\22\0349\0\0\0H\322\22\0349\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0Li\20\0\0\0\0\0Li\360\0339\0\0\0Li\360\0339\0\0\0\244i\0\0\0\0\0\0\244i\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\5\10\0\0m\0\0\0\0\1\0\0\16\0\0\0\1 \2\214A#\3@!\204\10RH\200\6\0\33@\266\0\270!\10\372\t+\1\300\200\25 !\230D\220\247\351\250Y\0T+k(2\"\20\272\351`\v\0ISP\200H\1\4\10\0\230\244\3\0 B2\f\0a \24\30\276\252\30\21\20\1*\"$aY}`\0308\4/C\201Q\2hG\5\0B(\n\3061BF\2703C\r\201\352`\1\4\23\1\35lE\205\202\304D\220\316R\36\254\240\4 \214\241\n\300\36\0\2"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39715161, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=2608, st_size=1329816, st_atime=2008/04/01-17:48:14, st_mtime=2007/10/16-17:51:32, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391be00000, 3437752, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391be00000 24717 mprotect(0x391bf25000, 2097152, PROT_NONE) = 0 24717 mmap(0x391c125000, 126976, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x125000) = 0x391c125000 24717 mmap(0x391c144000, 13496, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x391c144000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libz.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libz.so.1", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\260\36\240\0279\0\0\0@\0\0\0\0\0\0\0(G\1\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0279\0\0\0\0\0\240\0279\0\0\0\3648\1\0\0\0\0\0\3648\1\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\3708\1\0\0\0\0\0\3708\301\0279\0\0\0\3708\301\0279\0\0\0(\5\0\0\0\0\0\0000\5\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\30:\1\0\0\0\0\0\30:\301\0279\0\0\0\30:\301\0279\0\0\0\220\1\0\0\0\0\0\0\220\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0`*\1\0\0\0\0\0`*\241\0279\0\0\0`*\241\0279\0\0\0\374\2\0\0\0\0\0\0\374\2\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0C\0\0\0\35\0\0\0\10\0\0\0\t\0\0\0\1#h\34\10\200$,\220\0\223@;\0\6\30\234\0$\f\21\204\10\210$\20C\2\24\23\202\203\0C4\262\6\202PK(,\0\25\f\340\240\213@\260\23E!DF\t\4 \26\21\0\306\0\21\35\0\0\0\36\0\0\0\37\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0!\0\0\0\0\0\0\0\"\0\0\0#\0\0\0%\0\0\0\0\0\0\0\'\0\0\0\0\0\0\0)\0\0\0\0\0\0\0*\0\0\0-\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33795401, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=176, st_size=85608, st_atime=2008/04/01-17:48:14, st_mtime=2007/01/09-14:04:39, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3917a00000, 2178600, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x3917a00000 24717 mprotect(0x3917a14000, 2093056, PROT_NONE) = 0 24717 mmap(0x3917c13000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x13000) = 0x3917c13000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libgssapi_krb5.so.2", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libgssapi_krb5.so.2", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\0\222 \0339\0\0\0@\0\0\0\0\0\0\0\200\342\2\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\36\0\35\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0 \0339\0\0\0\0\0 \0339\0\0\0\274\266\2\0\0\0\0\0\274\266\2\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0\300\2\0\0\0\0\0\0\300B\0339\0\0\0\0\300B\0339\0\0\0\340\27\0\0\0\0\0\0p\31\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\310\304\2\0\0\0\0\0\310\304B\0339\0\0\0\310\304B\0339\0\0\0 \2\0\0\0\0\0\0 \2\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\314\217\2\0\0\0\0\0\314\217\"\0339\0\0\0\314\217\"\0339\0\0\0\34\10\0\0\0\0\0\0\34\10\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\305\0\0\0\217\0\0\0 \0\0\0\v\0\0\0\22\1\0\1\6\320\260(A\f\300\"\0\0\0\0\24\10\2\0246\1\5\0\250\215\200D@ \274\22\20I\22\0\" \v\210\10\22\0\0 \202\204\242 \20\0\4x\1\242\10D\20\201P\224\340\0\0\0\2\300\n\20\214%\0\204\320\1\10\366\216\244#\0\10 \320\20\0\4\0\201 \0\230\250\250\r\0\222\7\0A\0\250\220\2\210\202D\200\20\242\215\204 \0\20\n \4\10\0\24j@@\f \355\4\224\24\0\10\0\344\24A\4P\2"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33801018, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=384, st_size=190976, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/10-20:18:21, st_ctime=2008/01/14-04:02:06}) = 0 24717 mmap(0x391b200000, 2283888, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391b200000 24717 mprotect(0x391b22c000, 2097152, PROT_NONE) = 0 24717 mmap(0x391b42c000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x2c000) = 0x391b42c000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libkrb5.so.3", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libkrb5.so.3", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0`\221\341\0349\0\0\0@\0\0\0\0\0\0\0\210&\t\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\36\0\35\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\340\0349\0\0\0\0\0\340\0349\0\0\0l\337\10\0\0\0\0\0l\337\10\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0\340\10\0\0\0\0\0\0\340\10\0359\0\0\0\0\340\10\0359\0\0\0\10<\0\0\0\0\0\0\300<\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0h\375\10\0\0\0\0\0h\375\10\0359\0\0\0h\375\10\0359\0\0\0\0\2\0\0\0\0\0\0\0\2\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0X:\10\0\0\0\0\0X:\350\0349\0\0\0X:\350\0349\0\0\0004 \0\0\0\0\0\0004 \0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\t\2\0\0\266\0\0\0\200\0\0\0\r\0\0\0@%\200\0208\0\341)\10\1P\300\2@@\202\1\0k\204\241\1\200\3C\10,\t\204s\34\222\0\200\0\0\24\2003\0\0\200\302\0\22N\1\10!\0\200\240\200\4\0\10Q\200\0\20\220\10\0\t\0\20\303\200\0\t\1\2\10\0\200\3!\200\4\21\250\210\20\0\202\0\0a\200\240\21\240\260@`\266\231\246\3\4`@\1\5\3\222\320d\20@\200\0000\200\340\0\22\2\2029 \v\202\2\0\t\0\0!\2\4\1Pp\24\200\300\340\0\212"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33800964, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=1184, st_size=601608, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/10-20:18:21, st_ctime=2008/01/14-04:02:06}) = 0 24717 mmap(0x391ce00000, 2694336, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391ce00000 24717 mprotect(0x391ce8e000, 2097152, PROT_NONE) = 0 24717 mmap(0x391d08e000, 16384, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x8e000) = 0x391d08e000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libcom_err.so.2", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libcom_err.so.2", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/lib64/libcom_err.so.2", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\320\n\240\0319\0\0\0@\0\0\0\0\0\0\0\320\37\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0319\0\0\0\0\0\240\0319\0\0\0004\24\0\0\0\0\0\0004\24\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0008\24\0\0\0\0\0\0008\24\300\0319\0\0\0008\24\300\0319\0\0\0\210\2\0\0\0\0\0\0\320\2\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0h\24\0\0\0\0\0\0h\24\300\0319\0\0\0h\24\300\0319\0\0\0\220\1\0\0\0\0\0\0\220\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0(\22\0\0\0\0\0\0(\22\240\0319\0\0\0(\22\240\0319\0\0\0|\0\0\0\0\0\0\0|\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\21\0\0\0\17\0\0\0\2\0\0\0\7\0\0\0\211\20\5X\0\v@]\216\f$\1\210\4\214a\17\0\0\0\21\0\0\0\22\0\0\0\24\0\0\0\27\0\0\0\30\0\0\0\31\0\0\0\32\0\0\0\35\0\0\0\0\0\0\0\0\0\0\0\37\0\0\0 \0\0\0!\0\0\0\0\0\0\0\"\0\0\0\0\0\0\0\23452\36\1\324\272\243\353\323\357\16X\311e\234\271\215\361\16\302E\205d\266\301k0\331qX\34\273\343\222|?\210l\257\301\2767\33b?,\5(\251\261>CE\325\354"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39714844, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=10000, st_atime=2008/04/01-17:48:14, st_mtime=2008/01/12-08:31:59, st_ctime=2008/01/14-04:02:06}) = 0 24717 mmap(0x3919a00000, 2103048, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x3919a00000 24717 mprotect(0x3919a02000, 2093056, PROT_NONE) = 0 24717 mmap(0x3919c01000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x1000) = 0x3919c01000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libk5crypto.so.3", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libk5crypto.so.3", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\260V`\0359\0\0\0@\0\0\0\0\0\0\0\230O\2\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\36\0\35\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0`\0359\0\0\0\0\0`\0359\0\0\0\3340\2\0\0\0\0\0\3340\2\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\3400\2\0\0\0\0\0\3400\202\0359\0\0\0\3400\202\0359\0\0\0\200\24\0\0\0\0\0\0(\31\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\340>\2\0\0\0\0\0\340>\202\0359\0\0\0\340>\202\0359\0\0\0\340\1\0\0\0\0\0\0\340\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\260\23\2\0\0\0\0\0\260\23b\0359\0\0\0\260\23b\0359\0\0\0\254\5\0\0\0\0\0\0\254\5\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\203\0\0\0$\0\0\0\20\0\0\0\n\0\0\0;\214\244\200\251H\2\1\"\4\4\0\1\1\2R\222\237\t\20\222\10\3020\203\4\244\323\247}r\230\202\10\2511\n\245\200 \t\310\202\"\0B\26\205\201\221\f\5\n\6Y\371V\f\0\261P\1\220\200\300\311Pb\t\1_ \2((\240 \372\306P0J\"\200\1`\210\307\200\232 \206\243\222\32\1\0 \303 a\35\200\215\0L\20\34a@$\10\240A7\2\20\2\0\t\200\0\2D \5^\17\0\0\0\0$\0\0\0&\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33799558, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=312, st_size=153368, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/10-20:18:21, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391d600000, 2247176, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391d600000 24717 mprotect(0x391d624000, 2093056, PROT_NONE) = 0 24717 mmap(0x391d823000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x23000) = 0x391d823000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libkrb5support.so.0", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libkrb5support.so.0", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\200\"\240\0349\0\0\0@\0\0\0\0\0\0\0p\204\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\36\0\35\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\240\0349\0\0\0\0\0\240\0349\0\0\0\364s\0\0\0\0\0\0\364s\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\370s\0\0\0\0\0\0\370s\300\0349\0\0\0\370s\300\0349\0\0\0h\6\0\0\0\0\0\0008\7\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0Pt\0\0\0\0\0\0Pt\300\0349\0\0\0Pt\300\0349\0\0\0\360\1\0\0\0\0\0\0\360\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0@l\0\0\0\0\0\0@l\240\0349\0\0\0@l\240\0349\0\0\0\254\1\0\0\0\0\0\0\254\1\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0%\0\0\0:\0\0\0\10\0\0\0\t\0\0\0 \214\204\22\10\2H)\200\0\2\200@\4@\0\4\0\t\0\0C \1\0@\22\0\1\0\0P\n\1\2\220\200\320\2 \250\"@D\4\5e\20AB\32\22\3B\v\r\20\0\4\t \327\2\201:\0\0\0<\0\0\0?\0\0\0\0\0\0\0@\0\0\0B\0\0\0C\0\0\0D\0\0\0E\0\0\0\0\0\0\0F\0\0\0I\0\0\0J\0\0\0\0\0\0\0L\0\0\0\0\0\0\0\0\0\0\0M\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33796019, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=72, st_size=35824, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/10-20:18:21, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391ca00000, 2128688, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391ca00000 24717 mprotect(0x391ca08000, 2093056, PROT_NONE) = 0 24717 mmap(0x391cc07000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x7000) = 0x391cc07000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libkeyutils.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libkeyutils.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/lib64/libkeyutils.so.1", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0`\n \0359\0\0\0@\0\0\0\0\0\0\0\300\35\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0 \0359\0\0\0\0\0 \0359\0\0\0$\22\0\0\0\0\0\0$\22\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0(\22\0\0\0\0\0\0(\22@\0359\0\0\0(\22@\0359\0\0\0`\2\0\0\0\0\0\0h\2\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0X\22\0\0\0\0\0\0X\22@\0359\0\0\0X\22@\0359\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0(\17\0\0\0\0\0\0(\17 \0359\0\0\0(\17 \0359\0\0\0\274\0\0\0\0\0\0\0\274\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\21\0\0\0\10\0\0\0\4\0\0\0\10\0\0\0\2\240\0\200\0\200\314\0\251 \22(\4@@2@:\20 \10\20I\tP \n\31P\4\2H\10\0\0\0\t\0\0\0\v\0\0\0\r\0\0\0\20\0\0\0\0\0\0\0\0\0\0\0\22\0\0\0\0\0\0\0\25\0\0\0\31\0\0\0\33\0\0\0\35\0\0\0\36\0\0\0!\0\0\0\"\0\0\0$\0\0\0\361\334\366\302\352\323\357\16\305{?N\206\235\26?\271\215\361\16\330qX\34\214\211\343\221Q\271\336\10\260\r\312\4\273\343\222|"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39715156, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9472, st_atime=2008/04/01-17:48:14, st_mtime=2007/01/06-01:55:38, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391d200000, 2102416, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391d200000 24717 mprotect(0x391d202000, 2093056, PROT_NONE) = 0 24717 mmap(0x391d401000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x1000) = 0x391d401000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libresolv.so.2", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libresolv.so.2", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/lib64/libresolv.so.2", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\2402 \0329\0\0\0@\0\0\0\0\0\0\0@a\1\0\0\0\0\0\0\0\0\0@\0008\0\t\0@\0$\0#\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0 \0329\0\0\0@\0 \0329\0\0\0\370\1\0\0\0\0\0\0\370\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0 \361\0\0\0\0\0\0 \361 \0329\0\0\0 \361 \0329\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0 \0329\0\0\0\0\0 \0329\0\0\0$\10\1\0\0\0\0\0$\10\1\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\340\24\1\0\0\0\0\0\340\24A\0329\0\0\0\340\24A\0329\0\0\0\340\r\0\0\0\0\0\0\0106\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\350\35\1\0\0\0\0\0\350\35A\0329\0\0\0\350\35A\0329\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0008\2\0\0\0\0\0\0008\2 \0329\0\0\0008\2 \0329\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0P\345td\4\0\0\0<\361\0\0\0\0\0\0<\361 \0329\0\0\0<\361 \0329\0\0\0,\3\0\0\0\0\0\0,\3\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39715157, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=192, st_size=92736, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:08, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x391a200000, 2181864, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x391a200000 24717 mprotect(0x391a211000, 2097152, PROT_NONE) = 0 24717 mmap(0x391a411000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x11000) = 0x391a411000 24717 mmap(0x391a413000, 6888, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x391a413000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libselinux.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libselinux.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/lib64/libselinux.so.1", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0@E`\0279\0\0\0@\0\0\0\0\0\0\0hm\1\0\0\0\0\0\0\0\0\0@\0008\0\7\0@\0\36\0\35\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0`\0279\0\0\0\0\0`\0279\0\0\0\374M\1\0\0\0\0\0\374M\1\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\220]\1\0\0\0\0\0\220]\201\0279\0\0\0\220]\201\0279\0\0\0\320\5\0\0\0\0\0\0\0\30\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\340]\1\0\0\0\0\0\340]\201\0279\0\0\0\340]\201\0279\0\0\0\300\1\0\0\0\0\0\0\300\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\7\0\0\0\4\0\0\0\220]\1\0\0\0\0\0\220]\201\0279\0\0\0\220]\201\0279\0\0\0\0\0\0\0\0\0\0\0(\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0h-\1\0\0\0\0\0h-a\0279\0\0\0h-a\0279\0\0\0\214\6\0\0\0\0\0\0\214\6\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0R\345td\4\0\0\0\220]\1\0\0\0\0\0\220]\201\0279\0\0\0\220]\201\0279\0\0\0X\2\0\0\0\0\0\0X\2\0\0\0\0\0\0\1\0\0\0\0\0\0\0\203\0\0\0i\0\0\0\20\0\0\0\n\0\0\0\232d\204\10\0H\0\\%\22D\0D\260\244\20\22\230\34\2\204@$\200\220\200FU"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39715159, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=200, st_size=95464, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/10-06:20:35, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3917600000, 2192784, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x3917600000 24717 mprotect(0x3917615000, 2097152, PROT_NONE) = 0 24717 mmap(0x3917815000, 8192, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x15000) = 0x3917815000 24717 mmap(0x3917817000, 1424, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x3917817000 24717 close(5) = 0 24717 open("/usr/lib64/tls/libsepol.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/lib64/libsepol.so.1", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/lib64/libsepol.so.1", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\340<\340\0279\0\0\0@\0\0\0\0\0\0\0\250\277\3\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\35\0\34\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\340\0279\0\0\0\0\0\340\0279\0\0\0\274\245\3\0\0\0\0\0\274\245\3\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0\260\3\0\0\0\0\0\0\260\3\0309\0\0\0\0\260\3\0309\0\0\0\240\6\0\0\0\0\0\0@\255\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0 \262\3\0\0\0\0\0 \262\3\0309\0\0\0 \262\3\0309\0\0\0\220\1\0\0\0\0\0\0\220\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0pP\3\0\0\0\0\0pP\343\0279\0\0\0pP\343\0279\0\0\0\224\20\0\0\0\0\0\0\224\20\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\203\0\0\0/\0\0\0\20\0\0\0\n\0\0\0\330\3 Q#\226 `\0\1\v2\2(\240\223uA\204@$\211H\21\10$\200\31\3\2\16\0202\321\5\324\315$X\22@\202b \0`\24\1`!H\222\25I\210\310q-\206\24\200Z`\304\0\212\20\t\4\201\340\206\2\367! \n\30\5\225\0 \341\343t){8\n\0\0\t\203pLD\264\r\f3d\3104\4\4\366\5b\232y\200U\20\r\200$ZE\21@\20j^\2\200P\204X/\0\0\0000\0\0\0001\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=39715158, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=496, st_size=247528, st_atime=2008/04/01-17:48:14, st_mtime=2007/03/16-18:43:44, st_ctime=2007/12/04-04:04:16}) = 0 24717 mmap(0x3917e00000, 2383168, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x3917e00000 24717 mprotect(0x3917e3b000, 2097152, PROT_NONE) = 0 24717 mmap(0x391803b000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x3b000) = 0x391803b000 24717 mmap(0x391803c000, 40256, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x391803c000 24717 close(5) = 0 24717 mprotect(0x391a411000, 4096, PROT_READ) = 0 24717 access("/etc/selinux/", F_OK) = 0 24717 open("/etc/selinux/config", O_RDONLY) = 5 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=20382792, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=511, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-12:51:11, st_ctime=2008/02/28-12:51:11}) = 0 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaae6dd000 24717 read(5, "# This file controls the state of SELinux on the system.\n# SELINUX= can take one of these three values:\n#\tenforcing - SELinux security policy is enforced.\n#\tpermissive - SELinux prints warnings instead of enforcing.\n#\tdisabled - SELinux is fully disabled.\nSELINUX=disabled\n# SELINUXTYPE= type of policy in use. Possible values are:\n#\ttargeted - Only targeted network daemons are protected.\n#\tstrict - Full SELinux protection.\nSELINUXTYPE=targeted\n\n# SETLOCALDEFS= Check local definition changes\nSETLO"..., 4096) = 511 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 munmap(0x2aaaae6dd000, 4096) = 0 24717 open("/proc/mounts", O_RDONLY) = 5 24717 fstat(5, {st_dev=makedev(0, 3), st_ino=1619853329, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2008/04/01-17:48:14, st_mtime=2008/04/01-17:48:14, st_ctime=2008/04/01-17:48:14}) = 0 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaae6dd000 24717 read(5, "rootfs / rootfs rw 0 0\n/dev/root / ext3 rw,data=ordered,usrquota 0 0\n/dev /dev tmpfs rw 0 0\n/proc /proc proc rw 0 0\n/sys /sys sysfs rw 0 0\n/proc/bus/usb /proc/bus/usb usbfs rw 0 0\ndevpts /dev/pts devpts rw 0 0\n/dev/sda1 /boot ext3 rw,data=ordered 0 0\ntmpfs /dev/shm tmpfs rw 0 0\nnone /proc/sys/fs/binfmt_misc binfmt_misc rw 0 0\n/dev/loop0 /tmp ext3 rw,nosuid,noexec,data=ordered 0 0\n/dev/loop0 /var/tmp ext3 rw,nosuid,noexec,data=ordered 0 0\n/etc/auto.misc /misc autofs rw,fd=6,pgrp=2454,timeout=300,"..., 4096) = 620 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 munmap(0x2aaaae6dd000, 4096) = 0 24717 munmap(0x2aaaae6d0000, 49205) = 0 24717 brk(0x1cac5000) = 0x1cac5000 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/constant.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/constant.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/constant.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/constant.pm", {st_dev=makedev(253, 0), st_ino=33915399, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=11279, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/constant.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package constant;\n\nuse strict;\nuse 5.006_00;\nuse warnings::register;\n\nour($VERSION, %declared);\n$VERSION = \'1.05\';\n\n#=======================================================================\n\n# Some names are evil choices.\nmy %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };\n\nmy %forced_into_main = map +($_, 1),\n qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };\n\nmy %forbidden = (%keywords, %forced_into_main);\n\n#============================================================"..., 4096) = 4096 24717 lseek(5, 3050, SEEK_SET) = 3050 24717 lseek(5, 0, SEEK_CUR) = 3050 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Scalar/Util.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Scalar/Util.pm", {st_dev=makedev(253, 0), st_ino=34276240, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9079, st_atime=2008/04/01-17:48:02, st_mtime=2006/12/10-10:03:45, st_ctime=2007/11/26-14:31:29}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Scalar/Util.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# Scalar::Util.pm\n#\n# Copyright (c) 1997-2006 Graham Barr . All rights reserved.\n# This program is free software; you can redistribute it and/or\n# modify it under the same terms as Perl itself.\n\npackage Scalar::Util;\n\nuse strict;\nuse vars qw(@ISA @EXPORT_OK $VERSION);\nrequire Exporter;\nrequire List::Util; # List::Util loads the XS\n\n@ISA = qw(Exporter);\n@EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_"..., 4096) = 4096 24717 brk(0x1cae6000) = 0x1cae6000 24717 lseek(5, 3388, SEEK_SET) = 3388 24717 lseek(5, 0, SEEK_CUR) = 3388 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/List/Util.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/List/Util.pm", {st_dev=makedev(253, 0), st_ino=34276238, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=7088, st_atime=2008/04/01-17:48:02, st_mtime=2006/12/10-10:03:45, st_ctime=2007/11/26-14:31:29}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/List/Util.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# List::Util.pm\n#\n# Copyright (c) 1997-2006 Graham Barr . All rights reserved.\n# This program is free software; you can redistribute it and/or\n# modify it under the same terms as Perl itself.\n\npackage List::Util;\n\nuse strict;\nuse vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY);\nrequire Exporter;\n\n@ISA = qw(Exporter);\n@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);\n$VERSION = \"1.19\";\n$XS_VERSION = $VERSION;\n$VERSION = eval $VERSION;"..., 4096) = 4096 24717 lseek(5, 1910, SEEK_SET) = 1910 24717 lseek(5, 0, SEEK_CUR) = 1910 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/List/Util/Util.so", {st_dev=makedev(253, 0), st_ino=34276236, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=64, st_size=30231, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:31:29, st_ctime=2007/11/26-14:31:29}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/List/Util/Util.bs", {st_dev=makedev(253, 0), st_ino=34275895, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:31:29, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/List/Util/Util.so", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240 \0\0\0\0\0\0@\0\0\0\0\0\0\0\220Y\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\314R\0\0\0\0\0\0\314R\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\320R\0\0\0\0\0\0\320R \0\0\0\0\0\320R \0\0\0\0\0\370\4\0\0\0\0\0\0\0\5\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\0S\0\0\0\0\0\0\0S \0\0\0\0\0\0S \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\10O\0\0\0\0\0\0\10O\0\0\0\0\0\0\10O\0\0\0\0\0\0\244\0\0\0\0\0\0\0\244\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\21\0\0\0U\0\0\0\2\0\0\0\7\0\0\0\211\0\1\315D&\20\313\34\224\10K\232\316\30\0\0\0\0\0U\0\0\0V\0\0\0Y\0\0\0[\0\0\0]\0\0\0c\0\0\0d\0\0\0f\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0h\0\0\0k\0\0\0\353\323\357\16\236\\\202.^\32\375\361\271\215\361\16\330qX\34\21@\336\302\356\247\306\35\273\343\222|\264\341`A(\34U\277*\37^\31Z\241\321\24\"\355\37o\37\263\22!"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=34276236, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=64, st_size=30231, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:31:29, st_ctime=2007/11/26-14:31:29}) = 0 24717 mmap(NULL, 2119632, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x2aaaae6d0000 24717 mprotect(0x2aaaae6d6000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaae8d5000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x5000) = 0x2aaaae8d5000 24717 close(5) = 0 24717 open("/usr/share/locale/locale.alias", O_RDONLY) = 5 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=33787878, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2528, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/29-20:15:11, st_ctime=2007/12/03-05:12:25}) = 0 24717 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaae8d6000 24717 read(5, "# Locale name alias data base.\n# Copyright (C) 1996-2001,2003 Free Software Foundation, Inc.\n#\n# This program is free software; you can redistribute it and/or modify\n# it under the terms of the GNU General Public License as published by\n# the Free Software Foundation; either version 2, or (at your option)\n# any later version.\n#\n# This program is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PART"..., 4096) = 2528 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 munmap(0x2aaaae8d6000, 4096) = 0 24717 open("/usr/share/locale/en_US.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/share/locale/en_US.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/share/locale/en_US/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/share/locale/en.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/share/locale/en.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 open("/usr/share/locale/en/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/randomize.al", {st_dev=makedev(253, 0), st_ino=34308351, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=1026, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:33:51, st_ctime=2007/11/26-14:33:56}) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/randomize.al", {st_dev=makedev(253, 0), st_ino=34308351, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=1026, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:33:51, st_ctime=2007/11/26-14:33:56}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/auto/Net/SSLeay/randomize.al", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d818100) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# NOTE: Derived from blib/lib/Net/SSLeay.pm.\n# Changes made here will be lost when autosplit is run again.\n# See AutoSplit.pm.\npackage Net::SSLeay;\n\n#line 1935 \"blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/randomize.al)\"\n### Arrange some randomness for eay PRNG\n\nsub randomize (;$$) {\n my ($rn_seed_file, $seed, $egd_path) = @_;\n my $rnsf = defined($rn_seed_file) && -r $rn_seed_file;\n\n\t$egd_path = \'\';\n $egd_path = $ENV{\'EGD_PATH\'} if $ENV{\'EGD_PATH\'};\n \n RAND_seed"..., 4096) = 1026 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 open("/dev/urandom", O_RDONLY) = 5 24717 read(5, "\253\317\f\274", 4) = 4 24717 close(5) = 0 24717 stat("/dev/urandom", {st_dev=makedev(0, 16), st_ino=1764, st_mode=S_IFCHR|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_rdev=makedev(1, 9), st_atime=2008/03/31-16:33:27, st_mtime=2008/03/31-16:33:32, st_ctime=2008/03/31-16:33:27}) = 0 24717 stat("", 0x7007c0) = -1 ENOENT (No such file or directory) 24717 stat("/dev/urandom", {st_dev=makedev(0, 16), st_ino=1764, st_mode=S_IFCHR|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_rdev=makedev(1, 9), st_atime=2008/03/31-16:33:27, st_mtime=2008/03/31-16:33:32, st_ctime=2008/03/31-16:33:27}) = 0 24717 stat("/dev/urandom", {st_dev=makedev(0, 16), st_ino=1764, st_mode=S_IFCHR|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_rdev=makedev(1, 9), st_atime=2008/03/31-16:33:27, st_mtime=2008/03/31-16:33:32, st_ctime=2008/03/31-16:33:27}) = 0 24717 open("/dev/urandom", O_RDONLY) = 5 24717 read(5, "\333\263\210\371T\357\313\n\267;\31\350\262\v%\245TRd\373\250\22j\312KN\7\237{\t\351z\244\322\214\240\7s\334\"\360\325N\22\v\352\6\330+\33]$!-!\321\300u\237\347\355s=-", 64) = 64 24717 close(5) = 0 24717 read(4, "rl\' => 0,\n\t \'SSL_version\' => \'sslv23\',\n\t \'SSL_verify_mode\' => Net::SSLeay::VERIFY_NONE(),\n\t \'SSL_verify_callback\' => 0,\n );\n \n # SSL_key_file and SSL_cert_file will only be set in defaults if \n # SSL_key|SSL_key_file resp SSL_cert|SSL_cert_file are not set in\n # $args_hash\n foreach my $k (qw( key cert )) {\n\tnext if exists $arg_hash->{ \"SSL_${k}\" };\n\tnext if exists $arg_hash->{ \"SSL_${k}_file\" };\n \t$default_args{ \"SSL_${k}_file\" } = $is_server \n\t ? \"certs/server-${k}.p"..., 4096) = 4096 24717 brk(0x1cb07000) = 0x1cb07000 24717 read(4, "nnect attempt failed with unknown error\");\n\t\tdelete ${*$self}{\'_SSL_opening\'};\n\t\t${*$self}{\'_SSL_opened\'} = 1;\n\t\t#DEBUG( \"fatal SSL error: $SSL_ERROR\" );\n\t\treturn $self->fatal_ssl_error();\n\t }\n\n\t #DEBUG( \'ssl handshake in progress\' );\n\t # connect failed because handshake needs to be completed\n\t # if socket was non-blocking or no timeout was given return with this error\n\t return if ! defined($timeout);\n\n\t # wait until socket is readable or writable\n\t my $rv;\n\t if ( $timeou"..., 4096) = 4096 24717 read(4, "return $socket->error(\"SSL filehandle association failed\");\n\n\tif ( my $cl = $arg_hash->{SSL_cipher_list} ) {\n\t Net::SSLeay::set_cipher_list($ssl, $cl )\n\t\t|| return $socket->error(\"Failed to set SSL cipher list\");\n\t}\n }\n\n $ssl ||= ${*$socket}{\'_SSL_object\'};\n\n $SSL_ERROR = undef;\n #DEBUG( \'calling ssleay::accept\' );\n\n my $timeout = exists $args->{Timeout} \n \t? $args->{Timeout} \n\t: ${*$self}{io_socket_timeout}; # from IO::Socket\n if ( defined($timeout) && $timeout>0 && $soc"..., 4096) = 4096 24717 brk(0x1cb28000) = 0x1cb28000 24717 read(4, "fset>$buf_len);\n return 0 if ($offset == $buf_len);\n\n $SSL_ERROR = undef;\n my $written;\n if ( $write_all ) {\n \tmy $data = $length < $buf_len-$offset ? substr($$buffer, $offset, $length) : $$buffer;\n\t$written = Net::SSLeay::ssl_write_all($ssl, $data);\n } else {\n\t$written = Net::SSLeay::write_partial( $ssl,$offset,$length,$$buffer );\n }\n $written = undef if $written < 0; # Net::SSLeay::write returns -1 not undef on error\n if ( !defined($written) ) {\n\t$self->_set_rw_error"..., 4096) = 4096 24717 read(4, "t\'}) {\n\tmy $shutdown_done;\n\tif ( $stop_args->{SSL_no_shutdown} ) {\n\t $shutdown_done = 1;\n\t} else {\n\t my $fast = $stop_args->{SSL_fast_shutdown};\n\t my $status = Net::SSLeay::get_shutdown($ssl);\n\t if ( $status == SSL_RECEIVED_SHUTDOWN \n\t \t|| ( $status != 0 && $fast )) {\n\t \t# shutdown done\n\t \t$shutdown_done = 1;\n\t } else {\n\t\t# need to initiate/continue shutdown\n\t \tlocal $SIG{PIPE} = sub{};\n\t\tfor my $try (1,2 ) {\n\t\t my $rv = Net::SSLeay::shutdown($ssl);\n\t\t if ( $rv <"..., 4096) = 4096 24717 brk(0x1cb49000) = 0x1cb49000 24717 read(4, "ket::INET->new_from_fd($fd, \'+<\')\n\t|| return($class->error(\"Could not create socket from file descriptor.\"));\n\n # Annoying workaround for Perl 5.6.1 and below:\n $handle = IO::Socket::INET->new_from_fd($handle, \'+<\');\n\n return $class->start_SSL($handle, @_);\n}\n\n\nsub dump_peer_certificate {\n my $ssl = shift()->_get_ssl_object || return;\n return Net::SSLeay::dump_peer_certificate($ssl);\n}\n\nsub peer_certificate {\n my ($self, $field) = @_;\n my $ssl = $self->_get_ssl_object || ret"..., 4096) = 4096 24717 read(4, "t::SSL::SSL_HANDLE;\nuse strict;\nuse vars qw($HAVE_WEAKREF);\nuse Errno \'EBADF\';\n\nBEGIN {\n local ($@, $SIG{__DIE__});\n\n #Use Scalar::Util or WeakRef if possible:\n eval \"use Scalar::Util qw(weaken isweak); 1\" or\n\teval \"use WeakRef\";\n $HAVE_WEAKREF = $@ ? 0 : 1;\n}\n\n\nsub TIEHANDLE {\n my ($class, $handle) = @_;\n weaken($handle) if $HAVE_WEAKREF;\n bless \\$handle, $class;\n}\n\nsub READ { ${shift()}->sysread (@_) }\nsub READLINE { ${shift()}->readline (@_) }\nsub GETC { ${shift("..., 4096) = 4096 24717 brk(0x1cb6a000) = 0x1cb6a000 24717 read(4, "st with\n\t # a chain of certificates\n\t my @x509 = ref($x509) eq \'ARRAY\' ? @$x509: ($x509);\n\t my $cert = shift @x509;\n\t Net::SSLeay::CTX_use_certificate( $ctx,$cert ) \n\t \t|| return IO::Socket::SSL->error(\"Failed to use Certificate\");\n\t foreach my $ca (@x509) {\n\t \tNet::SSLeay::CTX_add_extra_chain_cert( $ctx,$ca ) \n\t \t || return IO::Socket::SSL->error(\"Failed to use Certificate\");\n\t }\n\t} elsif ( my $f = $arg_hash->{SSL_cert_file} ) {\n\t Net::SSLeay::CTX_use_certificat"..., 4096) = 4096 24717 read(4, "::SSLeay::SESSION_free($last->{session});\n\tdelete($self->{$last->{key}});\n\t$self->{\'_head\'}->{prev} = $self->{\'_head\'}->{prev}->{prev};\n\tdelete($self->{\'_head\'}) if ($self->{\'_maxsize\'} == 1);\n }\n\n my $session = $self->{$key} = { session => $val, key => $key };\n\n if ($self->{\'_head\'}) {\n\t$session->{next} = $self->{\'_head\'};\n\t$session->{prev} = $self->{\'_head\'}->{prev};\n\t$self->{\'_head\'}->{prev}->{next} = $session;\n\t$self->{\'_head\'}->{prev} = $session;\n } else {\n\t$session->{next} = $s"..., 4096) = 4096 24717 brk(0x1cb8b000) = 0x1cb8b000 24717 read(4, "rt_file\n\nIf your SSL certificate is not in the default place (F for servers,\nF for clients), then you should use this option to specify the\nlocation of your certificate. Note that a key and certificate are only required for an\nSSL server, so you do not need to bother with these trifling options should you be\nsetting up an unauthenticated client.\n\n=item SSL_cert\n\nThis is an X509* or an array of X509*.\nThe first X509* is the internal representation of"..., 4096) = 4096 24717 read(4, "ze\n\nIf you make repeated connections to the same host/port and the SSL renegotiation time\nis an issue, you can turn on client-side session caching with this option by specifying a\npositive cache size. For successive connections, pass the SSL_reuse_ctx option to\nthe new() calls (or use set_default_context()) to make use of the cached sessions.\nThe session cache size refers to the number of unique host/port pairs that can be\nstored at one time; the oldest sessions in the cache will be removed if "..., 4096) = 4096 24717 read(4, "r certificate. This function returns a string\nwith all the information about the particular field in one parsable line.\nIf no field is given it returns the full certificate (x509).\n\n=item B\n\nReturns the last error (in string form) that occurred. If you do not have a real\nobject to perform this method on, call IO::Socket::SSL::errstr() instead.\n\nFor read and write errors on non-blocking sockets, this method may include the string\nC or Cstart_SSL() instead\n\n\n=item get_peer_certificate()\n\nuse the peer_certificate() function instead.\nUsed to return X509_Certificate with methods subject_name and issuer_name.\nNow simply returns $self which has these methods (although depreceated).\n\n=item issuer_name()\n\nuse peer_certificate( \'issuer\' ) instead\n\n=item subject_name()\n\nuse peer_certificate( \'subject\' ) instead\n\n=back\n\nThe following classes have been removed:\n\n=over 2\n\n=item SSL_SSL\n\n(not that you sh"..., 4096) = 4096 24717 read(4, "ll not need anything unless the server wants validation, in which case you will\nalso need a private key and a real certificate. For more information about how to\nget these, see L.\n\n=cut\n", 4096) = 238 24717 read(4, "", 4096) = 0 24717 close(4) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN.pm", 0x7fff9d818800) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN.pmc", 0x7fff9d818940) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN.pm", {st_dev=makedev(253, 0), st_ino=33915060, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=880, st_size=443080, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/11-05:45:55, st_ctime=2007/11/26-14:31:45}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN.pm", O_RDONLY) = 4 24717 ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8185e0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(4, 0, SEEK_CUR) = 0 24717 read(4, "# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-\nuse strict;\npackage CPAN;\n$CPAN::VERSION = \'1.9205\';\n$CPAN::VERSION = eval $CPAN::VERSION if $CPAN::VERSION =~ /_/;\n\nuse CPAN::HandleConfig;\nuse CPAN::Version;\nuse CPAN::Debug;\nuse CPAN::Queue;\nuse CPAN::Tarzip;\nuse CPAN::DeferedCode;\nuse Carp ();\nuse Config ();\nuse Cwd ();\nuse DirHandle ();\nuse Exporter ();\nuse ExtUtils::MakeMaker qw(prompt); # for some unknown reason,\n # 5.005_04 does not work withou"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/HandleConfig.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/HandleConfig.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/HandleConfig.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/HandleConfig.pm", {st_dev=makedev(253, 0), st_ino=33916371, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=48, st_size=20585, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/05-15:51:41, st_ctime=2007/11/20-13:27:18}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN/HandleConfig.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package CPAN::HandleConfig;\nuse strict;\nuse vars qw(%can %keys $loading $VERSION);\n\n$VERSION = sprintf \"%.6f\", substr(q$Rev: 2212 $,4)/1000000 + 5.4;\n\n%can = (\n commit => \"Commit changes to disk\",\n defaults => \"Reload defaults from disk\",\n help => \"Short help about \'o conf\' usage\",\n init => \"Interactive setting of all options\",\n);\n\n# Q: where is the \"How do I add a new config option\" HOWTO?\n# A1: svn diff -r 757:758 # where dagolden added test_report\n# A2: s"..., 4096) = 4096 24717 read(5, "onfig->{$o}};\n $changed = 1;\n } elsif ($func eq \"unshift\") {\n unshift @{$CPAN::Config->{$o}}, @args;\n $changed = 1;\n } elsif ($func eq \"splice\") {\n my $offset = shift @args || 0;\n my $length = shift @args || 0;\n splice @{$CPAN::Config->{$o}}, $offset, $length, @args; # may warn\n $changed = 1;\n } elsif ($func) {\n $CPAN::Config->{$o} = [$func, @ar"..., 4096) = 4096 24717 read(5, " try\n\"o conf init\" to have an interactive course through configing.\n});\n }\n my($mode);\n if (-f $configpm) {\n $mode = (stat $configpm)[2];\n if ($mode && ! -w _) {\n Carp::confess(\"$configpm is not writable\");\n }\n }\n\n my $msg;\n $msg = <{commands_quote} || $quotes;\n\n if ($quote ne \' \'\n and defined($command )\n and $command =~ /\\s/\n and $command !~ /[$quote]/) {\n return qq<$use_quote$command$use_quote>\n }\n return $command;\n }\n}\n\nsub init {\n my($self,@args) = @_;\n CPAN->debug(\"self[$self]args[\".join(\",\",@args).\"]\");\n $self->load(doit => 1, @args);\n 1;\n}\n\n# This"..., 4096) = 4096 24717 read(5, " ($redo && !$doit) {\n $CPAN::Frontend->myprint(<debug(\"l[$l] r[$r]\") if $CPAN::DEBUG;\n\n return 0 if $l eq $r; # short circuit for quicker success\n\n for ($l,$r) {\n s/_//g;\n }\n CPAN->debug(\"l[$l] r[$r]\") if $CPAN::DEBUG;\n for ($l,$r) {\n next unless tr/.// > 1 || /^v/;\n s/^v?/v/;\n 1 while s/\\.0+(\\d)/.$1/; # remove lea"..., 4096) = 4096 24717 lseek(5, 3277, SEEK_SET) = 3277 24717 lseek(5, 0, SEEK_CUR) = 3277 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Debug.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Debug.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Debug.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Debug.pm", {st_dev=makedev(253, 0), st_ino=33916374, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2046, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/05-15:51:41, st_ctime=2007/11/20-13:27:18}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN/Debug.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-\npackage CPAN::Debug;\nuse strict;\nuse vars qw($VERSION);\n\n$VERSION = sprintf \"%.6f\", substr(q$Rev: 2212 $,4)/1000000 + 5.4;\n# module is internal to CPAN.pm\n\n%CPAN::DEBUG = qw[\n CPAN 1\n Index 2\n InfoObj 4\n Author 8\n Distribution 16\n Bundle 32\n Module 64"..., 4096) = 2046 24717 lseek(5, 1914, SEEK_SET) = 1914 24717 lseek(5, 0, SEEK_CUR) = 1914 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Queue.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Queue.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Queue.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Queue.pm", {st_dev=makedev(253, 0), st_ino=33916375, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=6357, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/05-15:51:41, st_ctime=2007/11/20-13:27:18}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN/Queue.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-\nuse strict;\npackage CPAN::Queue::Item;\n\n# CPAN::Queue::Item::new ;\nsub new {\n my($class,@attr) = @_;\n my $self = bless { @attr }, $class;\n return $self;\n}\n\nsub as_string {\n my($self) = @_;\n $self->{qmod};\n}\n\n# r => requires, b => build_requires, c => commandline\nsub reqtype {\n my($self) = @_;\n $self->{reqtype};\n}\n\npackage CPAN::Queue;\n\n# One use of the queue is to determine if we should or shouldn\'t\n# announce the a"..., 4096) = 4096 24717 brk(0x1cbee000) = 0x1cbee000 24717 read(5, "f ($reqtype eq \"r\"\n &&\n $inherit_reqtype eq \"b\"\n ) {\n $reqtype = \"b\";\n }\n my $jumped = 0;\n for (my $i=0; $i<$#All;$i++) { #prevent deep recursion\n # CPAN->debug(\"i[$i]this[$All[$i]{qmod}]what[$what]\") if $CPAN::DEBUG;\n if ($All[$i]{qmod} eq $what) {\n $jumped++;\n if ($jumped >= 50) {\n die \"PANIC: object[$what] 50 instances on the queue, looks like \".\n "..., 4096) = 2261 24717 lseek(5, 6225, SEEK_SET) = 6225 24717 lseek(5, 0, SEEK_CUR) = 6225 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Tarzip.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/Tarzip.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Tarzip.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/Tarzip.pm", {st_dev=makedev(253, 0), st_ino=33916376, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=12167, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/05-15:51:41, st_ctime=2007/11/20-13:27:18}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN/Tarzip.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-\npackage CPAN::Tarzip;\nuse strict;\nuse vars qw($VERSION @ISA $BUGHUNTING);\nuse CPAN::Debug;\nuse File::Basename ();\n$VERSION = sprintf \"%.6f\", substr(q$Rev: 2213 $,4)/1000000 + 5.4;\n# module is internal to CPAN.pm\n\n@ISA = qw(CPAN::Debug);\n$BUGHUNTING ||= 0; # released code must have turned off\n\n# it\'s ok if file doesn\'t exist, it just matters if it is .gz or .bz2\nsub new {\n my($class,$file) = @_;\n $CPAN::Frontend->mydie(\"CPAN::Tarzi"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Basename.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Basename.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Basename.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Basename.pm", {st_dev=makedev(253, 0), st_ino=33915167, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=11261, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:28, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/File/Basename.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "=head1 NAME\n\nFile::Basename - Parse file paths into directory, filename and suffix.\n\n=head1 SYNOPSIS\n\n use File::Basename;\n\n ($name,$path,$suffix) = fileparse($fullname,@suffixlist);\n $name = fileparse($fullname,@suffixlist);\n\n $basename = basename($fullname,@suffixlist);\n $dirname = dirname($fullname);\n\n\n=head1 DESCRIPTION\n\nThese routines allow you to parse file paths into their directory, filename\nand suffix.\n\nB: C and C emulate the behaviours, and\n"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/re.pmc", 0x7fff9d817a20) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/re.pm", {st_dev=makedev(253, 0), st_ino=34112469, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=4018, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/re.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8176c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package re;\n\nour $VERSION = 0.05;\n\n=head1 NAME\n\nre - Perl pragma to alter regular expression behaviour\n\n=head1 SYNOPSIS\n\n use re \'taint\';\n ($x) = ($^X =~ /^(.*)$/s); # $x is tainted here\n\n $pat = \'(?{ $foo = 1 })\';\n use re \'eval\';\n /foo${pat}bar/;\t\t # won\'t fail (when not under -T switch)\n\n {\n\tno re \'taint\';\t\t # the default\n\t($x) = ($^X =~ /^(.*)$/s); # $x is not tainted here\n\n\tno re \'eval\';\t\t # the default\n\t/foo${pat}bar/;\t\t # disallowed (with or without -T switch)"..., 4096) = 4018 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 brk(0x1cc0f000) = 0x1cc0f000 24717 read(6, "[:>\\]])?(.*)/s);\n $dirpath ||= \'\'; # should always be defined\n }\n else { # Default to Unix semantics.\n ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);\n if ($orig_type eq \'VMS\' and $fullname =~ m:^(/[^/]+/000000(/|$))(.*):) {\n # dev:[000000] is top of VMS tree, similar to Unix \'/\'\n # so strip it off and treat the rest as \"normal\"\n my $devspec = $1;\n my $remainder = $3;\n ($dirpath,$basename) = ($remainder =~ m#^(.*/)?(.*)#s);\n $dirpath ||= \'\'; # s"..., 4096) = 4096 24717 read(6, ".\'. fileparse() would return \'foo/\'\n dirname(\"foo/\");\n\nUnder VMS, if there is no directory information in the $path, then the\ncurrent default device and directory is used.\n\n=cut\n\n\nsub dirname {\n my $path = shift;\n\n my($type) = $Fileparse_fstype;\n\n if( $type eq \'VMS\' and $path =~ m{/} ) {\n # Parse as Unix\n local($File::Basename::Fileparse_fstype) = \'\';\n return dirname($path);\n }\n\n my($basename, $dirname) = fileparse($path);\n\n if ($type eq \'VMS\') { \n "..., 4096) = 3069 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 read(5, "if $CPAN::DEBUG;\n }\n $gz->gzclose();\n CPAN->debug(\"err[$err]success[$success]\") if $CPAN::DEBUG;\n } else {\n my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});\n $success = 0==system(qq{$command -qdt \"$read\"});\n }\n return $self->{GTEST} = $success;\n}\n\n\nsub TIEHANDLE {\n my($class,$file) = @_;\n my $ret;\n $class->debug(\"file[$file]\");\n my $self = $class->new($file);\n if (0) {\n } elsif (!$self->gtest) {\n my $fh = FileH"..., 4096) = 4096 24717 brk(0x1cc30000) = 0x1cc30000 24717 read(5, ":Frontend->myprint(qq{Uncompressed $file successfully\\n});\n } else {\n $CPAN::Frontend->mydie(qq{Couldn\\\'t uncompress $file\\n});\n }\n $file = $ungzf;\n }\n $system = qq{$tarcommand x${tar_verb}f \"$file\"};\n $CPAN::Frontend->myprint(qq{Using Tar:$system:\\n});\n if (system($system)==0) {\n $CPAN::Frontend->myprint(qq{Untarred $file successfully\\n});\n } else {\n "..., 4096) = 3975 24717 lseek(5, 12035, SEEK_SET) = 12035 24717 lseek(5, 0, SEEK_CUR) = 12035 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/DeferedCode.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/CPAN/DeferedCode.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/DeferedCode.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/CPAN/DeferedCode.pm", {st_dev=makedev(253, 0), st_ino=33916373, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=188, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/05-15:51:41, st_ctime=2007/11/20-13:27:18}) = 0 24717 open("/usr/lib/perl5/5.8.8/CPAN/DeferedCode.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package CPAN::DeferedCode;\n\nuse strict;\nuse vars qw/$VERSION/;\n\nuse overload fallback => 1, map { ($_ => \'run\') } qw/\n bool \"\" 0+\n/;\n\n$VERSION = \"5.50\";\n\nsub run {\n $_[0]->();\n}\n\n1;\n", 4096) = 188 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/overload.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/overload.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/overload.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/overload.pm", {st_dev=makedev(253, 0), st_ino=33915426, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=104, st_size=46026, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/overload.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package overload;\n\nour $VERSION = \'1.04\';\n\n$overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH\n\nsub nil {}\n\nsub OVERLOAD {\n $package = shift;\n my %arg = @_;\n my ($sub, $fb);\n $ {$package . \"::OVERLOAD\"}{dummy}++; # Register with magic by touching.\n *{$package . \"::()\"} = \\&nil; # Make it findable via fetchmethod.\n for (keys %arg) {\n if ($_ eq \'fallback\') {\n $fb = $arg{$_};\n } else {\n $sub = $arg{$_};\n if (not ref $sub and $sub !~ /::/) {\n\t$ {$package . \"::(\" . $_} = $su"..., 4096) = 4096 24717 brk(0x1cc51000) = 0x1cc51000 24717 read(6, "_bits;\n }\n shift, shift;\n }\n}\n\nsub remove_constant {\n # Arguments: what, sub\n while (@_) {\n delete $^H{$_[0]};\n $^H &= ~ $constants{$_[0]};\n shift, shift;\n }\n}\n\n1;\n\n__END__\n\n=head1 NAME\n\noverload - Package for overloading Perl operations\n\n=head1 SYNOPSIS\n\n package SomeThing;\n\n use overload\n\t\'+\' => \\&myadd,\n\t\'-\' => \\&mysub;\n\t# etc\n ...\n\n package main;\n $a = new SomeThing 57;\n $b=5+$a;\n ...\n if (overload::Overloaded $b) {...}\n ...\n $strval = overloa"..., 4096) = 4096 24717 lseek(6, 4288, SEEK_SET) = 4288 24717 lseek(6, 0, SEEK_CUR) = 4288 24717 close(6) = 0 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Cwd.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Cwd.pm", {st_dev=makedev(253, 0), st_ino=34112333, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=18953, st_atime=2008/04/01-17:48:02, st_mtime=2007/12/24-20:32:35, st_ctime=2007/12/25-05:07:37}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Cwd.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package Cwd;\n\n=head1 NAME\n\nCwd - get pathname of current working directory\n\n=head1 SYNOPSIS\n\n use Cwd;\n my $dir = getcwd;\n\n use Cwd \'abs_path\';\n my $abs_path = abs_path($file);\n\n=head1 DESCRIPTION\n\nThis module provides functions for determining the pathname of the\ncurrent working directory. It is recommended that getcwd (or another\n*cwd() function) be used in I code to ensure portability.\n\nBy default, it exports the functions cwd(), getcwd(), fastcwd(), and\nfastgetcwd() (and, o"..., 4096) = 4096 24717 read(5, "s> for the\ndetails.\n\n=head1 SEE ALSO\n\nL\n\n=cut\n\nuse strict;\nuse Exporter;\nuse vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);\n\n$VERSION = \'3.2501\';\n\n@ISA = qw/ Exporter /;\n@EXPORT = qw(cwd getcwd fastcwd fastgetcwd);\npush @EXPORT, qw(getdcwd) if $^O eq \'MSWin32\';\n@EXPORT_OK = qw(chdir abs_path fast_abs_path realpath fast_realpath);\n\n# sys_cwd may keep the builtin command\n\n# All the functionality of this module may provided by builtins,\n# there is no sense to process the rest of the file.\n"..., 4096) = 4096 24717 brk(0x1cc72000) = 0x1cc72000 24717 read(5, "($METHOD_MAP{$^O}{cwd} or defined &cwd) {\n # The pwd command is not available in some chroot(2)\'ed environments\n my $sep = $Config::Config{path_sep} || \':\';\n my $os = $^O; # Protect $^O from tainting\n\n\n # Try again to find a pwd, this time searching the whole PATH.\n if (defined $ENV{PATH} and $os ne \'MSWin32\') { # no pwd on Windows\n\tmy @candidates = split($sep, $ENV{PATH});\n\twhile (!$found_pwd_cmd and @candidates) {\n\t my $candidate = shift @candidates;\n\t $found_pwd_cmd = 1"..., 4096) = 4096 24717 read(5, " (ref $newdir eq \'GLOB\') { # in case a file/dir handle is passed in\n\t$ENV{\'PWD\'} = cwd();\n } elsif ($newdir =~ m#^/#s) {\n\t$ENV{\'PWD\'} = $newdir;\n } else {\n\tmy @curdir = split(m#/#,$ENV{\'PWD\'});\n\t@curdir = (\'\') unless @curdir;\n\tmy $component;\n\tforeach $component (split(m#/#, $newdir)) {\n\t next if $component eq \'.\';\n\t pop(@curdir),next if $component eq \'..\';\n\t push(@curdir,$component);\n\t}\n\t$ENV{\'PWD\'} = join(\'/\',@curdir) || \'/\';\n }\n 1;\n}\n\n\nsub _perl_abs_path\n{\n my $start = "..., 4096) = 4096 24717 brk(0x1cc93000) = 0x1cc93000 24717 read(5, " seen by Perl. This may not be the same as the default device\n# and directory seen by DCL after Perl exits, since the effects\n# the CRTL chdir() function persist only until Perl exits.\n\nsub _vms_cwd {\n return $ENV{\'DEFAULT\'};\n}\n\nsub _vms_abs_path {\n return $ENV{\'DEFAULT\'} unless @_;\n my $path = shift;\n\n if (-l $path) {\n my $link_target = readlink($path);\n die \"Can\'t resolve link $path: $!\" unless defined $link_target;\n\t \n return _vms_abs_path($link_targe"..., 4096) = 2569 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Cwd/Cwd.so", {st_dev=makedev(253, 0), st_ino=34277945, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12306, st_atime=2008/04/01-17:48:02, st_mtime=2007/12/25-05:07:36, st_ctime=2007/12/25-05:07:37}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Cwd/Cwd.bs", {st_dev=makedev(253, 0), st_ino=34275876, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/12/25-05:07:37, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Cwd/Cwd.so", O_RDONLY) = 5 24717 read(5, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240\r\0\0\0\0\0\0@\0\0\0\0\0\0\0\260\35\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\33\0\30\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\354\30\0\0\0\0\0\0\354\30\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\360\30\0\0\0\0\0\0\360\30 \0\0\0\0\0\360\30 \0\0\0\0\0\370\2\0\0\0\0\0\0\10\3\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0 \31\0\0\0\0\0\0 \31 \0\0\0\0\0 \31 \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\10\30\0\0\0\0\0\0\10\30\0\0\0\0\0\0\10\30\0\0\0\0\0\0,\0\0\0\0\0\0\0,\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0$\0\0\0\1\0\0\0\6\0\0\0\210\300`\1\0\304H\v$\0\0\0&\0\0\0)\0\0\0\272\343\222|CE\325\354\330qX\34*\256\315\30\271\215\361\16\352\323\357\16\326\34\274X\330{+\334o\316\326\17\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\3\0\10\0\360\v\0\0\0\0\0\0\0\0\0\0\0\0\0\0\177\1\0\0\20\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0G\1\0\0\22\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(5, {st_dev=makedev(253, 0), st_ino=34277945, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12306, st_atime=2008/04/01-17:48:14, st_mtime=2007/12/25-05:07:36, st_ctime=2007/12/25-05:07:37}) = 0 24717 mmap(NULL, 2104312, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 5, 0) = 0x2aaaae8d6000 24717 mprotect(0x2aaaae8d8000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaaead7000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 5, 0x1000) = 0x2aaaaead7000 24717 close(5) = 0 24717 stat("/bin/pwd", {st_dev=makedev(253, 0), st_ino=21921862, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=56, st_size=24960, st_atime=2008/04/01-17:48:02, st_mtime=2007/03/21-16:19:18, st_ctime=2007/12/04-04:04:34}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/DirHandle.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/DirHandle.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/DirHandle.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/DirHandle.pm", {st_dev=makedev(253, 0), st_ino=33915085, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=1758, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/DirHandle.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package DirHandle;\n\nour $VERSION = \'1.00\';\n\n=head1 NAME \n\nDirHandle - supply object methods for directory handles\n\n=head1 SYNOPSIS\n\n use DirHandle;\n $d = new DirHandle \".\";\n if (defined $d) {\n while (defined($_ = $d->read)) { something($_); }\n $d->rewind;\n while (defined($_ = $d->read)) { something_else($_); }\n undef $d;\n }\n\n=head1 DESCRIPTION\n\nThe C method provide an alternative interface to the\nopendir(), closedir(), readdir(), and rewinddir()"..., 4096) = 1758 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MakeMaker.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MakeMaker.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker.pm", {st_dev=makedev(253, 0), st_ino=33915149, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=176, st_size=82444, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:55, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# $Id: /local/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm 54639 2008-02-29T00:06:55.056100Z schwern $\npackage ExtUtils::MakeMaker;\n\nuse strict;\n\nBEGIN {require 5.006;}\n\nrequire Exporter;\nuse ExtUtils::MakeMaker::Config;\nuse Carp ();\nuse File::Path;\n\nour $Verbose = 0; # exported\nour @Parent; # needs to be localized\nour @Get_from_Config; # referenced by MM_Unix\nmy @MM_Sections;\nmy @Overridable;\nmy @Prepend_parent;\nmy %Recognized_Att_Keys;\n\nour $VERSION = \'6.44\';\nour ($Revision"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MakeMaker/Config.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MakeMaker/Config.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker/Config.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker/Config.pm", {st_dev=makedev(253, 0), st_ino=33915150, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=567, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MakeMaker/Config.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package ExtUtils::MakeMaker::Config;\n\nuse strict;\n\nour $VERSION = \'6.44\';\n\nuse Config ();\n\n# Give us an overridable config.\nour %Config = %Config::Config;\n\nsub import {\n my $caller = caller;\n\n no strict \'refs\'; ## no critic\n *{$caller.\'::Config\'} = \\%Config;\n}\n\n1;\n\n\n=head1 NAME\n\nExtUtils::MakeMaker::Config - Wrapper around Config.pm\n\n\n=head1 SYNOPSIS\n\n use ExtUtils::MakeMaker::Config;\n print $Config{installbin}; # or whatever\n\n\n=head1 DESCRIPTION\n\nB\n\nA very t"..., 4096) = 567 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Config_heavy.pl", {st_dev=makedev(253, 0), st_ino=34112464, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=64, st_size=29803, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Config_heavy.pl", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8178f0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "# This file was created by configpm when Perl was built. Any changes\n# made to this file will be lost the next time perl is built.\n\npackage Config;\nuse strict;\n# use warnings; Pulls in Carp\n# use vars pulls in Carp\n##\n## This file was produced by running the Configure script. It holds all the\n## definitions figured out by Configure. Should you modify one of these values,\n## do not forget to propagate your changes by running \"Configure -der\". You may\n## instead choose to run each of the .SH files"..., 4096) = 4096 24717 read(6, "flags=-L/usr/lib64 -L/lib64 -lm\'\nconfig_argc=\'4\'\nconfig_args=\'-des -Dprefix=/usr -Acflags=-fPID -DPIC -m64 -Aldflags=-L/usr/lib64 -L/lib64 -lm\'\ncontains=\'grep\'\ncp=\'cp\'\ncpio=\'\'\ncpp=\'cpp\'\ncpp_stuff=\'42\'\ncppccsymbols=\'\'\ncppflags=\'-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm\'\ncpplast=\'-\'\ncppminus=\'-\'\ncpprun=\'cc -E\'\ncppstdin=\'cc -E\'\ncppsymbols=\'__ELF__=1 _FILE_OFFSET_BITS=64 __GLIBC__=2 __GLIBC_MINOR__=5 __GNUC__=4 __GNUC_MINOR__=1 __GNU_LIBRARY__="..., 4096) = 4096 24717 read(6, "undef\'\nd_getpwnam_r=\'undef\'\nd_getpwuid_r=\'undef\'\nd_getsbyname=\'define\'\nd_getsbyport=\'define\'\nd_getsent=\'define\'\nd_getservbyname_r=\'undef\'\nd_getservbyport_r=\'undef\'\nd_getservent_r=\'undef\'\nd_getservprotos=\'define\'\nd_getspnam=\'define\'\nd_getspnam_r=\'undef\'\nd_gettimeod=\'define\'\nd_gmtime_r=\'undef\'\nd_gnulibc=\'define\'\nd_grpasswd=\'define\'\nd_hasmntopt=\'define\'\nd_htonl=\'define\'\nd_ilogbl=\'define\'\nd_index=\'undef\'\nd_inetaton=\'define\'\nd_int64_t=\'define\'\nd_isascii=\'define\'\nd_isfinite=\'undef\'\nd_isinf=\'define\'\nd_"..., 4096) = 4096 24717 read(6, "r_r=\'undef\'\nd_strftime=\'define\'\nd_strlcat=\'undef\'\nd_strlcpy=\'undef\'\nd_strtod=\'define\'\nd_strtol=\'define\'\nd_strtold=\'define\'\nd_strtoll=\'define\'\nd_strtoq=\'define\'\nd_strtoul=\'define\'\nd_strtoull=\'define\'\nd_strtouq=\'define\'\nd_strxfrm=\'define\'\nd_suidsafe=\'undef\'\nd_symlink=\'define\'\nd_syscall=\'define\'\nd_syscallproto=\'define\'\nd_sysconf=\'define\'\nd_sysernlst=\'\'\nd_syserrlst=\'define\'\nd_system=\'define\'\nd_tcgetpgrp=\'define\'\nd_tcsetpgrp=\'define\'\nd_telldir=\'define\'\nd_telldirproto=\'define\'\nd_time=\'define\'\nd_times="..., 4096) = 4096 24717 read(6, "mntent=\'define\'\ni_ndbm=\'define\'\ni_netdb=\'define\'\ni_neterrno=\'undef\'\ni_netinettcp=\'define\'\ni_niin=\'define\'\ni_poll=\'define\'\ni_prot=\'undef\'\ni_pthread=\'define\'\ni_pwd=\'define\'\ni_rpcsvcdbm=\'undef\'\ni_sfio=\'undef\'\ni_sgtty=\'undef\'\ni_shadow=\'define\'\ni_socks=\'undef\'\ni_stdarg=\'define\'\ni_stddef=\'define\'\ni_stdlib=\'define\'\ni_string=\'define\'\ni_sunmath=\'undef\'\ni_sysaccess=\'undef\'\ni_sysdir=\'define\'\ni_sysfile=\'define\'\ni_sysfilio=\'undef\'\ni_sysin=\'undef\'\ni_sysioctl=\'define\'\ni_syslog=\'define\'\ni_sysmman=\'define\'\ni_sys"..., 4096) = 4096 24717 read(6, "\nmyhostname=\'cpgs\'\nmyuname=\'linux cpgs.cpanel.net 2.6.18-8.el5 #1 smp thu mar 15 19:46:53 edt 2007 x86_64 x86_64 x86_64 gnulinux \'\nn=\'-n\'\nneed_va_copy=\'define\'\nnetdb_hlen_type=\'size_t\'\nnetdb_host_type=\'char *\'\nnetdb_name_type=\'const char *\'\nnetdb_net_type=\'in_addr_t\'\nnm=\'nm\'\nnm_opt=\'\'\nnm_so_opt=\'--dynamic\'\nnonxs_ext=\'Errno\'\nnroff=\'nroff\'\nnvEUformat=\'\"E\"\'\nnvFUformat=\'\"F\"\'\nnvGUformat=\'\"G\"\'\nnv_preserves_uv_bits=\'53\'\nnveformat=\'\"e\"\'\nnvfformat=\'\"f\"\'\nnvgformat=\'\"g\"\'\nnvsize=\'8\'\nnvtype=\'double\'\no_nonblo"..., 4096) = 4096 24717 read(6, "l=\'\'\nso=\'so\'\nsockethdr=\'\'\nsocketlib=\'\'\nsocksizetype=\'socklen_t\'\nsort=\'sort\'\nspackage=\'Perl5\'\nspitshell=\'cat\'\nsrand48_r_proto=\'0\'\nsrandom_r_proto=\'0\'\nsrc=\'.\'\nssizetype=\'ssize_t\'\nstartperl=\'#!/usr/bin/perl\'\nstartsh=\'#!/bin/sh\'\nstatic_ext=\' \'\nstdchar=\'char\'\nstdio_base=\'((fp)->_IO_read_base)\'\nstdio_bufsiz=\'((fp)->_IO_read_end - (fp)->_IO_read_base)\'\nstdio_cnt=\'((fp)->_IO_read_end - (fp)->_IO_read_ptr)\'\nstdio_filbuf=\'\'\nstdio_ptr=\'((fp)->_IO_read_ptr)\'\nstdio_stream_array=\'\'\nstrerror_r_proto=\'0\'\nstring"..., 4096) = 4096 24717 brk(0x1ccb4000) = 0x1ccb4000 24717 read(6, " $Config_SH_expanded, 1, $config_sh_len;\n}\n\nsub config_re {\n my $re = shift;\n return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,\n $Config_SH_expanded;\n}\n\nsub config_vars {\n # implements -V:cfgvar option (see perlrun -V:)\n foreach (@_) {\n\t# find optional leading, trailing colons; and query-spec\n\tmy ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/;\t# flags fore and aft, \n\t# map colon-flags to print decorations\n\tmy $prfx = $notag ? \'\': \"$qry=\";\t\t# tag-prefix for print\n\tmy $lnend"..., 4096) = 1131 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 brk(0x1ccda000) = 0x1ccda000 24717 brk(0x1ccfb000) = 0x1ccfb000 24717 brk(0x1cd1d000) = 0x1cd1d000 24717 brk(0x1cd3e000) = 0x1cd3e000 24717 brk(0x1cd5f000) = 0x1cd5f000 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Path.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Path.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Path.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Path.pm", {st_dev=makedev(253, 0), st_ino=33915173, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=7834, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:28, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/File/Path.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package File::Path;\n\n=head1 NAME\n\nFile::Path - create or remove directory trees\n\n=head1 SYNOPSIS\n\n use File::Path;\n\n mkpath([\'/foo/bar/baz\', \'blurfl/quux\'], 1, 0711);\n rmtree([\'foo/bar/baz\', \'blurfl/quux\'], 1, 1);\n\n=head1 DESCRIPTION\n\nThe C function provides a convenient way to create directories, even\nif your C kernel call won\'t create more than one level of directory at\na time. C takes three arguments:\n\n=over 4\n\n=item *\n\nthe name of the path to create, or a ref"..., 4096) = 4096 24717 read(6, "paths;\n my(@created,$path);\n foreach $path (@$paths) {\n\t$path .= \'/\' if $^O eq \'os2\' and $path =~ /^\\w:\\z/s; # feature of CRT \n\t# Logic wants Unix paths, so go with the flow.\n\tif ($Is_VMS) {\n\t next if $path eq \'/\';\n\t $path = VMS::Filespec::unixify($path);\n\t if ($path =~ m:^(/[^/]+)/?\\z:) {\n\t $path = $1.\'/000000\';\n\t }\n\t}\n\tnext if -d $path;\n\tmy $parent = File::Basename::dirname($path);\n\tunless (-d $parent or $path eq $parent) {\n\t push(@created,mkpath($parent, $verbose, "..., 4096) = 3738 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 read(5, " print \"$mess $dispdef\";\n\n my $ans;\n if ($ENV{PERL_MM_USE_DEFAULT} || (!$isa_tty && eof STDIN)) {\n print \"$def\\n\";\n }\n else {\n $ans = ;\n if( defined $ans ) {\n chomp $ans;\n }\n else { # user hit ctrl-D\n print \"\\n\";\n }\n }\n\n return (!defined $ans || $ans eq \'\') ? $def : $ans;\n}\n\nsub eval_in_subdirs {\n my($self) = @_;\n use Cwd qw(cwd abs_path);\n my $pwd = cwd() || die \"Can\'t figure out your cwd!\";\n\n "..., 4096) = 4096 24717 read(5, "rridable, qw[\n\n libscan makeaperl needs_linking perm_rw perm_rwx\n subdir_x test_via_harness test_via_script \n\n init_VERSION init_dist init_INST init_INSTALL init_DEST init_dirscan\n init_PM init_MANPODS init_xs init_PERL init_DIRFILESEP init_linker\n ];\n\n push @MM_Sections, qw[\n\n pm_to_blib selfdocument\n\n ];\n\n # Postamble needs to be the last that was always the case\n push @MM_Sections, \"postamble\";\n push @Overridable, \"postamble\";\n\n #"..., 4096) = 4096 24717 brk(0x1cd80000) = 0x1cd80000 24717 read(5, " $prereq, $self->{PREREQ_PM}{$prereq}, \n ($pr_version || \'unknown version\') \n unless $self->{PREREQ_FATAL};\n $unsatisfied{$prereq} = $self->{PREREQ_PM}->{$prereq} ? \n $self->{PREREQ_PM}->{$prereq} : \'unknown version\' ;\n }\n }\n \n if (%unsatisfied && $self->{PREREQ_FATAL}){\n my $failedprereqs = join \"\\n\", map {\" $_ $unsatisfied{$_}\"} \n sort { $a cmp $b } keys %unsatisfied;\n di"..., 4096) = 4096 24717 read(5, "s_VMS;\n if ($pthinks ne $cthinks &&\n !($Is_Win32 and lc($pthinks) eq lc($cthinks))) {\n print \"Have $pthinks expected $cthinks\\n\";\n if ($Is_Win32) {\n $pthinks =~ s![/\\\\]Config\\.pm$!!i; $pthinks =~ s!.*[/\\\\]!!;\n }\n else {\n $pthinks =~ s!/Config\\.pm$!!; $pthinks =~ s!.*/!!;\n }\n print STDOUT <{UNINSTALLED_PERL};\nYour perl and your Config.pm seem to have different ideas"..., 4096) = 4096 24717 brk(0x1cda1000) = 0x1cda1000 24717 read(5, "write: $!\";\n print $mfh <<\'EOP\';\nall :\n\nclean :\n\ninstall :\n\nmakemakerdflt :\n\ntest :\n\nEOP\n close $mfh or die \"close $new for write: $!\";\n}\n\nsub check_manifest {\n print STDOUT \"Checking if your kit is complete...\\n\";\n require ExtUtils::Manifest;\n # avoid warning\n $ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1;\n my(@missed) = ExtUtils::Manifest::manicheck();\n if (@missed) {\n print STDOUT \"Warning: the following files are missing in your kit:\\n\";\n p"..., 4096) = 4096 24717 read(5, "last unless $hint =~ s/_[^_]*$//; # nothing to cut off\n }\n my $hint_file = File::Spec->catfile($hint_dir, \"$hint.pl\");\n\n return unless -f $hint_file; # really there\n\n _run_hintfile($self, $hint_file);\n}\n\nsub _run_hintfile {\n our $self;\n local($self) = shift; # make $self available to the hint file.\n my($hint_file) = shift;\n\n local($@, $!);\n print STDERR \"Processing hints file $hint_file\\n\";\n\n # Just in case the ./ isn\'t on the hint file, which File::Spec ca"..., 4096) = 4096 24717 read(5, "Writing $finalname for $self->{NAME}\\n\";\n\n unlink($finalname, \"MakeMaker.tmp\", $Is_VMS ? \'Descrip.MMS\' : ());\n open(my $fh,\">\", \"MakeMaker.tmp\")\n or die \"Unable to open MakeMaker.tmp: $!\";\n\n for my $chunk (@{$self->{RESULT}}) {\n print $fh \"$chunk\\n\";\n }\n\n close $fh;\n _rename(\"MakeMaker.tmp\", $finalname) or\n warn \"rename MakeMaker.tmp => $finalname: $!\";\n chmod 0644, $finalname unless $Is_VMS;\n\n my %keep = map { ($_ => 1) } qw(NEEDS_LINKING HAS_LINK_CODE"..., 4096) = 4096 24717 brk(0x1cdc2000) = 0x1cdc2000 24717 lseek(5, 31578, SEEK_SET) = 31578 24717 lseek(5, 0, SEEK_CUR) = 31578 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM.pm", {st_dev=makedev(253, 0), st_ino=33915131, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2055, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MM.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::MM;\n\nuse strict;\nuse ExtUtils::MakeMaker::Config;\n\nour $VERSION = \'6.44\';\n\nrequire ExtUtils::Liblist;\nrequire ExtUtils::MakeMaker;\nour @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);\n\n=head1 NAME\n\nExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass\n\n=head1 SYNOPSIS\n\n require ExtUtils::MM;\n my $mm = MM->new(...);\n\n=head1 DESCRIPTION\n\nB\n\nExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically\nchooses the appropriate OS specific subclas"..., 4096) = 2055 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/Liblist.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/Liblist.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/Liblist.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/Liblist.pm", {st_dev=makedev(253, 0), st_ino=33915128, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9459, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/Liblist.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::Liblist;\n\nuse strict;\n\nour $VERSION = \'6.44\';\n\nuse File::Spec;\nrequire ExtUtils::Liblist::Kid;\nour @ISA = qw(ExtUtils::Liblist::Kid File::Spec);\n\n# Backwards compatibility with old interface.\nsub ext {\n goto &ExtUtils::Liblist::Kid::ext;\n}\n\nsub lsdir {\n shift;\n my $rex = qr/$_[1]/;\n opendir DIR, $_[0];\n my @out = grep /$rex/, readdir DIR;\n closedir DIR;\n return @out;\n}\n\n__END__\n\n=head1 NAME\n\nExtUtils::Liblist - determine libraries to use and how to use them\n\n=head1 SYN"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec.pm", {st_dev=makedev(253, 0), st_ino=34276223, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=10399, st_atime=2008/04/01-17:48:02, st_mtime=2007/12/24-20:32:35, st_ctime=2007/12/25-05:07:37}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package File::Spec;\n\nuse strict;\nuse vars qw(@ISA $VERSION);\n\n$VERSION = \'3.2501\';\n$VERSION = eval $VERSION;\n\nmy %module = (MacOS => \'Mac\',\n\t MSWin32 => \'Win32\',\n\t os2 => \'OS2\',\n\t VMS => \'VMS\',\n\t epoc => \'Epoc\',\n\t NetWare => \'Win32\', # Yes, File::Spec::Win32 works on NetWare.\n\t symbian => \'Win32\', # Yes, File::Spec::Win32 works on symbian.\n\t dos => \'OS2\', # Yes, File::Spec::OS2 works on DJGPP.\n\t cygwin => \'Cygwin\');\n\n\nmy $module = $modu"..., 4096) = 4096 24717 lseek(6, 597, SEEK_SET) = 597 24717 lseek(6, 0, SEEK_CUR) = 597 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec/Unix.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec/Unix.pm", {st_dev=makedev(253, 0), st_ino=34276231, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=13774, st_atime=2008/04/01-17:48:02, st_mtime=2007/12/24-20:32:35, st_ctime=2007/12/25-05:07:37}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/File/Spec/Unix.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 brk(0x1cde3000) = 0x1cde3000 24717 read(6, "package File::Spec::Unix;\n\nuse strict;\nuse vars qw($VERSION);\n\n$VERSION = \'3.2501\';\n\n=head1 NAME\n\nFile::Spec::Unix - File::Spec for Unix, base for other File::Spec modules\n\n=head1 SYNOPSIS\n\n require File::Spec::Unix; # Done automatically by File::Spec\n\n=head1 DESCRIPTION\n\nMethods for manipulating file specifications. Other File::Spec\nmodules, such as File::Spec::Mac, inherit from File::Spec::Unix and\noverride specific methods.\n\n=head1 METHODS\n\n=over 2\n\n=item canonpath()\n\nNo physical check on th"..., 4096) = 4096 24717 read(6, "\n\t$tmpdir = $_;\n\tlast;\n }\n $tmpdir = $self->curdir unless defined $tmpdir;\n $tmpdir = defined $tmpdir && $self->canonpath($tmpdir);\n return $tmpdir;\n}\n\nsub tmpdir {\n return $tmpdir if defined $tmpdir;\n $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, \"/tmp\" );\n}\n\n=item updir\n\nReturns a string representation of the parent directory. \"..\" on UNIX.\n\n=cut\n\nsub updir () { \'..\' }\n\n=item no_upwards\n\nGiven a list of file names, strip out those that refer to a parent\ndirectory. (Does not strip "..., 4096) = 4096 24717 read(6, "path = File::Spec->abs2rel( $path, $base ) ;\n\nIf $base is not present or \'\', then L is used. If $base is\nrelative, then it is converted to absolute form using\nL. This means that it is taken to be relative to\nL.\n\nOn systems that have a grammar that indicates filenames, this ignores the \n$base filename. Otherwise all path components are assumed to be\ndirectories.\n\nIf $path is relative, it is converted to absolute form using L.\nThis means that it is tak"..., 4096) = 4096 24717 read(6, "5 Porters. All rights reserved.\n\nThis program is free software; you can redistribute it and/or modify\nit under the same terms as Perl itself.\n\n=head1 SEE ALSO\n\nL\n\n=cut\n\n# Internal routine to File::Spec, no point in making this public since\n# it is the standard Cwd interface. Most of the platform-specific\n# File::Spec subclasses use this.\nsub _cwd {\n require Cwd;\n Cwd::getcwd();\n}\n\n\n# Internal method to reduce xx\\..\\yy -> yy\nsub _collapse {\n my($fs, $path) = @_;\n\n my $up"..., 4096) = 1486 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 lseek(5, 408, SEEK_SET) = 408 24717 lseek(5, 0, SEEK_CUR) = 408 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/Liblist/Kid.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/Liblist/Kid.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/Liblist/Kid.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/Liblist/Kid.pm", {st_dev=makedev(253, 0), st_ino=33915129, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=18851, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/Liblist/Kid.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::Liblist::Kid;\n\n# XXX Splitting this out into its own .pm is a temporary solution.\n\n# This kid package is to be used by MakeMaker. It will not work if\n# $self is not a Makemaker.\n\nuse 5.006;\n# Broken out of MakeMaker from version 4.11\n\nuse strict;\nour $VERSION = 6.44;\n\nuse Config;\nuse Cwd \'cwd\';\nuse File::Basename;\nuse File::Spec;\n\nsub ext {\n if ($^O eq \'VMS\') { return &_vms_ext; }\n elsif($^O eq \'MSWin32\') { return &_win32_ext; }\n else { retu"..., 4096) = 4096 24717 brk(0x1ce04000) = 0x1ce04000 24717 read(5, "liberately backwards\n\t\t\t$mb cmp $ma;} @fullname)[0];\n\t } elsif (-f ($fullname=\"$thispth/lib$thislib.$so\")\n\t\t && (($Config{\'dlsrc\'} ne \"dl_dld.xs\") || ($thislib eq \"m\"))){\n\t } elsif (-f ($fullname=\"$thispth/lib${thislib}_s$Config_libext\")\n && (! $Config{\'archname\'} =~ /RM\\d\\d\\d-svr4/)\n\t\t && ($thislib .= \"_s\") ){ # we must explicitly use _s version\n\t } elsif (-f ($fullname=\"$thispth/lib$thislib$Config_libext\")){\n\t } elsif (-f ($fullname=\"$thispth/$thislib$Config_libext\""..., 4096) = 4096 24717 read(5, ";\n my(@libs, %libs_seen);\n\n if ($libs and $potential_libs !~ /:nodefault/i) { \n\t# If Config.pm defines a set of default libs, we always\n\t# tack them on to the user-supplied list, unless the user\n\t# specified :nodefault\n\n\t$potential_libs .= \" \" if $potential_libs;\n\t$potential_libs .= $libs;\n }\n warn \"Potential libraries are \'$potential_libs\':\\n\" if $verbose;\n\n # normalize to forward slashes\n $libpth =~ s,\\\\,/,g;\n $potential_libs =~ s,\\\\,/,g;\n\n # compute $extralibs from $po"..., 4096) = 4096 24717 brk(0x1ce25000) = 0x1ce25000 24717 read(5, "hat if we\'re building in the Perl source tree, and\n # a library spec could be resolved via a logical name, we go to some trouble\n # to insure that the copy in the local tree is used, rather than one to\n # which a system-wide logical may point.\n if ($self->{PERL_SRC}) {\n my($locspec,$type);\n foreach my $lib (@crtls) { \n if (($locspec,$type) = $lib =~ m{^([\\w\\$-]+)(/\\w+)?} and $locspec =~ /perl/i) {\n if (lc $type eq \'/share\') { $locspec .= $Config{\'exe_ext\'}; }\n e"..., 4096) = 4096 24717 read(5, "lain object file $fullname found in library list\\n\";\n $type = \'OBJ\';\n }\n else {\n warn \"Note (probably harmless): \"\n .\"Unknown library type for $fullname; assuming shared\\n\";\n $type = \'SHR\';\n }\n }\n elsif (-f ($fullname = VMS::Filespec::rmsexpand($name,$so)) or\n -f ($fullname = VMS::Filespec::rmsexpand($name,\'.exe\'))) {\n $type = \'SHR\';\n $name = $fullname unless $fullnam"..., 4096) = 2467 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM_Unix.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM_Unix.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM_Unix.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM_Unix.pm", {st_dev=makedev(253, 0), st_ino=33915142, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=200, st_size=97920, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MM_Unix.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::MM_Unix;\n\nrequire 5.006;\n\nuse strict;\n\nuse Carp;\nuse ExtUtils::MakeMaker::Config;\nuse File::Basename qw(basename dirname);\nuse DirHandle;\n\nour %Config_Override;\n\nuse ExtUtils::MakeMaker qw($Verbose neatvalue);\n\n# If we make $VERSION an our variable parse_version() breaks\nuse vars qw($VERSION);\n$VERSION = \'6.44\';\n\nrequire ExtUtils::MM_Any;\nour @ISA = qw(ExtUtils::MM_Any);\n\nmy %Is;\nBEGIN { \n $Is{OS2} = $^O eq \'os2\';\n $Is{Win32} = $^O eq \'MSWin32\' || $Config{osname} eq"..., 4096) = 4096 24717 brk(0x1ce46000) = 0x1ce46000 24717 read(5, "n \"\", @m;\n}\n\n=item cflags (o)\n\nDoes very much the same as the cflags script in the perl\ndistribution. It doesn\'t return the whole compiler command line, but\ninitializes all of its parts. The const_cccmd method then actually\nreturns the definition of the CCCMD macro which uses these parts.\n\n=cut\n\n#\'\n\nsub cflags {\n my($self,$libperl)=@_;\n return $self->{CFLAGS} if $self->{CFLAGS};\n return \'\' unless $self->needs_linking();\n\n my($prog, $uc, $perltype, %cflags);\n $libperl ||= $self->{L"..., 4096) = 4096 24717 read(5, "er libraries:\n# See ExtUtils::Liblist for details\n#\n};\n for my $tmp (qw/\n EXTRALIBS LDLOADLIBS BSLOADLIBS\n /) {\n next unless defined $self->{$tmp};\n push @m, \"$tmp = $self->{$tmp}\\n\";\n }\n # don\'t set LD_RUN_PATH if empty\n for my $tmp (qw/\n LD_RUN_PATH\n /) {\n next unless $self->{$tmp};\n push @m, \"$tmp = $self->{$tmp}\\n\";\n }\n return join \"\", @m;\n}\n\n=item constants (o)\n\n my $make_frag = $mm->constants;\n\nPrints out macros"..., 4096) = 4096 24717 read(5, ": $val\\n\";\n }\n join \"\", @m;\n}\n\n\n=item init_DEST\n\n $mm->init_DEST\n\nDefines the DESTDIR and DEST* variables paralleling the INSTALL*.\n\n=cut\n\nsub init_DEST {\n my $self = shift;\n\n # Initialize DESTDIR\n $self->{DESTDIR} ||= \'\';\n\n # Make DEST variables.\n foreach my $var ($self->installvars) {\n my $destvar = \'DESTINSTALL\'.$var;\n $self->{$destvar} ||= \'$(DESTDIR)$(INSTALL\'.$var.\')\';\n }\n}\n\n\n=item init_dist\n\n $mm->init_dist;\n\nDefines a lot of macros for distribution"..., 4096) = 4096 24717 brk(0x1ce67000) = 0x1ce67000 24717 read(5, " $MM->dist_core;\n\nPuts the targets necessary for \'make dist\' together into one make\nfragment.\n\n=cut\n\nsub dist_core {\n my($self) = shift;\n\n my $make_frag = \'\';\n foreach my $target (qw(dist tardist uutardist tarfile zipdist zipfile \n shdist))\n {\n my $method = $target.\'_target\';\n $make_frag .= \"\\n\";\n $make_frag .= $self->$method();\n }\n\n return $make_frag;\n}\n\n\n=item B\n\n my $make_frag = $MM->dist_target;\n\nReturns the \'dist"..., 4096) = 4096 24717 read(5, "p for $(NAME) ($(BSLOADLIBS))\"\n\t$(NOECHO) $(PERLRUN) \\\n\t\t\"-MExtUtils::Mkbootstrap\" \\\n\t\t-e \"Mkbootstrap(\'$(BASEEXT)\',\'$(BSLOADLIBS)\');\"\n\t$(NOECHO) $(TOUCH) %s\n\t$(CHMOD) $(PERM_RW) %s\n\n$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists\n\t$(NOECHO) $(RM_RF) %s\n\t- $(CP) $(BOOTSTRAP) %s\n\t$(CHMOD) $(PERM_RW) %s\nMAKE_FRAG\n}\n\n=item dynamic_lib (o)\n\nDefines how to produce the *.so (or equivalent) files.\n\n=cut\n\nsub dynamic_lib {\n my($self, %attribs) = @_;\n return \'\' unless $self->needs_li"..., 4096) = 4096 24717 read(5, "err_duped = 1;\n }\n else {\n warn <{PERL_SRC} may be undefined\n my ($abs, $val);\n if ($self->file_name_is_absolute($name)) { # /foo/bar\n $abs = $name;\n } elsif ($self->canonpath($name) eq \n "..., 4096) = 4096 24717 brk(0x1ce88000) = 0x1ce88000 24717 read(5, " if ($does_shbang) {\n $shb .= \"$Config{\'sharpbang\'}$interpreter\";\n $shb .= \' \' . $arg if defined $arg;\n $shb .= \"\\n\";\n }\n $shb .= qq{\neval \'exec $interpreter $arg -S \\$0 \\${1+\"\\$\\@\"}\'\n if 0; # not running under some shell\n} unless $Is{Win32}; # this won\'t work on win32, so don\'t\n }\n else {\n warn \"Can\'t find $cmd in PATH, $file unchanged\"\n if $Verbose;\n next;\n }\n\n "..., 4096) = 4096 24717 read(5, "$name} = 1\n\t\tunless $name =~ m/perlmain\\.c/; # See MAP_TARGET\n\t} elsif ($name =~ /\\.h\\z/i){\n\t $h{$name} = 1;\n\t} elsif ($name =~ /\\.PL\\z/) {\n\t ($pl_files{$name} = $name) =~ s/\\.PL\\z// ;\n\t} elsif (($Is{VMS} || $Is{Dos}) && $name =~ /[._]pl$/i) {\n\t # case-insensitive filesystem, one dot per name, so foo.h.PL\n\t # under Unix appears as foo.h_pl under VMS or fooh.pl on Dos\n\t local($/); open(my $pl, \'<\', $name); my $txt = <$pl>; close $pl;\n\t if ($txt =~ /Extracting \\S+ \\(with variable"..., 4096) = 4096 24717 brk(0x1cea9000) = 0x1cea9000 24717 read(5, "LIBDIRS defaults to [ \'lib\', $self->{BASEEXT} ]. We\n # recursively search through the named directories (skipping any\n # which don\'t exist or contain Makefile.PL files).\n\n # For each *.pm or *.pl file found $self->libscan() is called with\n # the default installation path in $_[1]. The return value of\n # libscan defines the actual installation location. The default\n # libscan function simply returns the path. The file is skipped\n # if libscan returns false.\n\n # The defa"..., 4096) = 4096 24717 read(5, " $modfname = &DynaLoader::mod2fname(\\@modparts);\n }\n\n ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!(?:([\\w:]+)::)?(\\w+)\\z! ;\n $self->{PARENT_NAME} ||= \'\';\n\n if (defined &DynaLoader::mod2fname) {\n\t# As of 5.001m, dl_os2 appends \'_\'\n\t$self->{DLBASE} = $modfname;\n } else {\n\t$self->{DLBASE} = \'$(BASEEXT)\';\n }\n\n\n # --- Initialize PERL_LIB, PERL_SRC\n\n # *Real* information: where did we get these two from? ...\n my $inc_config_dir = dirname($INC{\'Config."..., 4096) = 4096 24717 read(5, "t};\n\n # Get some stuff out of %Config if we haven\'t yet done so\n print STDOUT \"CONFIG must be an array ref\\n\"\n if ($self->{CONFIG} and ref $self->{CONFIG} ne \'ARRAY\');\n $self->{CONFIG} = [] unless (ref $self->{CONFIG});\n push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);\n push(@{$self->{CONFIG}}, \'shellflags\') if $Config{shellflags};\n my(%once_only);\n foreach my $m (@{$self->{CONFIG}}){\n next if $once_only{$m};\n print STDOUT \"CONFIG key \'$m"..., 4096) = 4096 24717 brk(0x1ceca000) = 0x1ceca000 24717 read(5, "\n $self->{SHELL} ||= $Config{sh} || \'/bin/sh\';\n\n $self->{ECHO} ||= \'echo\';\n $self->{ECHO_N} ||= \'echo -n\';\n $self->{RM_F} ||= \"rm -f\";\n $self->{RM_RF} ||= \"rm -rf\";\n $self->{TOUCH} ||= \"touch\";\n $self->{TEST_F} ||= \"test -f\";\n $self->{CP} ||= \"cp\";\n $self->{MV} ||= \"mv\";\n $self->{CHMOD} ||= \"chmod\";\n $self->{MKPATH} ||= \'$(ABSPERLRUN) \"-MExtUtils::Command\" -e mkpath\';\n $self->{EQUALIZE_TIMESTA"..., 4096) = 4096 24717 read(5, "when in the\n # core. Otherwise its a last resort.\n my $miniperl = \"miniperl$Config{exe_ext}\";\n if( $self->{PERL_CORE} ) {\n splice @perls, 1, 0, $miniperl;\n }\n else {\n push @perls, $miniperl;\n }\n\n $self->{PERL} ||=\n $self->find_perl(5.0, \\@perls, \\@defpath, $Verbose );\n # don\'t check if perl is executable, maybe they have decided to\n # supply switches with perl\n\n # When built for debugging, VMS doesn\'t create perl.exe but ndbgperl.exe.\n my $p"..., 4096) = 4096 24717 brk(0x1ceeb000) = 0x1ceeb000 24717 read(5, "(INSTALLDIRS)_install\n\t$(NOECHO) $(NOOP)\n\npure__install : pure_site_install\n\t$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site\n\ndoc__install : doc_site_install\n\t$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site\n\npure_perl_install ::\n\t$(NOECHO) $(MOD_INSTALL) \\\n\t\tread }.$self->catfile(\'$(PERL_ARCHLIB)\',\'auto\',\'$(FULLEXT)\',\'.packlist\').q{ \\\n\t\twrite }.$self->catfile(\'$(DESTINSTALLARCHLIB)\',\'auto\',\'$(FULLEXT)\',\'.packlist\').q{ \\\n\t\t$(INST_LIB) $(DESTINST"..., 4096) = 4096 24717 read(5, "2);\n\n $to = vmsify($to) if $Is{VMS};\n\t$fromto{$from} = $to;\n }\n my @to = values %fromto;\n\n my @m;\n push(@m, qq{\nEXE_FILES = @exefiles\n\npure_all :: @to\n\t\\$(NOECHO) \\$(NOOP)\n\nrealclean ::\n});\n\n # realclean can get rather large.\n push @m, map \"\\t$_\\n\", $self->split_command(\'$(RM_F)\', @to);\n push @m, \"\\n\";\n\n\n # A target for each exe file.\n while (my($from,$to) = each %fromto) {\n\tlast unless defined $from;\n\n\tpush @m, sprintf <<\'MAKE\', $to, $from, $to, $from, $to, $"..., 4096) = 4096 24717 read(5, "icitly marked for inclusion.\n\t\t# DynaLoader is implied.\n\t\tforeach my $incl ((@{$self->{INCLUDE_EXT}},\'DynaLoader\')){\n\t\t\tif( $xx eq $incl ){\n\t\t\t\t$found++;\n\t\t\t\tlast;\n\t\t\t}\n\t\t}\n\t\treturn unless $found;\n\t}\n\telsif( exists $self->{EXCLUDE_EXT} ){\n\t\t(my $xx = $File::Find::name) =~ s,.*?/auto/,,s;\n\t\t$xx =~ s,/?$_,,;\n\t\t$xx =~ s,/,::,g;\n\n\t\t# Throw away anything explicitly marked for exclusion\n\t\tforeach my $excl (@{$self->{EXCLUDE_EXT}}){\n\t\t\treturn if( $xx eq $excl );\n\t\t}\n\t}\n\n\t# don\'t include the installed v"..., 4096) = 4096 24717 brk(0x1cf0c000) = 0x1cf0c000 24717 read(5, "ush @m, \"\\t\", q{$(NOECHO) $(PERL) $(INSTALLSCRIPT)/fixpmain\n} if (defined (&Dos::UseLFN) && Dos::UseLFN()==0);\n\n\n push @m, q{\ndoc_inst_perl :\n\t$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod\n\t-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)\n\t-$(NOECHO) $(DOC_INSTALL) \\\n\t\t\"Perl binary\" \"$(MAP_TARGET)\" \\\n\t\tMAP_STATIC \"$(MAP_STATIC)\" \\\n\t\tMAP_EXTRA \"`cat $(INST_ARCHAUTODIR)/extralibs.all`\" \\\n\t\tMAP_LIBPERL \"$(MAP_LIBPERL)\" \\\n\t\t>> }.$self->catfile(\'$(DESTINSTALLARCHLI"..., 4096) = 4096 24717 read(5, "fh, \'<\', $parsefile) or die \"Could not open \'$parsefile\': $!\";\n my $inpod = 0;\n while (<$fh>) {\n $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;\n next if $inpod || /^\\s*#/;\n chop;\n next unless /(? or the string C<644>.\nUsed as the string that is passed\nto the C command to set the permissions for read/writeable files.\nMakeMaker chooses C<644> because it has turned out in the past that\nrelying on the umask provokes hard-to-track bug reports.\nWhen the return value is used by the perl function C, it is\ninterpreted as an octal value.\n\n=cut\n\nsub perm_rw {\n return shift->{PERM_RW};\n}\n\n=item perm_rwx (o)\n\nReturns the attribute C or the string C<755>,\ni.e."..., 4096) = 4096 24717 brk(0x1cf2d000) = 0x1cf2d000 24717 read(5, "a PPD (Perl Package Description) for a binary distribution.\nppd :\n\t%s\nPPD_OUT\n\n}\n\n=item prefixify\n\n $MM->prefixify($var, $prefix, $new_prefix, $default);\n\nUsing either $MM->{uc $var} || $Config{lc $var}, it will attempt to\nreplace it\'s $prefix with a $new_prefix. \n\nShould the $prefix fail to match I a PREFIX was given as an\nargument to WriteMakefile() it will set it to the $new_prefix +\n$default. This is for systems whose file layouts don\'t neatly fit into\nour ideas of prefixes.\n\nThis is"..., 4096) = 4096 24717 read(5, " # Strip leading and trailing newlines\n $cmd =~ s{^\\n+}{};\n $cmd =~ s{\\n+$}{};\n\n my @cmds = split /\\n/, $cmd;\n $cmd = join \" \\n\\t -e \", map $self->quote_literal($_), @cmds;\n $cmd = $self->escape_newlines($cmd);\n\n $switches = join \' \', @$switches;\n\n return qq{\\$(ABSPERLRUN) $switches -e $cmd --}; \n}\n\n\n=item quote_literal\n\n=cut\n\nsub quote_literal {\n my($self, $text) = @_;\n\n # I think all we have to quote is single quotes and I think\n # this is a safe way to do i"..., 4096) = 4096 24717 brk(0x1cf4e000) = 0x1cf4e000 24717 read(5, "ries.\n\n=cut\n\nsub subdirs {\n# --- Sub-directory Sections ---\n my($self) = shift;\n my(@m);\n # This method provides a mechanism to automatically deal with\n # subdirectories containing further Makefile.PL scripts.\n # It calls the subdir_x() method for each subdirectory.\n foreach my $dir (@{$self->{DIR}}){\n\tpush(@m, $self->subdir_x($dir));\n####\tprint \"Including $dir subdirectory\\n\";\n }\n if (@m){\n\tunshift(@m, \"\n# The default clean, realclean and test targets in this Makefile\n# "..., 4096) = 4096 24717 read(5, " tool_xsubpp {\n my($self) = shift;\n return \"\" unless $self->needs_linking;\n\n my $xsdir;\n my @xsubpp_dirs = @INC;\n\n # Make sure we pick up the new xsubpp if we\'re building perl.\n unshift @xsubpp_dirs, $self->{PERL_LIB} if $self->{PERL_CORE};\n\n foreach my $dir (@xsubpp_dirs) {\n $xsdir = $self->catdir($dir, \'ExtUtils\');\n if( -r $self->catfile($xsdir, \"xsubpp\") ) {\n last;\n }\n }\n\n my $tmdir = File::Spec->catdir($self->{PERL_LIB},\"ExtUtils\")"..., 4096) = 3712 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM_Any.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MM_Any.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM_Any.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MM_Any.pm", {st_dev=makedev(253, 0), st_ino=33915133, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=88, st_size=44097, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MM_Any.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::MM_Any;\n\nuse strict;\nour $VERSION = \'6.44\';\n\nuse Carp;\nuse File::Spec;\nBEGIN { our @ISA = qw(File::Spec); }\n\n# We need $Verbose\nuse ExtUtils::MakeMaker qw($Verbose);\n\nuse ExtUtils::MakeMaker::Config;\n\n\n# So we don\'t have to keep calling the methods over and over again,\n# we have these globals to cache the values. Faster and shrtr.\nmy $Curdir = __PACKAGE__->curdir;\nmy $Rootdir = __PACKAGE__->rootdir;\nmy $Updir = __PACKAGE__->updir;\n\n\n=head1 NAME\n\nExtUtils::MM_Any - Platform-"..., 4096) = 4096 24717 read(5, "$next_arg_str) > $len_left ) {\n unshift @args, @next_args;\n last;\n }\n else {\n $arg_str .= $next_arg_str;\n }\n }\n chop $arg_str;\n\n push @cmds, $self->escape_newlines(\"$cmd \\n$arg_str\");\n } while @args;\n\n return @cmds;\n}\n\n\nsub _expand_macros {\n my($self, $cmd) = @_;\n\n $cmd =~ s{\\$\\((\\w+)\\)}{\n defined $self->{$1} ? $self->{$1} : \"\\$($1)\"\n }e;\n return $cmd;\n}\n\n\n=head3 echo\n\n "..., 4096) = 4096 24717 brk(0x1cf6f000) = 0x1cf6f000 24717 read(5, " my $max_exec_len = $MM->max_exec_len;\n\nCalculates the maximum command size the OS can exec. Effectively,\nthis is the max size of a shell command line.\n\n=for _private\n$self->{_MAX_EXEC_LEN} is set by this method, but only for testing purposes.\n\n\n=head3 make\n\n my $make = $MM->make;\n\nReturns the make variant we\'re generating the Makefile for. This attempts\nto do some normalization on the information from %Config or the user.\n\n=cut\n\nsub make {\n my $self = shift;\n\n my $make = lc $self-"..., 4096) = 4096 24717 read(5, "= map { ($_ => 1) } @dirs; @dirs = keys %d; }\n\n push @m, map \"\\t$_\\n\", $self->split_command(\'- $(RM_F)\', @files);\n push @m, map \"\\t$_\\n\", $self->split_command(\'- $(RM_RF)\', @dirs);\n\n # Leave Makefile.old around for realclean\n push @m, <<\'MAKE\';\n\t- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)\nMAKE\n\n push(@m, \"\\t$attribs{POSTOP}\\n\") if $attribs{POSTOP};\n\n join(\"\", @m);\n}\n\n\n=head3 clean_subdirs_target\n\n my $make_frag = $MM->clean_subdirs_target;\n\nReturns the clean_sub"..., 4096) = 4096 24717 read(5, " = \'\';\n\n # populate manXpods & dependencies:\n foreach my $name (keys %{$self->{MAN1PODS}}, keys %{$self->{MAN3PODS}}) {\n $dependencies .= \" \\\\\\n\\t$name\";\n }\n\n my $manify = <{\"MAN${section}PODS\"};\n push @man_cmds, $self->split_command(<split_command(\'- $(RM_RF)\', @dirs);\n\n my $m = sprintf <<\'MAKE\', $rm_cmd, $rmf_cmd;\n# Delete temporary files (via clean) and also delete dist files\nrealclean purge :: clean realclean_subdirs\n\t%s\n\t%s\nMAKE\n\n $m .= \"\\t$attribs{POSTOP}\\n\" if $attribs{POSTOP};\n\n return $m;\n}\n\n\n=head3 realclean_subdirs_target\n\n my $make_frag = $MM->realclean_subdirs_target;\n\nReturns the realclean_subdirs target. This is used by the realcl"..., 4096) = 4096 24717 read(5, "elf->{INST_LIB} = $self->{INST_ARCHLIB} = \n $self->catdir($self->{PERL_LIB},\"..\",\"xlib\",\n $Cross::platform);\n }\n else {\n $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};\n }\n\t} else {\n\t $self->{INST_LIB} = $self->catdir($Curdir,\"blib\",\"lib\");\n\t}\n }\n\n my @parentdir = split(/::/, $self->{PARENT_NAME});\n $self->{INST_LIBDIR} = $self->catdir(\'$(INST_LIB)\', @parentdir"..., 4096) = 4096 24717 read(5, "5\' : \'\';\n }\n\n # Some systems, like VOS, set installman*dir to \'\' if they can\'t\n # read man pages.\n for my $num (1, 3) {\n $self->{\'INSTALLMAN\'.$num.\'DIR\'} ||= \'none\'\n unless $Config{\'installman\'.$num.\'dir\'};\n }\n\n my %bin_layouts = \n (\n bin => { s => $iprefix,\n t => \'perl\',\n d => \'bin\' },\n vendorbin => { s => $vprefix,\n t => \'vendor\',\n d => \'b"..., 4096) = 4096 24717 brk(0x1cfb1000) = 0x1cfb1000 24717 read(5, "var\";\n my $Installvar = uc $installvar;\n next if $self->{$Installvar};\n\n $d = \"$style/$d\" if $style;\n $self->prefixify($installvar, $s, $r, $d);\n\n print STDERR \" $Installvar == $self->{$Installvar}\\n\" \n if $Verbose >= 2;\n }\n\n # Generate these if they weren\'t figured out.\n $self->{VENDORARCHEXP} ||= $self->{INSTALLVENDORARCH};\n $self->{VENDORLIBEXP} ||= $self->{INSTALLVENDORLIB};\n\n return 1;\n}\n\n\n=head3 init_from_INSTALL_BASE\n\n $mm->i"..., 4096) = 4096 24717 read(5, "ERL_FILE File used by MAKE_APERL\n\n SHELL Program used to run shell commands\n\n ECHO Print text adding a newline on the end\n RM_F Remove a file \n RM_RF Remove a directory \n TOUCH Update a file\'s timestamp \n TEST_F Test for a file\'s existence \n CP Copy a file \n MV Move a file \n CHMOD Change permissions on a \n "..., 4096) = 4096 24717 read(5, ".pl, since they don\'t always follow Test::Harness\nformatting.\n\n=cut\n\nsub test_via_script {\n my($self, $perl, $script) = @_;\n return qq{\\t$perl \"-I\\$(INST_LIB)\" \"-I\\$(INST_ARCHLIB)\" $script\\n};\n}\n\n\n=head3 tool_autosplit\n\nDefines a simple perl call that runs autosplit. May be deprecated by\npm_to_blib soon.\n\n=cut\n\nsub tool_autosplit {\n my($self, %attribs) = @_;\n\n my $maxlen = $attribs{MAXLEN} ? \'$$AutoSplit::Maxlen=$attribs{MAXLEN};\' \n : \'\';\n\n my $asp"..., 4096) = 3137 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MY.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/ExtUtils/MY.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MY.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/ExtUtils/MY.pm", {st_dev=makedev(253, 0), st_ino=33915139, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=650, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/28-18:06:28, st_ctime=2008/03/01-05:08:01}) = 0 24717 open("/usr/lib/perl5/5.8.8/ExtUtils/MY.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package ExtUtils::MY;\n\nuse strict;\nrequire ExtUtils::MM;\n\nour $VERSION = 6.44;\nour @ISA = qw(ExtUtils::MM);\n\n{\n package MY;\n our @ISA = qw(ExtUtils::MY);\n}\n\nsub DESTROY {}\n\n\n=head1 NAME\n\nExtUtils::MY - ExtUtils::MakeMaker subclass for customization\n\n=head1 SYNOPSIS\n\n # in your Makefile.PL\n sub MY::whatever {\n ...\n }\n\n=head1 DESCRIPTION\n\nB\n\nExtUtils::MY is a subclass of ExtUtils::MM. Its provided in your\nMakefile.PL for you to add and override MakeMaker funct"..., 4096) = 650 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Copy.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Copy.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Copy.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Copy.pm", {st_dev=makedev(253, 0), st_ino=33915170, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=14032, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:28, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/File/Copy.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "# File/Copy.pm. Written in 1994 by Aaron Sherman . This\n# source code has been placed in the public domain by the author.\n# Please be kind and preserve the documentation.\n#\n# Additions copyright 1996 by Charles Bailey. Permission is granted\n# to distribute the revised code under the same terms as Perl itself.\n\npackage File::Copy;\n\nuse 5.006;\nuse strict;\nuse warnings;\nuse Carp;\nuse File::Spec;\nuse Config;\nour(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);\nsub copy"..., 4096) = 4096 24717 brk(0x1cfd2000) = 0x1cfd2000 24717 read(5, "fail_inner;\n\tlast unless $r;\n\tfor ($w = 0; $w < $r; $w += $t) {\n $t = syswrite($to_h, $buf, $r - $w, $w)\n\t\tor goto fail_inner;\n\t}\n }\n\n close($to_h) || goto fail_open2 if $closeto;\n close($from_h) || goto fail_open1 if $closefrom;\n\n # Use this idiom to avoid uninitialized value warning.\n return 1;\n\n # All of these contortions try to preserve error messages...\n fail_inner:\n if ($closeto) {\n\t$status = $!;\n\t$! = 0;\n close $to_h;\n\t$! = $status unless $!;\n }\n "..., 4096) = 4096 24717 lseek(5, 7215, SEEK_SET) = 7215 24717 lseek(5, 0, SEEK_CUR) = 7215 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Find.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/Find.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Find.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/Find.pm", {st_dev=makedev(253, 0), st_ino=33915172, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=80, st_size=36671, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:28, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/File/Find.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package File::Find;\nuse 5.006;\nuse strict;\nuse warnings;\nuse warnings::register;\nour $VERSION = \'1.10\';\nrequire Exporter;\nrequire Cwd;\n\n#\n# Modified to ensure sub-directory traversal order is not inverded by stack\n# push and pops. That is remains in the same order as in the directory file,\n# or user pre-processing (EG:sorted).\n#\n\n=head1 NAME\n\nFile::Find - Traverse a directory tree.\n\n=head1 SYNOPSIS\n\n use File::Find;\n find(\\&wanted, @directories_to_search);\n sub wanted { ... }\n\n use "..., 4096) = 4096 24717 read(5, "t this guarantee no longer holds if I or I\nare not set.\n\n=item *\n\nThere is a variable C<$File::Find::fullname> which holds the absolute\npathname of the file with all symbolic links resolved. If the link is\na dangling symbolic link, then fullname will be set to C.\n\n=back\n\nThis is a no-op on Win32.\n\n=item C\n\nThis is similar to I except that it may report some files more\nthan once. It does detect cycles, however. Since only symbolic links\nhave to "..., 4096) = 4096 24717 read(5, " /etc/x\n\n\nWhen or are in effect, there is\nalso a C<$File::Find::fullname>. The function may set\nC<$File::Find::prune> to prune the tree unless C was\nspecified. Unless C or C is specified, for\ncompatibility reasons (find.pl, find2perl) there are in addition the\nfollowing globals available: C<$File::Find::topdir>,\nC<$File::Find::topdev>, C<$File::Find::topino>,\nC<$File::Find::topmode> and C<$File::Find::topnlink>.\n\nThis library is useful fo"..., 4096) = 4096 24717 read(5, "g code to recognize invisible files or\ndirectories (requires Mac::Files):\n\n use Mac::Files;\n\n # invisible() -- returns 1 if file/directory is invisible,\n # 0 if it\'s visible or undef if an error occurred\n\n sub invisible($) {\n my $file = shift;\n my ($fileCat, $fileInfo);\n my $invisible_flag = 1 << 14;\n\n if ( $fileCat = FSpGetCatInfo($file) ) {\n if ($fileInfo = $fileCat->ioFlFndrInfo() ) {\n return (($fileInfo->fdFlags & $invisible_flag) && 1);\n }\n }\n return undef;\n }\n\nG"..., 4096) = 4096 24717 read(5, " Follow_SymLink($) {\n my ($AbsName) = @_;\n\n my ($NewName,$DEV, $INO);\n ($DEV, $INO)= lstat $AbsName;\n\n while (-l _) {\n\tif ($SLnkSeen{$DEV, $INO}++) {\n\t if ($follow_skip < 2) {\n\t\tdie \"$AbsName is encountered a second time\";\n\t }\n\t else {\n\t\treturn undef;\n\t }\n\t}\n\t$NewName= PathCombine($AbsName, readlink($AbsName));\n\tunless(defined $NewName) {\n\t if ($follow_skip < 2) {\n\t\tdie \"$AbsName is a recursive symbolic link\";\n\t }\n\t else {\n\t\treturn undef;\n\t }\n\t}\n\telse {\n\t $"..., 4096) = 4096 24717 brk(0x1cff3000) = 0x1cff3000 24717 read(5, "ymbolic link\\n\";\n\t\t }\n\t\t}\n\t\tnext Proc_Top_Item;\n\t }\n\n\t if (-d _) {\n\t\t_find_dir_symlnk($wanted, $abs_dir, $top_item);\n\t\t$Is_Dir= 1;\n\t }\n\t}\n\telse { # no follow\n\t $topdir = $top_item;\n\t unless (defined $topnlink) {\n\t\twarnings::warnif \"Can\'t stat $top_item: $!\\n\";\n\t\tnext Proc_Top_Item;\n\t }\n\t if (-d _) {\n\t\t$top_item =~ s/\\.dir\\z//i if $Is_VMS;\n\t\t_find_dir($wanted, $top_item, $topnlink);\n\t\t$Is_Dir= 1;\n\t }\n\t else {\n\t\t$abs_dir= $top_item;\n\t }\n\t}\n\n\tunless ($Is_Dir) {\n\t "..., 4096) = 4096 24717 read(5, "dLvl++;\n\t}\n\n\tif ($Is_MacOS) {\n\t $dir_name = \"$dir_name:\" unless ($dir_name =~ /:$/);\n\t}\n\n\t$dir= $dir_name; # $File::Find::dir\n\n\t# Get the list of files in the current directory.\n\tunless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {\n\t warnings::warnif \"Can\'t opendir($dir_name): $!\\n\";\n\t next;\n\t}\n\t@filenames = readdir DIR;\n\tclosedir(DIR);\n\t@filenames = $pre_process->(@filenames) if $pre_process;\n\tpush @Stack,[$CdLvl,$dir_name,\"\",-2] if $post_process;\n\n\t# default: u"..., 4096) = 4096 24717 brk(0x1d014000) = 0x1d014000 24717 read(5, "r_loc : absolute location of a dir\n# $p_dir : \"parent directory\"\n# preconditions:\n# chdir (if not no_chdir) to dir\n\nsub _find_dir_symlnk($$$) {\n my ($wanted, $dir_loc, $p_dir) = @_; # $dir_loc is the absolute directory\n my @Stack;\n my @filenames;\n my $new_loc;\n my $updir_loc = $dir_loc; # untainted parent directory\n my $SE = [];\n my $dir_name = $p_dir;\n my $dir_pref;\n my $loc_pref;\n my $dir_rel = $File::Find::current_dir;\n my $byd_flag; # flag for pending sta"..., 4096) = 4096 24717 read(5, "= ($no_chdir ? $name : $FN); # $_\n\t\t{ $wanted_callback->() }; # protect against wild \"next\"\n\t }\n\t}\n\n }\n continue {\n\twhile (defined($SE = pop @Stack)) {\n\t ($dir_loc, $updir_loc, $p_dir, $dir_rel, $byd_flag) = @$SE;\n\t if ($Is_MacOS) {\n\t\t# $p_dir always has a trailing \':\', except for the starting dir,\n\t\t# where $dir_rel eq \':\'\n\t\t$dir_name = \"$p_dir$dir_rel\";\n\t\t$dir_pref = \"$dir_name:\";\n\t\t$loc_pref = ($dir_loc =~ /:$/) ? $dir_loc : \"$dir_loc:\";\n\t }\n\t else {\n\t\t$dir_name = ($p_dir"..., 4096) = 3903 24717 brk(0x1d035000) = 0x1d035000 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/FileHandle.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/FileHandle.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/FileHandle.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/FileHandle.pm", {st_dev=makedev(253, 0), st_ino=33915187, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=6771, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/FileHandle.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package FileHandle;\n\nuse 5.006;\nuse strict;\nour($VERSION, @ISA, @EXPORT, @EXPORT_OK);\n\n$VERSION = \"2.01\";\n\nrequire IO::File;\n@ISA = qw(IO::File);\n\n@EXPORT = qw(_IOFBF _IOLBF _IONBF);\n\n@EXPORT_OK = qw(\n pipe\n\n autoflush\n output_field_separator\n output_record_separator\n input_record_separator\n input_line_number\n format_page_number\n format_lines_per_page\n format_lines_left\n format_name\n format_top_name\n format_line_break_characters\n format_formfeed\n\n print\n"..., 4096) = 4096 24717 lseek(5, 2104, SEEK_SET) = 2104 24717 lseek(5, 0, SEEK_CUR) = 2104 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/File.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/File.pm", {st_dev=makedev(253, 0), st_ino=34276147, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=5011, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/IO/File.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "#\n\npackage IO::File;\n\n=head1 NAME\n\nIO::File - supply object methods for filehandles\n\n=head1 SYNOPSIS\n\n use IO::File;\n\n $fh = new IO::File;\n if ($fh->open(\"< file\")) {\n print <$fh>;\n $fh->close;\n }\n\n $fh = new IO::File \"> file\";\n if (defined $fh) {\n print $fh \"bar\\n\";\n $fh->close;\n }\n\n $fh = new IO::File \"file\", \"r\";\n if (defined $fh) {\n print <$fh>;\n undef $fh; # automatically closes the file\n }\n\n $fh = new IO::File"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Seekable.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Seekable.pm", {st_dev=makedev(253, 0), st_ino=34276150, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2935, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/IO/Seekable.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "#\n\npackage IO::Seekable;\n\n=head1 NAME\n\nIO::Seekable - supply seek based methods for I/O objects\n\n=head1 SYNOPSIS\n\n use IO::Seekable;\n package IO::Something;\n @ISA = qw(IO::Seekable);\n\n=head1 DESCRIPTION\n\nC does not have a constructor of its own as it is intended to\nbe inherited by other C based objects. It provides methods\nwhich allow seeking of the file descriptors.\n\n=over 4\n\n=item $io->getpos\n\nReturns an opaque value that represents the current position of th"..., 4096) = 2935 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Fcntl.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Fcntl.pm", {st_dev=makedev(253, 0), st_ino=34112468, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=5346, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Fcntl.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package Fcntl;\n\n=head1 NAME\n\nFcntl - load the C Fcntl.h defines\n\n=head1 SYNOPSIS\n\n use Fcntl;\n use Fcntl qw(:DEFAULT :flock);\n\n=head1 DESCRIPTION\n\nThis module is just a translation of the C F file.\nUnlike the old mechanism of requiring a translated F\nfile, this uses the B program (see the Perl source distribution)\nand your native C compiler. This means that it has a \nfar more likely chance of getting the numbers right.\n\n=head1 NOTE\n\nOnly C<#define> symbols get tra"..., 4096) = 4096 24717 read(7, "S_IWUSR S_IXUSR S_IRWXU\n\t\t S_IRGRP S_IWGRP S_IXGRP S_IRWXG\n\t\t S_IROTH S_IWOTH S_IXOTH S_IRWXO\n\t\t S_IREAD S_IWRITE S_IEXEC\n\t\t S_ISREG S_ISDIR S_ISLNK S_ISSOCK\n\t\t S_ISBLK S_ISCHR S_ISFIFO\n\t\t S_ISWHT S_ISENFMT\t\t\n\t\t S_IFMT S_IMODE\n )],\n);\n\nsub S_IFMT { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT() }\nsub S_IMODE { $_[0] & 07777 }\n\nsub S_ISREG { ( $_[0] & _S_IFMT() ) == S_IFREG() }\nsub S_ISDIR { ( $_[0] & _S_IFMT() ) == S_IFDIR() }\nsub S_ISLNK { ( $"..., 4096) = 1250 24717 brk(0x1d056000) = 0x1d056000 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Fcntl/Fcntl.so", {st_dev=makedev(253, 0), st_ino=34275904, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=15642, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Fcntl/Fcntl.bs", {st_dev=makedev(253, 0), st_ino=34275905, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:30:52, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Fcntl/Fcntl.so", O_RDONLY) = 7 24717 read(7, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\300\t\0\0\0\0\0\0@\0\0\0\0\0\0\0\260,\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0T(\0\0\0\0\0\0T(\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0X(\0\0\0\0\0\0X( \0\0\0\0\0X( \0\0\0\0\0\220\2\0\0\0\0\0\0\230\2\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\210(\0\0\0\0\0\0\210( \0\0\0\0\0\210( \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\270\'\0\0\0\0\0\0\270\'\0\0\0\0\0\0\270\'\0\0\0\0\0\0$\0\0\0\0\0\0\0$\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\30\0\0\0\1\0\0\0\6\0\0\0\210\300(\1\0\204@\t\30\0\0\0\33\0\0\0\36\0\0\0\356TU\220\272\343\222|CE\325\354.6bx\330qX\34\271\215\361\16\353\323\357\16\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\3\0\10\0\320\10\0\0\0\0\0\0\0\0\0\0\0\0\0\0\26\1\0\0\20\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\303\0\0\0\20\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(7, {st_dev=makedev(253, 0), st_ino=34275904, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=15642, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 mmap(NULL, 2108144, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 7, 0) = 0x2aaaaead8000 24717 mprotect(0x2aaaaeadb000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaaecda000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 7, 0x2000) = 0x2aaaaecda000 24717 close(7) = 0 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 read(5, "###################\n## Open\n##\n\nsub open {\n @_ >= 2 && @_ <= 4 or croak \'usage: $fh->open(FILENAME [,MODE [,PERMS]])\';\n my ($fh, $file) = @_;\n if (@_ > 2) {\n\tmy ($mode, $perms) = @_[2, 3];\n\tif ($mode =~ /^\\d+$/) {\n\t defined $perms or $perms = 0666;\n\t return sysopen($fh, $file, $mode, $perms);\n\t} elsif ($mode =~ /:/) {\n\t return open($fh, $mode, $file) if @_ == 3;\n\t croak \'usage: $fh->open(FILENAME, IOLAYERS)\';\n\t}\n\tif (defined($file) && length($file)\n\t && ! File::Spec->file"..., 4096) = 915 24717 read(5, "", 4096) = 0 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Safe.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Safe.pm", {st_dev=makedev(253, 0), st_ino=34112461, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=17276, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Safe.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package Safe;\n\nuse 5.003_11;\nuse strict;\n\n$Safe::VERSION = \"2.12\";\n\n# *** Don\'t declare any lexicals above this point ***\n#\n# This function should return a closure which contains an eval that can\'t\n# see any lexicals in scope (apart from __ExPr__ which is unavoidable)\n\nsub lexless_anon_sub {\n\t\t # $_[0] is package;\n\t\t # $_[1] is strict flag;\n my $__ExPr__ = $_[2]; # must be a lexical to create the closure that\n\t\t\t # can be used to pass the value into the safe\n\t\t\t # world\n\n # Create "..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Carp/Heavy.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Carp/Heavy.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Carp/Heavy.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Carp/Heavy.pm", {st_dev=makedev(253, 0), st_ino=33915067, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=5833, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:20}) = 0 24717 open("/usr/lib/perl5/5.8.8/Carp/Heavy.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 brk(0x1d077000) = 0x1d077000 24717 read(6, "# Carp::Heavy uses some variables in common with Carp.\npackage Carp;\n\n=head1 NAME\n\nCarp::Heavy - heavy machinery, no user serviceable parts inside\n\n=cut\n\n# use strict; # not yet\n\n# On one line so MakeMaker will see it.\nuse Carp; our $VERSION = $Carp::VERSION;\n\nour ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxArgLen, $Verbose);\n\nsub caller_info {\n my $i = shift(@_) + 1;\n package DB;\n my %call_info;\n @call_info{\n qw(pack file line sub has_args wantarray evaltext is_require)\n } = caller($i);"..., 4096) = 4096 24717 read(6, "\n redo if $Internal{$caller};\n redo if $CarpInternal{$called};\n redo if trusts($called, $caller, $cache);\n redo if trusts($caller, $called, $cache);\n redo unless 0 > --$lvl;\n }\n return $i - 1;\n}\n\nsub shortmess_heavy {\n return longmess_heavy(@_) if $Verbose;\n return @_ if ref($_[0]); # don\'t break references as exceptions\n my $i = short_error_loc();\n if ($i) {\n ret_summary($i, @_);\n }\n else {\n longmess_heavy(@_);\n }\n}\n\n# If a string is too long, trims it with ...\nsub"..., 4096) = 1737 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Opcode.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Opcode.pm", {st_dev=makedev(253, 0), st_ino=34112480, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=15234, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Opcode.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "package Opcode;\n\nuse 5.006_001;\n\nuse strict;\n\nour($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);\n\n$VERSION = \"1.06\";\n$XS_VERSION = \"1.03\";\n\nuse Carp;\nuse Exporter ();\nuse XSLoader ();\n\nBEGIN {\n @ISA = qw(Exporter);\n @EXPORT_OK = qw(\n\topset ops_to_opset\n\topset_to_ops opset_to_hex invert_opset\n\tempty_opset full_opset\n\topdesc opcodes opmask define_optag\n\topmask_add verify_opset opdump\n );\n}\n\nsub opset (;@);\nsub opset_to_hex ($);\nsub opdump (;$);\nuse subs @EXPORT_OK;\n\nXSLoader::load \'Opcode\', $X"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/subs.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/subs.pm", 0x7fff9d8178a0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/subs.pmc", 0x7fff9d8179e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/subs.pm", {st_dev=makedev(253, 0), st_ino=33915577, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=842, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/subs.pm", O_RDONLY) = 7 24717 ioctl(7, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817680) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(7, 0, SEEK_CUR) = 0 24717 read(7, "package subs;\n\nour $VERSION = \'1.00\';\n\n=head1 NAME\n\nsubs - Perl pragma to predeclare sub names\n\n=head1 SYNOPSIS\n\n use subs qw(frob);\n frob 3..10;\n\n=head1 DESCRIPTION\n\nThis will predeclare all the subroutine whose names are \nin the list, allowing you to use them without parentheses\neven before they\'re declared.\n\nUnlike pragmas that affect the C<$^H> hints variable, the C and\nC declarations are not BLOCK-scoped. They are thus effective\nfor the entire file in which they a"..., 4096) = 842 24717 read(7, "", 4096) = 0 24717 close(7) = 0 24717 brk(0x1d098000) = 0x1d098000 24717 fcntl(6, F_SETFD, FD_CLOEXEC) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Opcode/Opcode.so", {st_dev=makedev(253, 0), st_ino=34276129, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=56, st_size=25354, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Opcode/Opcode.bs", {st_dev=makedev(253, 0), st_ino=34276128, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:30:53, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Opcode/Opcode.so", O_RDONLY) = 7 24717 read(7, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\360\31\0\0\0\0\0\0@\0\0\0\0\0\0\0pI\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0dC\0\0\0\0\0\0dC\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0hC\0\0\0\0\0\0hC \0\0\0\0\0hC \0\0\0\0\0@\4\0\0\0\0\0\0\230\4\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0\230C\0\0\0\0\0\0\230C \0\0\0\0\0\230C \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0h?\0\0\0\0\0\0h?\0\0\0\0\0\0h?\0\0\0\0\0\0\264\0\0\0\0\0\0\0\264\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\21\0\0\0@\0\0\0\2\0\0\0\7\0\0\0\226 :\10@\3\f\215\212\304\10\1\355\4@(\0\0\0\0@\0\0\0A\0\0\0B\0\0\0D\0\0\0E\0\0\0F\0\0\0H\0\0\0\0\0\0\0\0\0\0\0J\0\0\0K\0\0\0O\0\0\0\0\0\0\0R\0\0\0\0\0\0\0\0\0\0\0\353\323\357\16\271\215\361\0162\224\241w\331qX\34\273\343\222|\215(\211\33F\233\242^3\212\214\232\222\277\320kCE\325\354\251\340;w\24*;\345|gJS\344\311\352\264"..., 832) = 832 24717 fstat(7, {st_dev=makedev(253, 0), st_ino=34276129, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=56, st_size=25354, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:30:53, st_ctime=2007/11/26-14:30:53}) = 0 24717 mmap(NULL, 2115584, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 7, 0) = 0x2aaaaecdb000 24717 mprotect(0x2aaaaece0000, 2093056, PROT_NONE) = 0 24717 mmap(0x2aaaaeedf000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 7, 0x4000) = 0x2aaaaeedf000 24717 close(7) = 0 24717 read(6, "ptag can be prefixed with an exclamation mark, e.g., !mkdir.\nNegating an opname or optag means remove the corresponding ops from the\naccumulated set of ops at that point.\n\n=item an operator set (opset)\n\nAn I as a binary string of approximately 44 bytes which holds a\nset or zero or more operators.\n\nThe opset and opset_to_ops functions can be used to convert from\na list of operators to an opset and I.\n\nWherever a list of operators can be given you can use one or more opsets.\nSee"..., 4096) = 4096 24717 read(6, "diff = opset_diff($opset1, $opset2) => (\'foo\', \'!bar\', ...)\n\n=cut\n\n# the =cut above is used by _init_optags() to get here quickly\n\n=head1 Predefined Opcode Tags\n\n=over 5\n\n=item :base_core\n\n null stub scalar pushmark wantarray const defined undef\n\n rv2sv sassign\n\n rv2av aassign aelem aelemfast aslice av2arylen\n\n rv2hv helem hslice each values keys exists delete\n\n preinc i_preinc predec i_predec postinc i_postinc postdec i_postdec\n int hex oct abs pow multiply i_multiply divide i"..., 4096) = 4096 24717 read(6, "owned\n ftrread ftsgid ftsize ftsock ftsuid fttty ftzero ftrwrite ftsvtx\n\n fttext ftbinary\n\n fileno\n\n=item :sys_db\n\n ghbyname ghbyaddr ghostent shostent ehostent -- hosts\n gnbyname gnbyaddr gnetent snetent enetent -- networks\n gpbyname gpbynumber gprotoent sprotoent eprotoent -- protocols\n gsbyname gsbyport gservent sservent eservent -- services\n\n gpwnam gpwuid gpwent spwent epwent getlogin -- users\n ggrnam ggrgid ggrent sgrent egrent "..., 4096) = 2946 24717 brk(0x1d0b9000) = 0x1d0b9000 24717 read(6, "", 4096) = 0 24717 close(6) = 0 24717 read(5, "dump_mask {\n my $obj = shift;\n print opset_to_hex($obj->{Mask}),\"\\n\";\n}\n\n\n\nsub share {\n my($obj, @vars) = @_;\n $obj->share_from(scalar(caller), \\@vars);\n}\n\nsub share_from {\n my $obj = shift;\n my $pkg = shift;\n my $vars = shift;\n my $no_record = shift || 0;\n my $root = $obj->root();\n croak(\"vars not an array ref\") unless ref $vars eq \'ARRAY\';\n no strict \'refs\';\n # Check that \'from\' package actually exists\n croak(\"Package \\\"$pkg\\\" does not exist\")\n\tunless key"..., 4096) = 4096 24717 lseek(5, 6369, SEEK_SET) = 6369 24717 lseek(5, 0, SEEK_CUR) = 6369 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Sys/Hostname.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Sys/Hostname.pm", {st_dev=makedev(253, 0), st_ino=34275778, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=3853, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/Sys/Hostname.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package Sys::Hostname;\n\nuse strict;\n\nuse Carp;\n\nrequire Exporter;\nrequire AutoLoader;\n\nour @ISA = qw/ Exporter AutoLoader /;\nour @EXPORT = qw/ hostname /;\n\nour $VERSION;\n\nour $host;\n\nBEGIN {\n $VERSION = \'1.11\';\n {\n\tlocal $SIG{__DIE__};\n\teval {\n\t require XSLoader;\n\t XSLoader::load(\'Sys::Hostname\', $VERSION);\n\t};\n\twarn $@ if $@;\n }\n}\n\n\nsub hostname {\n\n # method 1 - we already know it\n return $host if defined $host;\n\n # method 1\' - try to ask the system\n $host = ghname() if "..., 4096) = 3853 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Sys/Hostname/Hostname.so", {st_dev=makedev(253, 0), st_ino=34275840, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9231, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Sys/Hostname/Hostname.bs", {st_dev=makedev(253, 0), st_ino=34275838, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2007/11/26-14:30:52, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/auto/Sys/Hostname/Hostname.so", O_RDONLY) = 6 24717 read(6, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\260\10\0\0\0\0\0\0@\0\0\0\0\0\0\0008\24\0\0\0\0\0\0\0\0\0\0@\0008\0\5\0@\0\34\0\31\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0D\16\0\0\0\0\0\0D\16\0\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0\0\20\0\0\0\0\0\0\0\20 \0\0\0\0\0\0\20 \0\0\0\0\0p\2\0\0\0\0\0\0x\2\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0000\20\0\0\0\0\0\0000\20 \0\0\0\0\0000\20 \0\0\0\0\0\200\1\0\0\0\0\0\0\200\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0\300\r\0\0\0\0\0\0\300\r\0\0\0\0\0\0\300\r\0\0\0\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\4\0\0\0\0\0\0\0Q\345td\6\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\24\0\0\0\1\0\0\0\6\0\0\0\210\3000\5\0\24@\t\24\0\0\0\26\0\0\0\31\0\0\0\272\343\222|CE\325\354\330qX\34\332`J\250\271\215\361\16\352\323\357\16\25\353$\335\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\3\0\10\0\350\7\0\0\0\0\0\0\0\0\0\0\0\0\0\0\321\0\0\0\20\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\1\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 832) = 832 24717 fstat(6, {st_dev=makedev(253, 0), st_ino=34275840, st_mode=S_IFREG|0555, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=9231, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/26-14:30:52, st_ctime=2007/11/26-14:30:52}) = 0 24717 mmap(NULL, 2101880, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 6, 0) = 0x2aaaaeee0000 24717 mprotect(0x2aaaaeee1000, 2097152, PROT_NONE) = 0 24717 mmap(0x2aaaaf0e1000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 6, 0x1000) = 0x2aaaaf0e1000 24717 close(6) = 0 24717 lseek(5, 3176, SEEK_SET) = 3176 24717 lseek(5, 0, SEEK_CUR) = 3176 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/ParseWords.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/ParseWords.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/ParseWords.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/ParseWords.pm", {st_dev=makedev(253, 0), st_ino=33915344, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=6651, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/Text/ParseWords.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package Text::ParseWords;\n\nuse vars qw($VERSION @ISA @EXPORT $PERL_SINGLE_QUOTE);\n$VERSION = \"3.24\";\n\nrequire 5.000;\n\nuse Exporter;\n@ISA = qw(Exporter);\n@EXPORT = qw(shellwords quotewords nested_quotewords parse_line);\n@EXPORT_OK = qw(old_shellwords);\n\n\nsub shellwords {\n my(@lines) = @_;\n $lines[$#lines] =~ s/\\s+$//;\n return(quotewords(\'\\s+\', 0, @lines));\n}\n\n\n\nsub quotewords {\n my($delim, $keep, @lines) = @_;\n my($line, @words, @allwords);\n\n foreach $line (@lines) {\n\t@words = p"..., 4096) = 4096 24717 brk(0x1d0da000) = 0x1d0da000 24717 lseek(5, 3268, SEEK_SET) = 3268 24717 lseek(5, 0, SEEK_CUR) = 3268 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/Wrap.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/Wrap.pm", 0x7fff9d8182e0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/Wrap.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/Wrap.pm", {st_dev=makedev(253, 0), st_ino=33915347, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=24, st_size=6554, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/Text/Wrap.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package Text::Wrap;\n\nrequire Exporter;\n\n@ISA = qw(Exporter);\n@EXPORT = qw(wrap fill);\n@EXPORT_OK = qw($columns $break $huge);\n\n$VERSION = 2005.0824_01;\n\nuse vars qw($VERSION $columns $debug $break $huge $unexpand $tabstop\n\t$separator $separator2);\nuse strict;\n\nBEGIN\t{\n\t$columns = 76; # <= screen width\n\t$debug = 0;\n\t$break = \'\\s\';\n\t$huge = \'wrap\'; # alternatively: \'die\' or \'overflow\'\n\t$unexpand = 1;\n\t$tabstop = 8;\n\t$separator = \"\\n\";\n\t$separator2 = undef;\n}\n\nuse Text::Tabs qw(expand unexpand);\n\n"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/Tabs.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/Text/Tabs.pm", 0x7fff9d817dc0) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/Tabs.pmc", 0x7fff9d817f00) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/Text/Tabs.pm", {st_dev=makedev(253, 0), st_ino=33915346, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=2299, st_atime=2008/04/01-17:48:02, st_mtime=2007/01/30-13:12:27, st_ctime=2007/11/19-10:33:21}) = 0 24717 open("/usr/lib/perl5/5.8.8/Text/Tabs.pm", O_RDONLY) = 6 24717 ioctl(6, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d817ba0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(6, 0, SEEK_CUR) = 0 24717 read(6, "\npackage Text::Tabs;\n\nrequire Exporter;\n\n@ISA = (Exporter);\n@EXPORT = qw(expand unexpand $tabstop);\n\nuse vars qw($VERSION $tabstop $debug);\n$VERSION = 2005.0824;\n\nuse strict;\n\nBEGIN\t{\n\t$tabstop = 8;\n\t$debug = 0;\n}\n\nsub expand {\n\tmy @l;\n\tmy $pad;\n\tfor ( @_ ) {\n\t\tmy $s = \'\';\n\t\tfor (split(/^/m, $_, -1)) {\n\t\t\tmy $offs = 0;\n\t\t\ts{\\t}{\n\t\t\t\t$pad = $tabstop - (pos() + $offs) % $tabstop;\n\t\t\t\t$offs += $pad - 1;\n\t\t\t\t\" \" x $pad;\n\t\t\t}eg;\n\t\t\t$s .= $_;\n\t\t}\n\t\tpush(@l, $s);\n\t}\n\treturn @l if wantarray;\n\treturn $l["..., 4096) = 2299 24717 lseek(6, 1098, SEEK_SET) = 1098 24717 lseek(6, 0, SEEK_CUR) = 1098 24717 close(6) = 0 24717 brk(0x1d0fb000) = 0x1d0fb000 24717 lseek(5, 2288, SEEK_SET) = 2288 24717 lseek(5, 0, SEEK_CUR) = 2288 24717 close(5) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/lib.pmc", 0x7fff9d818420) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/lib.pm", {st_dev=makedev(253, 0), st_ino=34112466, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=5679, st_atime=2008/04/01-17:48:02, st_mtime=2007/11/26-14:30:50, st_ctime=2007/11/26-14:30:50}) = 0 24717 open("/usr/lib/perl5/5.8.8/x86_64-linux/lib.pm", O_RDONLY) = 5 24717 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d8180c0) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(5, 0, SEEK_CUR) = 0 24717 read(5, "package lib;\n\n# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.\n# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.\n\nuse Config;\n\nuse strict;\n\nmy $archname = $Config{archname};\nmy $version = $Config{version};\nmy @inc_version_list = reverse split / /, $Config{inc_version_list};\n\n\nour @ORIG_INC = @INC;\t# take a handy copy of \'original\' value\nour $VERSION = \'0.5565\';\nmy $Is_MacOS = $^O eq \'MacOS\';\nmy $Mac_FS;\nif ($Is_MacOS) {\n\trequire File::Spec;\n\t$Mac_FS = "..., 4096) = 4096 24717 lseek(5, 3112, SEEK_SET) = 3112 24717 lseek(5, 0, SEEK_CUR) = 3112 24717 close(5) = 0 24717 stat("./x86_64-linux/auto", 0x7007c0) = -1 ENOENT (No such file or directory) 24717 stat("./5.8.8", 0x7007c0) = -1 ENOENT (No such file or directory) 24717 stat("./5.8.8/x86_64-linux", 0x7007c0) = -1 ENOENT (No such file or directory) 24717 read(4, "ad unless $CPAN::Config_loaded++;\n\n my $oprompt = shift || CPAN::Prompt->new;\n my $prompt = $oprompt;\n my $commandline = shift || \"\";\n $CPAN::CurrentCommandId ||= 1;\n\n local($^W) = 1;\n unless ($Suppress_readline) {\n require Term::ReadLine;\n if (! $term\n or\n $term->ReadLine eq \"Term::ReadLine::Stub\"\n ) {\n $term = Term::ReadLine->new(\'CPAN Monitor\');\n }\n if ($term->ReadLine eq \"Term::ReadLine::Gnu\") {\n "..., 4096) = 4096 24717 brk(0x1d11c000) = 0x1d11c000 24717 read(4, "=~ /\\S/) {\n require Carp;\n require Dumpvalue;\n my $dv = Dumpvalue->new();\n Carp::cluck(sprintf \"Catching error: %s\", $dv->stringify($err));\n }\n }\n if ($command =~ /^(\n # classic commands\n make\n |test\n |install\n |clean\n\n "..., 4096) = 4096 24717 read(4, "fh, $mode;\n } elsif (!$Have_warned->{\"d_flock\"}++) {\n $CPAN::Frontend->mywarn(\"Your OS does not support locking; continuing and ignoring all locking issues\\n\");\n $CPAN::Frontend->mysleep(5);\n return 1;\n } else {\n return 1;\n }\n}\n\nsub _yaml_module () {\n my $yaml_module = $CPAN::Config->{yaml_module} || \"YAML\";\n if (\n $yaml_module ne \"YAML\"\n &&\n !$CPAN::META->has_inst($yaml_module)\n ) {\n # $CPAN::Frontend->mywarn(\"\'$yaml_m"..., 4096) = 4096 24717 read(4, "e_cache = {};\n sub _sqlite_running {\n if ($negative_cache->{time} && time < $negative_cache->{time} + 60) {\n # need to cache the result, otherwise too slow\n return $negative_cache->{fact};\n } else {\n $negative_cache = {}; # reset\n }\n my $ret = $CPAN::Config->{use_sqlite} && ($CPAN::SQLite || _init_sqlite());\n return $ret if $ret; # fast anyway\n $negative_cache->{time} = time;\n return $negative_cache->{fact} = $r"..., 4096) = 4096 24717 brk(0x1d13d000) = 0x1d13d000 24717 read(4, "e);\n if ($i>0 and $d = $deps[$i-1]{name}) {\n my $do = CPAN::Shell->expandany($d);\n $want = $do->{prereq_pm}{requires}{$x};\n if (defined $want) {\n $want_type = \"requires: \";\n } else {\n $want = $do->{prereq_pm}{build_requires}{$x};\n if (defined $want) {\n $want_type = \"build_requires: \";\n } else {\n $want_type"..., 4096) = 4096 24717 read(4, "defaultlist,USER=>urllist),\n# planned are things like age or quality\nsub new {\n my($class,%args) = @_;\n bless {\n %args\n }, $class;\n}\nsub as_string {\n my($self) = @_;\n $self->text;\n}\nsub text {\n my($self,$set) = @_;\n if (defined $set) {\n $self->{TEXT} = $set;\n }\n $self->{TEXT};\n}\n\npackage CPAN::Distrostatus;\nuse overload \'\"\"\' => \"as_string\",\n fallback => 1;\nsub new {\n my($class,$arg) = @_;\n bless {\n TEXT => $arg,\n FAIL"..., 4096) = 4096 24717 brk(0x1d15e000) = 0x1d15e000 24717 read(4, "} else {\n $CPAN::Frontend->mywarn(qq{\nCommands starting with \"w\" require CPAN::WAIT to be installed.\nPlease consider installing CPAN::WAIT to use the fulltext index.\nFor this you just need to type\n install CPAN::WAIT\n});\n }\n } else {\n $CPAN::Frontend->mywarn(qq{Unknown shell command \'$l\'. }.\n qq{Type ? for help.\n});\n }\n $autoload_recursion--;\n }\n}\n\npackage CPAN;\nuse strict;\n\n$META ||= CPAN->new; # "..., 4096) = 4096 24717 read(4, "if $$ == $otherpid; # should never happen\n $CPAN::Frontend->mywarn(\n qq{\nThere seems to be running another CPAN process (pid $otherpid). Contacting...\n});\n if (kill 0, $otherpid) {\n $CPAN::Frontend->mywarn(qq{Other job is running.\\n});\n my($ans) =\n CPAN::Shell::colorable_makemaker_prompt\n (qq{Shall I try to run in degraded }.\n qq{mode? (Y/n)},\"y"..., 4096) = 4096 24717 read(4, "\nPlease make sure that the configuration variable\n \\$CPAN::Config->{cpan_home}\npoints to a directory where you can write a .lock file. You can set\nthis variable in either a CPAN/MyConfig.pm or a CPAN/Config.pm in your\n\\@INC path;\n});\n return suggest_myconfig;\n }\n }\n my $sleep = 1;\n while (!CPAN::_flock($fh, LOCK_EX|LOCK_NB)) {\n if ($sleep>10) {\n $CPAN::Frontend->mydie(\"Giving up\\n\");\n }\n $CPAN::Fron"..., 4096) = 4096 24717 brk(0x1d17f000) = 0x1d17f000 24717 read(4, "eadonly}{$class}{$id} or\n $CPAN::SQLite->set($class, $id));\n } else {\n $exists = exists $META->{readonly}{$class}{$id};\n }\n $exists ||= exists $META->{readwrite}{$class}{$id}; # unsafe meta access, ok\n}\n\n#-> sub CPAN::delete ;\nsub delete {\n my($mgr,$class,$id) = @_;\n delete $META->{readonly}{$class}{$id}; # unsafe meta access, ok\n delete $META->{readwrite}{$class}{$id}; # unsafe meta access, ok\n}\n\n#-> sub CPAN::has_usable\n# has_inst is sometimes too optimist"..., 4096) = 4096 24717 read(4, " # afair only used by Nox\n ||\n $dont{$mod}\n ) {\n $CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok\n return 0;\n }\n my $file = $mod;\n my $obj;\n $file =~ s|::|/|g;\n $file .= \".pm\";\n if ($INC{$file}) {\n # checking %INC is wrong, because $INC{LWP} may be true\n # although $INC{\"URI/URL.pm\"} may have failed. But as\n # I really want to say \"bla loaded OK\", I have to somehow\n # cache results.\n ### warn \"$fi"..., 4096) = 4096 24717 brk(0x1d1a0000) = 0x1d1a0000 24717 read(4, " $CPAN::Frontend->mywarn(\"Warning: Configuration not saved.\\n\");\n }\n $CPAN::Frontend->myprint(\"Lockfile removed.\\n\");\n}\n\n#-> sub CPAN::readhist\nsub readhist {\n my($self,$term,$histfile) = @_;\n my($fh) = FileHandle->new;\n open $fh, \"<$histfile\" or last;\n local $/ = \"\\n\";\n while (<$fh>) {\n chomp;\n $term->AddHistory($_);\n }\n close $fh;\n}\n\n#-> sub CPAN::savehist\nsub savehist {\n my($self) = @_;\n my($histfile,$histsize);\n unless ($histfile = $CPAN::Co"..., 4096) = 4096 24717 read(4, "ve,\n )\n );\n return if $CPAN::Signal;\n $self->_clean_cache($toremove);\n return if $CPAN::Signal;\n }\n}\n\n#-> sub CPAN::CacheMgr::dir ;\nsub dir {\n shift->{ID};\n}\n\n#-> sub CPAN::CacheMgr::entries ;\nsub entries {\n my($self,$dir) = @_;\n return unless defined $dir;\n $self->debug(\"reading dir[$dir]\") if $CPAN::DEBUG;\n $dir ||= $self->{ID};\n my($cwd) = CPAN::anycwd();\n chdir $dir or Carp::croak(\"Can\'t chdir to $di"..., 4096) = 4096 24717 brk(0x1d1c1000) = 0x1d1c1000 24717 read(4, "g anyway)\");\n unlink \"$dir.yml\" or\n $CPAN::Frontend->mywarn(\"(Could not unlink \'$dir.yml\': $!)\");\n return;\n } elsif (my $id = $peek_yaml->[0]{distribution}{ID}) {\n $CPAN::META->delete(\"CPAN::Distribution\", $id);\n\n # XXX we should restore the state NOW, otherise this\n # distro does not exist until we read an index. BUG ALERT(?)\n\n # $CPAN::Frontend->mywarn (\" +++\\n\");\n "..., 4096) = 4096 24717 read(4, "ndle Snapshot recent latest CPAN uploads});\n}\n}\n\n*help = \\&h;\n\n#-> sub CPAN::Shell::a ;\nsub a {\n my($self,@arg) = @_;\n # authors are always UPPERCASE\n for (@arg) {\n $_ = uc $_ unless /=/;\n }\n $CPAN::Frontend->myprint($self->format_result(\'Author\',@arg));\n}\n\n#-> sub CPAN::Shell::globls ;\nsub globls {\n my($self,$s,$pragmas) = @_;\n # ls is really very different, but we had it once as an ordinary\n # command in the Shell (upto rev. 321) and we could not handl"..., 4096) = 4096 24717 brk(0x1d1e2000) = 0x1d1e2000 24717 read(4, " next unless $entry =~ s/\\.pm(?!\\n)\\Z//;\n $CPAN::META->instance(\'CPAN::Bundle\',\"$bbase\\::$entry\");\n }\n }\n }\n }\n }\n}\n\n#-> sub CPAN::Shell::b ;\nsub b {\n my($self,@which) = @_;\n CPAN->debug(\"which[@which]\") if $CPAN::DEBUG;\n $self->local_bundles;\n $CPAN::Frontend->myprint($self->format_result(\'Bundle\',@which));\n}\n\n#-> sub CPAN::Shell::d ;\nsub d { $CPAN::Frontend->myprint(shift->format_re"..., 4096) = 4096 24717 read(4, "$_;\n }\n $CPAN::DEBUG = $max;\n } else {\n my($known) = 0;\n for (keys %CPAN::DEBUG) {\n next unless lc($_) eq lc($what);\n $CPAN::DEBUG |= $CPAN::DEBUG{$_};\n $known = 1;\n }\n $CPAN::Frontend->myprint(\"unknown argument [$what]\\n\")\n unless $known;\n }\n }\n "..., 4096) = 4096 24717 brk(0x1d203000) = 0x1d203000 24717 read(4, "\";\n }\n if ($res->{ok} && @{$res->{ok}}) {\n $R .= sprintf \"\\nSuccessful downloads:\n N kB secs kB/s url\\n\";\n my $i = 20;\n for (sort { $b->[3] <=> $a->[3] } @{$res->{ok}}) {\n $R .= sprintf \"%4d %8d %5d %9.1f %s\\n\", @$_;\n last if --$i<=0;\n }\n }\n if ($res->{no} && @{$res->{no}}) {\n $R .= sprintf \"\\nUnsuccessful downloads:\\n\";\n my $i = 20;\n for (sort { $b->[0] <=> $a->[0] } @{$res->{no}}) {\n $R "..., 4096) = 4096 24717 read(4, "g(sprintf(\"reload file[%s] content[%s...]\",$file,substr($content,0,128)))\n if $CPAN::DEBUG;\n delete $INC{$f};\n local @INC = @inc;\n eval \"require \'$f\'\";\n if ($@) {\n warn $@;\n return;\n }\n $reload->{$f} = $mtime;\n } else {\n $CPAN::Frontend->myprint(\"__unchanged__\");\n }\n return 1;\n}\n\n#-> sub CPAN::Shell::mkmyconfig ;\nsub mkmyconfig {\n my($self, $cpanpm, %args) = @_;\n require CPAN::FirstTime;\n my $home"..., 4096) = 4096 24717 brk(0x1d224000) = 0x1d224000 24717 read(4, "ort keys %stems) {\n my $highest;\n if (@{$stems{$_}} > 1) {\n $highest = List::Util::reduce {\n Sort::Versions::versioncmp($a,$b) > 0 ? $a : $b\n } @{$stems{$_}};\n } else {\n $highest = $stems{$_}[0];\n }\n $CPAN::Frontend->myprint(\"$highest\\n\");\n }\n}\n\n#-> sub CPAN::Shell::report ;\nsub report {\n my($self,@args) = @_;\n unless ($CPAN::META->has_inst(\"CPAN::Reporter\")) {\n $CPAN::Frontend->mydie(\"CPAN::Repo"..., 4096) = 4096 24717 read(4, "$module->inst_version;\n local($^W) = 0;\n if ($have eq \"undef\") {\n $version_undefs++;\n push @version_undefs, $module->as_glimpse;\n } elsif (CPAN::Version->vcmp($have,0)==0) {\n $version_zeroes++;\n push @version_zeroes, $module->as_glimpse;\n }\n next MODULE unless CPAN::Version->vgt($latest, $have);\n# to be pedantic we should probably say:\n# && !($"..., 4096) = 4096 24717 brk(0x1d245000) = 0x1d245000 24717 read(4, " they are\\n\\t@version_undefs\\n});\n $CPAN::Frontend->myprint(qq{(use \'o conf show_unparsable_versions 0\' }.\n qq{to hide them)\\n});\n } else {\n $CPAN::Frontend->myprint(qq{(use \'o conf show_unparsable_versions 1\' }.\n qq{to show them)\\n});\n }\n }\n }\n @result;\n}\n\n#-> sub CPAN::Shell::r ;\nsub r {\n shift->_u_r_common(\"r\",@_);\n}\n\n#-> sub CPAN::Shell::u ;\nsub"..., 4096) = 4096 24717 read(4, " \"CPAN::META\",\n Devel::Size::total_size($CPAN::META)/1024,\n ));\n for my $k (sort keys %$CPAN::META) {\n next unless substr($k,0,4) eq \"read\";\n warn sprintf \" %-26s %6d\\n\", $k, Devel::Size::total_size($CPAN::META->{$k})/1024;\n for my $k2 (sort keys %{$CPAN::META->{$k}}) {\n warn sprintf \" %-25s %6d (keys: %6d)\\n\",\n $k2,\n Devel::Size::total_size($CPAN::MET"..., 4096) = 4096 24717 brk(0x1d266000) = 0x1d266000 24717 read(4, "methods,@args) = @_;\n my($arg,@m);\n for $arg (@args) {\n my($regex,$command);\n if ($arg =~ m|^/(.*)/$|) {\n $regex = $1;\n# FIXME: there seem to be some =\'s in the author data, which trigger\n# a failure here. This needs to be contemplated.\n# } elsif ($arg =~ m/=/) {\n# $command = 1;\n }\n my $obj;\n CPAN->debug(sprintf \"class[%s]regex[%s]command[%s]\",\n $class,\n defined $regex ? "..., 4096) = 4096 24717 read(4, "$_->as_glimpse} @result),\n scalar @result, \" items found\\n\",\n );\n $result;\n}\n\n#-> sub CPAN::Shell::report_fh ;\n{\n my $installation_report_fh;\n my $previously_noticed = 0;\n\n sub report_fh {\n return $installation_report_fh if $installation_report_fh;\n if ($CPAN::META->has_usable(\"File::Temp\")) {\n $installation_report_fh\n = File::Temp->new(\n dir => File::Spec->tmp"..., 4096) = 4096 24717 read(4, "\n\n#-> sub CPAN::Shell::myexit ;\nsub myexit {\n my($self,$what) = @_;\n $self->myprint($what);\n exit;\n}\n\n#-> sub CPAN::Shell::mywarn ;\nsub mywarn {\n my($self,$what) = @_;\n $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||\'bold red on_white\');\n}\n\n# only to be used for shell commands\n#-> sub CPAN::Shell::mydie ;\nsub mydie {\n my($self,$what) = @_;\n $self->mywarn($what);\n\n # If it is the shell, we want the following die to be silent,\n # but if it is not the shel"..., 4096) = 4096 24717 brk(0x1d287000) = 0x1d287000 24717 read(4, " \"not supported.\\nRejecting argument \'$s\'\\n\");\n $CPAN::Frontend->mysleep(2);\n next;\n }\n } elsif ($meth eq \"ls\") {\n $self->globls($s,\\@pragma);\n next STHING;\n } else {\n CPAN->debug(\"calling expandany [$s]\") if $CPAN::DEBUG;\n $obj = CPAN::Shell->expandany($s);\n }\n if (0) {\n } elsif (ref $obj) {\n if ($meth =~ /^($needs_recursion_protection)$/) {\n "..., 4096) = 4096 24717 read(4, "build_requires\' to \'requires\'\");\n }\n }\n } else {\n $obj->{reqtype} = $reqtype;\n }\n\n for my $pragma (@pragma) {\n if ($pragma\n &&\n $obj->can($pragma)) {\n $obj->$pragma($meth);\n }\n }\n if (UNIVERSAL::can($obj, \'called_for\')) {\n $obj->called_for($s);\n }\n CPAN->debug(qq{pragma[@pragma]meth[$meth]}.\n qq{ID[$obj->{ID}]}) if "..., 4096) = 4096 24717 read(4, "(\"//*[local-name(.) = \'RDF\']/*[local-name(.) = \'channel\']/*[local-name(.) = \'date\']\");\n $CPAN::Frontend->myprint(\" dc:date: $dc_date\\n\\n\");\n my $finish_eitem = 0;\n local $SIG{INT} = sub { $finish_eitem = 1 };\n EITEM: for my $eitem ($xml->findnodes(\"//*[local-name(.) = \'RDF\']/*[local-name(.) = \'item\']\")) {\n my $distro = $eitem->findvalue(\"\\@rdf:about\");\n $distro =~ s|.*~||; # remove up to the tilde before the name\n $distr"..., 4096) = 4096 24717 brk(0x1d2a8000) = 0x1d2a8000 24717 read(4, "on needed!\n (Note: to permanently configure username and password run\n o conf proxy_user your_username\n o conf proxy_pass your_password\n )\\nUsername:\";\n ($user, $password) =\n _get_username_and_password_from_user($username_prompt);\n return ($user,$password);\n}\n\nsub get_non_proxy_credentials {\n my $self = shift;\n my ($user,$password);\n if ( defined $CPAN::Config->{username} &&\n defined $CPAN::Config->{password}) {\n $user = $CPAN::Config->{username};\n "..., 4096) = 4096 24717 read(4, "leep);\n if ($sleep <= 3) {\n $sleep+=0.33;\n } elsif ($sleep <=6) {\n $sleep+=0.11;\n }\n }\n my $stats = eval { CPAN->_yaml_loadfile($file); };\n if ($@) {\n if (ref $@) {\n if (ref $@ eq \"CPAN::Exception::yaml_not_installed\") {\n $CPAN::Frontend->myprint(\"Warning (usually harmless): $@\");\n return;\n } elsif (ref $@ eq \"CPAN::Exception::yaml_process_error\") {\n $CPAN::Frontend->mydi"..., 4096) = 4096 24717 brk(0x1d2c9000) = 0x1d2c9000 24717 read(4, " } else {\n return ();\n }\n}\n\n#-> sub CPAN::FTP::_get_urllist\nsub _get_urllist {\n my($self) = @_;\n $CPAN::Config->{urllist} ||= [];\n unless (ref $CPAN::Config->{urllist} eq \'ARRAY\') {\n $CPAN::Frontend->mywarn(\"Malformed urllist; ignoring. Configuration file corrupt?\\n\");\n $CPAN::Config->{urllist} = [];\n }\n my @urllist = grep { defined $_ and length $_ } @{$CPAN::Config->{urllist}};\n for my $u (@urllist) {\n CPAN->debug(\"u[$u]\") if $CPAN::DEBUG;\n "..., 4096) = 4096 24717 read(4, " && !($force & 1)) {\n my $size;\n if ($size = -s $aslocal) {\n $self->debug(\"aslocal[$aslocal]size[$size]\") if $CPAN::DEBUG;\n return $aslocal;\n } else {\n # empty file from a previous unsuccessful attempt to download it\n unlink $aslocal or\n $CPAN::Frontend->mydie(\"Found a zero-length \'$aslocal\' that I \".\n \"could not remove.\");\n }\n }\n my($maybe_restore) = 0;\n if (-f $"..., 4096) = 4096 24717 read(4, " my $answer = CPAN::Shell::colorable_makemaker_prompt(\"Is it OK to try to connect to the Internet?\", \"yes\");\n if ($answer =~ /^y/i) {\n $connect_to_internet_ok = 1;\n } else {\n $connect_to_internet_ok = 0;\n }\n }\n if ($connect_to_internet_ok) {\n @urllist = @CPAN::Defaultsites;\n } else {\n @urllist = ();\n }\n } else {\n "..., 4096) = 4096 24717 brk(0x1d2ea000) = 0x1d2ea000 24717 read(4, " };\n}\n\n# package CPAN::FTP;\nsub hostdleasy {\n my($self,$host_seq,$file,$aslocal,$stats) = @_;\n my($ro_url);\n HOSTEASY: for $ro_url (@$host_seq) {\n $self->_set_attempt($stats,\"dleasy\",$ro_url);\n my $url .= \"$ro_url$file\";\n $self->debug(\"localizing perlish[$url]\") if $CPAN::DEBUG;\n if ($url =~ /^file:/) {\n my $l;\n if ($CPAN::META->has_inst(\'URI::URL\')) {\n my $u = URI::URL->new($url);\n "..., 4096) = 4096 24717 read(4, "*)|) {\n # that\'s the nice and easy way thanks to Graham\n $self->debug(\"recognized ftp\") if $CPAN::DEBUG;\n my($host,$dir,$getfile) = ($1,$2,$3);\n if ($CPAN::META->has_usable(\'Net::FTP\')) {\n $dir =~ s|/+|/|g;\n $CPAN::Frontend->myprint(\"Fetching with Net::FTP:\n $url\n\");\n $self->debug(\"getfile[$getfile]dir[$dir]host[$host]\" .\n \"aslocal[$aslocal]\") if $CPAN::DEBUG;\n if "..., 4096) = 4096 24717 brk(0x1d30b000) = 0x1d30b000 24717 read(4, " $stdout_redir = \"\";\n }\n $CPAN::Frontend->myprint(\n qq[\nTrying with \"$funkyftp$src_switch\" to get\n $url\n]);\n my($system) =\n \"$chdir$funkyftp$src_switch \\\"$url\\\" $devnull$stdout_redir\";\n $self->debug(\"system[$system]\") if $CPAN::DEBUG;\n my($wstatus) = system($system);\n if ($f eq \"lynx\") {\n # lynx returns 0 when it fails somewhere\n if (-s "..., 4096) = 4096 24717 read(4, " leads to problems that are hard to diagnose.\n\nIf you\'re victim of such problems, please consider unsetting the ftp\nconfig variable with\n\n o conf ftp \"\"\n o conf commit\n\n});\n $CPAN::Frontend->mysleep(2);\n HOSTHARDEST: for $ro_url (@$host_seq) {\n $self->_set_attempt($stats,\"dlhardest\",$ro_url);\n my $url = \"$ro_url$file\";\n $self->debug(\"localizing ftpwise[$url]\") if $CPAN::DEBUG;\n unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {\n next;\n }\n "..., 4096) = 4096 24717 read(4, "ailed!\\n\");\n }\n return if $CPAN::Signal;\n $CPAN::Frontend->mywarn(\"Can\'t access URL $url.\\n\\n\");\n $CPAN::Frontend->mysleep(2);\n } # host\n}\n\n# package CPAN::FTP;\nsub talk_ftp {\n my($self,$command,@dialog) = @_;\n my $fh = FileHandle->new;\n $fh->open(\"|$command\") or die \"Couldn\'t open ftp: $!\";\n foreach (@dialog) { $fh->print(\"$_\\n\") }\n $fh->close; # Wait for process to complete\n my $wstatus = $?;\n my $estatus = $wstatus >> 8;\n $CPAN::Frontend-"..., 4096) = 4096 24717 brk(0x1d32c000) = 0x1d32c000 24717 read(4, "\nsub protected { shift->{\'protected\'} }\nsub contains {\n my($self,$mach) = @_;\n for ( @{$self->{\'mach\'}} ) {\n return 1 if $_ eq $mach;\n }\n return 0;\n}\n\npackage CPAN::Complete;\nuse strict;\n\nsub gnu_cpl {\n my($text, $line, $start, $end) = @_;\n my(@perlret) = cpl($text, $line, $start);\n # find longest common match. Can anybody show me how to peruse\n # T::R::Gnu to have this done automatically? Seems expensive.\n return () unless @perlret;\n my($newtext) = $text;\n"..., 4096) = 4096 24717 brk(0x1d34d000) = 0x1d34d000 24717 read(4, "class->reload(1);\n}\n\n#-> sub CPAN::Index::reload ;\nsub reload {\n my($self,$force) = @_;\n my $time = time;\n\n # XXX check if a newer one is available. (We currently read it\n # from time to time)\n for ($CPAN::Config->{index_expire}) {\n $_ = 0.001 unless $_ && $_ > 0.001;\n }\n unless (1 || $CPAN::Have_warned->{readmetadatacache}++) {\n # debug here when CPAN doesn\'t seem to read the Metadata\n require Carp;\n Carp::cluck(\"META-PROTOCOL[$CPAN::META->{PROTO"..., 4096) = 4096 24717 read(4, "\n my $dirent = $candidates[$i];\n my $y = eval {CPAN->_yaml_loadfile(File::Spec->catfile($d,$dirent))};\n if ($@) {\n warn \"Error while parsing file \'$dirent\'; error: \'$@\'\";\n next DISTRO;\n }\n my $c = $y->[0];\n if ($c && CPAN->_perl_fingerprint($c->{perl})) {\n my $key = $c->{distribution}{ID};\n for my $k (keys %{$c->{distribution}}) {\n if ($c->{distribution}{$k}\n && ref $c->{distri"..., 4096) = 4096 24717 read(4, ";\n $fullname ||= $email;\n if ($userid && $fullname && $email) {\n my $userobj = $CPAN::META->instance(\'CPAN::Author\',$userid);\n $userobj->set(\'FULLNAME\' => $fullname, \'EMAIL\' => $email);\n } else {\n CPAN->debug(sprintf \"line[%s]\", $_) if $CPAN::DEBUG;\n }\n $i++;\n while (($painted/76) < ($i/@lines)) {\n $CPAN::Frontend->myprint(\".\");\n $painted++;\n }\n return if $CPAN::Signal;\n }\n $CPAN:"..., 4096) = 4096 24717 brk(0x1d36e000) = 0x1d36e000 24717 read(4, " $DATE_OF_02,\n );\n\n }\n }\n\n\n # A necessity since we have metadata_cache: delete what isn\'t\n # there anymore\n my $secondtime = $CPAN::META->exists(\"CPAN::Module\",\"CPAN\");\n CPAN->debug(\"secondtime[$secondtime]\") if $CPAN::DEBUG;\n my(%exists);\n my $i = 0;\n my $painted = 0;\n foreach (@lines) {\n # before 1.56 we split into 3 and discarded the rest. From\n # 1.57 we assign remaining text to $comment thus allowing to\n # influen"..., 4096) = 4096 24717 read(4, "my($cl,$index_target) = @_;\n return unless defined $index_target;\n return if CPAN::_sqlite_running;\n $CPAN::Frontend->myprint(\"Going to read $index_target\\n\");\n my $fh = CPAN::Tarzip->TIEHANDLE($index_target);\n local $_;\n my $slurp = \"\";\n my $chunk;\n while (my $bytes = $fh->READ(\\$chunk,8192)) {\n $slurp.=$chunk;\n }\n my @eval2 = split /\\012/, $slurp;\n\n while (@eval2) {\n my $shift = shift(@eval2);\n if ($shift =~ /^Date:\\s+(.*)/) {\n i"..., 4096) = 4096 24717 read(4, "heck\n $CPAN::Frontend->myprint(\"Warning: Found no data in $metadata_file\\n\");\n return;\n }\n if ($idcnt < 1000) {\n $CPAN::Frontend->myprint(\"Warning: Found only $idcnt objects \".\n \"in $metadata_file\\n\");\n return;\n }\n $CPAN::META->{PROTOCOL} ||=\n $cache->{PROTOCOL}; # reading does not up or downgrade, but it\n # does initialize to some protocol\n $LAST_TIME = $cache->{last_time};\n $DATE_OF_"..., 4096) = 4096 24717 brk(0x1d38f000) = 0x1d38f000 24717 read(4, "//;\n push @m, $class, \" id = $self->{ID}\\n\";\n my $ro;\n unless ($ro = $self->ro) {\n if (substr($self->{ID},-1,1) eq \".\") { # directory\n $ro = +{};\n } else {\n $CPAN::Frontend->mywarn(\"Unknown object $self->{ID}\\n\");\n $CPAN::Frontend->mysleep(5);\n return;\n }\n }\n for (sort keys %$ro) {\n # next if m/^(ID|RO)$/;\n my $extra = \"\";\n if ($_ eq \"CPAN_USERID\") {\n $extra .= \" (\";\n $extra"..., 4096) = 4096 24717 read(4, "e = \\&fullname;\n\n#-> sub CPAN::Author::email ;\nsub email { shift->ro->{EMAIL}; }\n\n#-> sub CPAN::Author::ls ;\nsub ls {\n my $self = shift;\n my $glob = shift || \"\";\n my $silent = shift || 0;\n my $id = $self->id;\n\n # adapted from CPAN::Distribution::verifyCHECKSUM ;\n my(@csf); # chksumfile\n @csf = $self->id =~ /(.)(.)(.*)/;\n $csf[1] = join \"\", @csf[0,1];\n $csf[2] = join \"\", @csf[1,2]; # (\"A\",\"AN\",\"ANDK\")\n my(@dl);\n @dl = $self->dir_listing([$csf[0],\"CHECKSUMS\"], 0"..., 4096) = 4096 24717 brk(0x1d3b0000) = 0x1d3b0000 24717 read(4, ">{$f}{isdir}) {\n if ($recursive) {\n my(@dir) = @$chksumfile;\n pop @dir;\n push @dir, $f, \"CHECKSUMS\";\n push @result, map {\n [$_->[0], $_->[1], \"$f/$_->[2]\"]\n } $self->dir_listing(\\@dir,1,$may_ftp);\n } else {\n push @result, [ 0, \"-\", $f ];\n }\n } else {\n push @result, [\n ($cksum->{$f}{\"size\"}||0),\n "..., 4096) = 4096 24717 read(4, "(\"Giving up on downloading yaml file \'$local_wanted\'\\n\");\n }\n my $yaml = CPAN->_yaml_loadfile($local_file)->[0];\n}\n\n#-> sub CPAN::Distribution::cpan_userid\nsub cpan_userid {\n my $self = shift;\n if ($self->{ID} =~ m{[A-Z]/[A-Z\\-]{2}/([A-Z\\-]+)/}) {\n return $1;\n }\n return $self->SUPER::cpan_userid;\n}\n\n#-> sub CPAN::Distribution::pretty_id\nsub pretty_id {\n my $self = shift;\n my $id = $self->id;\n return $id unless $id =~ m|^./../|;\n substr($id,5);\n}\n\n#-> sub CPAN"..., 4096) = 4096 24717 brk(0x1d3d1000) = 0x1d3d1000 24717 read(4, "j = CPAN::Shell->expandany($c);\n unless ($obj->uptodate) {\n my $id = $self->pretty_id;\n $self->debug(\"$id not uptodate due to $c\") if $CPAN::DEBUG;\n return 0;\n }\n }\n return 1;\n}\n\n#-> sub CPAN::Distribution::called_for ;\nsub called_for {\n my($self,$id) = @_;\n $self->{CALLED_FOR} = $id if defined $id;\n return $self->{CALLED_FOR};\n}\n\n#-> sub CPAN::Distribution::get ;\nsub get {\n my($self) = @_;\n $self->debug(\"checking goto id[$self-"..., 4096) = 4096 24717 read(4, "(\"Doing localize\") if $CPAN::DEBUG;\n unless ($local_file =\n CPAN::FTP->localize(\"authors/id/$self->{ID}\",\n $local_wanted)) {\n my $note = \"\";\n if ($CPAN::Index::DATE_OF_02) {\n $note = \"Note: Current database in memory was generated \".\n \"on $CPAN::Index::DATE_OF_02\\n\";\n }\n $CPAN::Frontend->mydie(\"Giving up on \'$local_wanted\'\\n$note\");\n }\n\n $self->debug(\"local_wanted[$local_wanted]local_file[$lo"..., 4096) = 4096 24717 brk(0x1d3f2000) = 0x1d3f2000 24717 read(4, "from to $to: $err\");\n }\n }\n } else { # older code below, still better than nothing when there is no File::Temp\n my($distdir);\n if (@readdir == 1 && -d $readdir[0]) {\n $distdir = $readdir[0];\n $packagedir = File::Spec->catdir($builddir,$distdir);\n $self->debug(\"packagedir[$packagedir]builddir[$builddir]distdir[$distdir]\")\n if $CPAN::DEBUG;\n -d $packagedir and $CPAN::Frontend->myprint(\"Removing previously"..., 4096) = 4096 24717 read(4, "requires perl \'$prereq[0][1]\'\";\n my $id = $self->pretty_id;\n $CPAN::Frontend->mywarn(\"$id $need; you have only $]; giving up\\n\");\n $self->{make} = CPAN::Distrostatus->new(\"NO $need\");\n $self->store_persistent_state;\n return $self->goodbye(\"[prereq] -- NOT OK\");\n } else {\n my $follow = eval {\n $self->follow_prereqs(\"configure_requires_later\", @prereq);\n };\n if (0) {\n } elsif ($follow) {\n return;\n } elsi"..., 4096) = 4096 24717 brk(0x1d413000) = 0x1d413000 24717 read(4, "calize\") if $CPAN::DEBUG;\n return CPAN::FTP->localize(\"authors/id/$norm\",\n $local_wanted);\n}\n\n{\n my $stdpatchargs = \"\";\n #-> CPAN::Distribution::patch\n sub patch {\n my($self) = @_;\n $self->debug(\"checking patches id[$self->{ID}]\") if $CPAN::DEBUG;\n my $patches = $self->prefs->{patches};\n $patches ||= \"\";\n $self->debug(\"patches[$patches]\") if $CPAN::DEBUG;\n if ($patches) {\n return unless @$patches;\n "..., 4096) = 4096 24717 read(4, " return;\n }\n }\n $self->{patched}++;\n }\n return 1;\n }\n}\n\nsub _patch_p_parameter {\n my($self,$fh) = @_;\n my $cnt_files = 0;\n my $cnt_p0files = 0;\n local($_);\n while ($_ = $fh->READLINE) {\n if (\n $CPAN::Config->{applypatch}\n &&\n /\\#\\#\\#\\# ApplyPatch data follows \\#\\#\\#\\#/\n ) {\n return \"applypatch\"\n }\n next unless /^[\\*\\+]{3}\\s(\\S+)/;\n "..., 4096) = 4096 24717 read(4, "pt = \"\n EXE_FILES => [\'$name\'],\n PREREQ_PM => {\n$PREREQ_PM\n },\n\";\n if ($name) {\n my $to_file = File::Spec->catfile($build_dir, $name);\n rename $script_file, $to_file\n or die \"Can\'t rename $script_file to $to_file: $!\";\n }\n }\n\n my $fh = FileHandle->new;\n $fh->open(\">$mpl\")\n or Carp::croak(\"Could not open >$mpl: $!\");\n $fh->print(\n "..., 4096) = 4096 24717 brk(0x1d434000) = 0x1d434000 24717 read(4, " if (eval{CPAN::Tarzip->new($local_file)->gunzip($to)}) {\n $self->{unwrapped} = CPAN::Distrostatus->new(\"YES\");\n } else {\n $self->{unwrapped} = CPAN::Distrostatus->new(\"NO -- uncompressing failed\");\n }\n } else {\n if (File::Copy::cp($local_file,\".\")) {\n $self->{unwrapped} = CPAN::Distrostatus->new(\"YES\");\n } else {\n $self->{unwrapped} = CPAN::Distrostatus->new(\"NO -- copying failed\");\n }\n }\n return $to;\n"..., 4096) = 4096 24717 read(4, "ocal($SIG{PIPE}) = \"IGNORE\";\n my $pager = $CPAN::Config->{\'pager\'} || \"cat\";\n $fh_pager->open(\"|$pager\")\n or die \"Could not open pager $pager\\: $!\";\n my $fh_readme = FileHandle->new;\n $fh_readme->open($local_file)\n or $CPAN::Frontend->mydie(qq{Could not open \"$local_file\": $!});\n $CPAN::Frontend->myprint(qq{\nDisplaying file\n $local_file\nwith pager \"$pager\"\n});\n $fh_pager->print(<$fh_readme>);\n $fh_pager->close;\n}\n\n#-> sub CPAN::Distribution::verifyCHECKSUM ;\ns"..., 4096) = 4096 24717 brk(0x1d455000) = 0x1d455000 24717 read(4, " if ($@) {\n rename $chk_file, \"$chk_file.bad\";\n Carp::confess($@) if $@;\n }\n } else {\n Carp::carp \"Could not open $chk_file for reading\";\n }\n\n if (! ref $cksum or ref $cksum ne \"HASH\") {\n $CPAN::Frontend->mywarn(qq{\nWarning: checksum file \'$chk_file\' broken.\n\nWhen trying to read that file I expected to get a hash reference\nfor further processing, but got garbage instead.\n});\n my $answer = CPAN::Shell::colorable_makemaker_prompt(\"P"..., 4096) = 4096 24717 read(4, " try to correct for it currently in the read_metadata\n# routine, and immediately before we check for a Signal. I hope this\n# works out in one of v1.57_53ff\n\n# \"Force get forgets previous error conditions\"\n\n#-> sub CPAN::Distribution::fforce ;\nsub fforce {\n my($self, $method) = @_;\n $self->force($method,1);\n}\n\n#-> sub CPAN::Distribution::force ;\nsub force {\n my($self, $method,$fforce) = @_;\n my %phase_map = (\n get => [\n \"unwrapped\",\n "..., 4096) = 4096 24717 brk(0x1d476000) = 0x1d476000 24717 read(4, "on::perl ;\nsub perl {\n my ($self) = @_;\n if (! $self) {\n use Carp qw(carp);\n carp __PACKAGE__ . \"::perl was called without parameters.\";\n }\n return CPAN::HandleConfig->safe_quote($CPAN::Perl);\n}\n\n\n#-> sub CPAN::Distribution::make ;\nsub make {\n my($self) = @_;\n if (my $goto = $self->prefs->{goto}) {\n return $self->goto($goto);\n }\n my $make = $self->{modulebuild} ? \"Build\" : \"make\";\n # Emergency brake if they said install Pippi and get newest perl\n "..., 4096) = 4096 24717 read(4, "make: $error\\n\");\n $self->store_persistent_state;\n return;\n }\n } else {\n push @e, \"Has already been made\";\n }\n }\n\n my $later = $self->{later} || $self->{configure_requires_later};\n if ($later) { # see also undelay\n if ($later) {\n push @e, $later;\n }\n }\n\n $CPAN::Frontend->myprint(join \"\", map {\" $_\\n\"} @e) and return if @e;\n $bui"..., 4096) = 4096 24717 read(4, "$CPAN::Config->{inactivity_timeout};\n local $SIG{CHLD}; # = sub { wait };\n if (defined($pid = fork)) {\n if ($pid) { #parent\n # wait;\n waitpid $pid, 0;\n } else { #child\n # note, this exec isn\'t necessary if\n # inactivity_timeout is 0. On the Mac I\'d\n # suggest, we set it always "..., 4096) = 4096 24717 brk(0x1d497000) = 0x1d497000 24717 read(4, "_perl;\n } else {\n if ($self->{modulebuild}) {\n unless (-f \"Build\") {\n my $cwd = CPAN::anycwd();\n $CPAN::Frontend->mywarn(\"Alert: no Build file available for \'make $self->{id}\'\".\n \" in cwd[$cwd]. Danger, Will Robinson!\\n\");\n $CPAN::Frontend->mysleep(5);\n }\n $system = join \" \", $self->_build_command(), $CPAN::Config->{mbuild_arg};\n } else {\n $system = joi"..., 4096) = 4096 24717 read(4, " $ran_into_timeout++;\n } ],\n -re => eval\"qr{.}\",\n );\n if ($match[2]) {\n $but .= $match[2];\n }\n $but .= $expo->clear_accum;\n if ($eof) {\n $expo->soft_close;\n return $expo->exitstatus();\n } elsif ($ran_into_timeout) {\n # warn \"DEBUG: they are asking a question, but[$but]\";\n for (my $i = "..., 4096) = 4096 24717 brk(0x1d4b8000) = 0x1d4b8000 24717 read(4, "arn(\"\'$yaml_module\' not installed, falling back \".\n \"to @fallbacks to read prefs \'$prefs_dir\'\\n\");\n }\n } else {\n unless ($self->{have_complained_about_missing_yaml}++) {\n $CPAN::Frontend->mywarn(\"\'$yaml_module\' not installed, cannot \".\n \"read prefs \'$prefs_dir\'\\n\");\n }\n }\n }\n if (@extensions) {\n my $dh = DirHandle->new($prefs_dir)\n or"..., 4096) = 4096 24717 read(4, " $ok &&= $okm;\n } elsif ($sub_attribute eq \"distribution\") {\n my $okd = $distroid =~ /$qr/;\n $ok &&= $okd;\n } elsif ($sub_attribute eq \"perl\") {\n my $okp = CPAN::find_perl =~ /$qr/;\n $ok &&= $okp;\n } elsif ($sub_attribute eq \"perlconfig\") {\n for my $perlconfigkey (keys %{$matc"..., 4096) = 4096 24717 read(4, "ixh}{args}},\n );\n }\n my $what = sprintf \"make%s_arg\", $whixh eq \"make\" ? \"\" : $whixh;\n $make_x_arg ||= $CPAN::Config->{$what};\n return $make_x_arg;\n}\n\n# CPAN::Distribution::_make_command\nsub _make_command {\n my ($self) = @_;\n if ($self) {\n return\n CPAN::HandleConfig\n ->safe_quote(\n CPAN::HandleConfig->prefs_lookup($self,\n q{make})\n "..., 4096) = 4096 24717 brk(0x1d4d9000) = 0x1d4d9000 24717 read(4, "es}||{}});\n $prereq_pm = {}; # configure_requires defined as \"b\"\n } elsif ($slot eq \"later\") {\n my $prereq_pm_0 = $self->prereq_pm || {};\n for my $reqtype (qw(requires build_requires)) {\n $prereq_pm->{$reqtype} = {%{$prereq_pm_0->{$reqtype}||{}}}; # copy to not pollute it\n for my $k (keys %{$prefs_depends->{$reqtype}||{}}) {\n $prereq_pm->{$reqtype}{$k} = $prefs_depends->{$reqtype}{$k};\n }\n }\n %merged = (%{$prer"..., 4096) = 4096 24717 read(4, "roblematic construct.\n # It helped a lot but broke some day and had to be\n # replaced.\n\n # We must be able to deal with modules that come again and\n # again as a prereq and have themselves prereqs and the\n # queue becomes long but finally we would find the correct\n # order. The RecursiveDependency check should trigger a\n # die when it\'s becoming too weird. Unfortunately removing\n # this next breaks many other"..., 4096) = 4096 24717 read(4, " }\n my $needed_as = exists $prereq_pm->{requires}{$need_module} ? \"r\" : \"b\";\n push @need, [$need_module,$needed_as];\n }\n my @unfolded = map { \"[\".join(\",\",@$_).\"]\" } @need;\n CPAN->debug(\"returning from unsat_prereq[@unfolded]\") if $CPAN::DEBUG;\n @need;\n}\n\n#-> sub CPAN::Distribution::read_yaml ;\nsub read_yaml {\n my($self) = @_;\n return $self->{yaml_content} if exists $self->{yaml_content};\n my $build_dir = $self->{build_dir};\n my $yaml = File::Spec->ca"..., 4096) = 4096 24717 brk(0x1d4fa000) = 0x1d4fa000 24717 read(4, "n/;\n my($p) = m{^[\\#]\n \\s+PREREQ_PM\\s+=>\\s+(.+)\n }x;\n next unless $p;\n # warn \"Found prereq expr[$p]\";\n\n # Regexp modified by A.Speer to remember actual version of file\n # PREREQ_PM hash key wants, then add to\n while ( $p =~ m/(?:\\s)([\\w\\:]+)=>(q\\[.*?\\]|undef),?/g ) {\n # In case a prereq is mentioned twice, complain.\n if"..., 4096) = 4096 24717 read(4, "printf \"NOREPEAT[%s]\", Data::Dumper::Dumper($self)) if $CPAN::DEBUG;\n push @e, \"Won\'t repeat unsuccessful test during this command\";\n }\n\n push @e, $self->{later} if $self->{later};\n push @e, $self->{configure_requires_later} if $self->{configure_requires_later};\n\n if (exists $self->{build_dir}) {\n if (exists $self->{make_test}) {\n if (\n UNIVERSAL::can($self->{make_test},\"failed\") ?\n $self->{mak"..., 4096) = 4096 24717 read(4, "unless $self->{sponsored_mods}{$m} > 0;\n my $m_obj = CPAN::Shell->expand(\"Module\",$m) or next;\n # XXX we need available_version which reflects\n # $ENV{PERL5LIB} so that already tested but not yet\n # installed modules are counted.\n my $available_version = $m_obj->available_version;\n my $available_file = $m_obj->available_file;\n if ($available_version &&\n !CPAN::Version->vlt("..., 4096) = 4096 24717 brk(0x1d51b000) = 0x1d51b000 24717 read(4, "ectory to $self->{build_dir}\") if $CPAN::DEBUG;\n\n if ($^O eq \'MacOS\') {\n Mac::BuildTools::make_clean($self);\n return;\n }\n\n my $system;\n if ($self->{modulebuild}) {\n unless (-f \"Build\") {\n my $cwd = CPAN::anycwd();\n $CPAN::Frontend->mywarn(\"Alert: no Build file available for \'clean $self->{id}\".\n \" in cwd[$cwd]. Danger, Will Robinson!\");\n $CPAN::Frontend->mysleep(5);\n }\n $system = sp"..., 4096) = 4096 24717 read(4, " } else {\n push @e, \"make test had returned bad status, \".\n \"won\'t install without force\"\n }\n }\n if (exists $self->{install}) {\n if (UNIVERSAL::can($self->{install},\"text\") ?\n $self->{install}->text eq \"YES\" :\n $self->{install} =~ /^YES/\n ) {\n $CPAN::Frontend->myprint(\" Already done\\n\");\n $CPAN::META->is_installed($self->{build_dir});\n "..., 4096) = 4096 24717 brk(0x1d53c000) = 0x1d53c000 24717 read(4, "elf->introduce_myself;\n if ( $close_ok ) {\n $CPAN::Frontend->myprint(\" $system -- OK\\n\");\n $CPAN::META->is_installed($self->{build_dir});\n $self->{install} = CPAN::Distrostatus->new(\"YES\");\n } else {\n $self->{install} = CPAN::Distrostatus->new(\"NO\");\n $CPAN::Frontend->mywarn(\" $system -- NOT OK\\n\");\n my $mimc =\n CPAN::HandleConfig->prefs_lookup($self,\n q{make_install_make_command});\n i"..., 4096) = 4096 24717 read(4, "saved_file |\"\n or $CPAN::Frontend->mydie(qq{\nCould not fork \'$html_converter $saved_file\': $!});\n my($fh,$filename);\n if ($CPAN::META->has_usable(\"File::Temp\")) {\n $fh = File::Temp->new(\n dir => File::Spec->tmpdir,\n template => \'cpan_htmlconvert_XXXX\',\n suffix => \'.txt\',\n unlink => 0,\n "..., 4096) = 4096 24717 read(4, " $res->message,\n ));\n return;\n }\n } else {\n $CPAN::Frontend->mywarn(\" LWP not available\\n\");\n return;\n }\n}\n\n#-> sub CPAN::Distribution::_build_command\nsub _build_command {\n my($self) = @_;\n if ($^O eq \"MSWin32\") { # special code needed at least up to\n # Module::Build 0.2611 and 0.2706; a fix\n # in M:B has been prom"..., 4096) = 4096 24717 brk(0x1d55d000) = 0x1d55d000 24717 read(4, " dir => File::Spec->tmpdir,\n template => \'cpan_reports_XXXX\',\n suffix => \'.yaml\',\n unlink => 0,\n );\n my $tfilename = $fh->filename;\n print $fh $yaml;\n close $fh or $CPAN::Frontend->mydie(\"Could not close \'$tfilename\': $!\");\n my $unserialized = CPAN->_yaml_loadfile($tfilename)->[0];\n unlink $tfilename or $CPAN::Frontend->mydie(\"Could not unlink \'"..., 4096) = 4096 24717 read(4, "ng up.\\n\");\n }\n my $dist = $CPAN::META->instance(\'CPAN::Distribution\',\n $self->cpan_file);\n $self->debug(\"before get id[$dist->{ID}]\") if $CPAN::DEBUG;\n $dist->get;\n $self->debug(\"after get id[$dist->{ID}]\") if $CPAN::DEBUG;\n my($todir) = $CPAN::Config->{\'cpan_home\'};\n my(@me,$from,$to,$me);\n @me = split /::/, $self->id;\n $me[-1] .= \".pm\";\n $me = File::Spec->catfile(@me);\n $from ="..., 4096) = 4096 24717 brk(0x1d57e000) = 0x1d57e000 24717 read(4, "NST_VERSION as side effect\n $self->{INST_VERSION};\n}\n\n#-> sub CPAN::Bundle::rematein ;\nsub rematein {\n my($self,$meth) = @_;\n $self->debug(\"self[$self] meth[$meth]\") if $CPAN::DEBUG;\n my($id) = $self->id;\n Carp::croak \"Can\'t $meth $id, don\'t have an associated bundle file. :-(\\n\"\n unless $self->inst_file || $self->cpan_file;\n my($s,%fail);\n for $s ($self->contains) {\n my($type) = $s =~ m|/| ? \'CPAN::Distribution\' :\n $s =~ m|^Bundle::| ? \'CPAN::Bundle"..., 4096) = 4096 24717 read(4, "elsif ($obj->isa(\"CPAN::Distribution\")) {\n if (my $prereq_pm = $obj->prereq_pm) {\n for my $k (keys %$prereq_pm) {\n if (my $want_version = $prereq_pm->{$k}{$self->id}) {\n if (CPAN::Version->vcmp($have_version,$want_version) >= 0) {\n $self->{incommandcolor} = $color;\n return;\n }\n "..., 4096) = 4096 24717 brk(0x1d59f000) = 0x1d59f000 24717 read(4, " PV => $stat->{P}{$ro->{statp}},\n };\n}\n\n#-> sub CPAN::Module::as_string ;\nsub as_string {\n my($self) = @_;\n my(@m);\n CPAN->debug(\"$self entering as_string\") if $CPAN::DEBUG;\n my $class = ref($self);\n $class =~ s/^CPAN:://;\n local($^W) = 0;\n push @m, $class, \" id = $self->{ID}\\n\";\n my $sprintf = \" %-12s %s\\n\";\n push @m, sprintf($sprintf, \'DESCRIPTION\', $self->description)\n if $self->description;\n my $sprintf2 = \" %-12s %s (%s)\\n\";\n my($us"..., 4096) = 4096 24717 read(4, "ION\',\n $self->inst_version) if $local_file;\n join \"\", @m, \"\\n\";\n}\n\n#-> sub CPAN::Module::manpage_headline\nsub manpage_headline {\n my($self,$local_file) = @_;\n my(@local_file) = $local_file;\n $local_file =~ s/\\.pm(?!\\n)\\Z/.pod/;\n push @local_file, $local_file;\n my(@result,$locf);\n for $locf (@local_file) {\n next unless -f $locf;\n my $fh = FileHandle->new($locf)\n or $Carp::Frontend->mydie(\"Couldn\'t open $locf: $!\");\n my $inpo"..., 4096) = 4096 24717 brk(0x1d5c0000) = 0x1d5c0000 24717 read(4, "\n $pack->{reqtype} = $self->{reqtype};\n if (\n exists $pack->{install}\n &&\n (\n UNIVERSAL::can($pack->{install},\"failed\") ?\n $pack->{install}->failed :\n $pack->{install} =~ /^NO/\n )\n ) {\n delete $pack->{install};\n $CPAN::Frontend->mywarn\n (\"Promoting $pack-"..., 4096) = 4096 24717 read(4, "\n }\n return;\n}\n\n#-> sub CPAN::Module::inst_version ;\nsub inst_version {\n my($self) = @_;\n my $parsefile = $self->inst_file or return;\n my $have = $self->parse_version($parsefile);\n $have;\n}\n\n#-> sub CPAN::Module::inst_version ;\nsub available_version {\n my($self) = @_;\n my $parsefile = $self->available_file or return;\n my $have = $self->parse_version($parsefile);\n $have;\n}\n\n#-> sub CPAN::Module::parse_version ;\nsub parse_version {\n my($self,$parsefile) = @_;\n m"..., 4096) = 4096 24717 lseek(4, 361507, SEEK_SET) = 361507 24717 lseek(4, 0, SEEK_CUR) = 361507 24717 close(4) = 0 24717 lseek(3, 1055, SEEK_SET) = 1055 24717 lseek(3, 0, SEEK_CUR) = 1055 24717 pipe([4, 5]) = 0 24717 pipe([6, 7]) = 0 24717 clone(child_stack=0, flags=CLONE_CHILD_CLEARTID|CLONE_CHILD_SETTID|SIGCHLD, child_tidptr=0x2aaaaaabbea0) = 24718 24717 close(7 24718 close(6 24717 <... close resumed> ) = 0 24718 <... close resumed> ) = 0 24718 fcntl(7, F_SETFD, FD_CLOEXEC 24717 close(5 24718 <... fcntl resumed> ) = 0 24717 <... close resumed> ) = 0 24718 dup2(5, 1) = 1 24718 close(5) = 0 24718 close(4) = 0 24717 read(6, 24718 rt_sigaction(SIGFPE, {SIG_DFL}, {SIG_IGN}, 8) = 0 24718 execve("/bin/pwd", ["/bin/pwd"...], ["MANPATH=/usr/lib/courier-imap/man:"..., "HOSTNAME=gs.cpanel.net"..., "TERM=rxvt"..., "SHELL=/bin/bash"..., "HISTSIZE=1000"..., "SSH_CLIENT=208.74.121.102 53155 22"..., "OLDPWD=/home/gameservers/gameserver_files/bf2"..., "SSH_TTY=/dev/pts/0"..., "USER=root"..., "LS_COLORS=no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:bd=40;33;01:cd=40;33;01:or=01;05;37;41:mi=01;05;37;41:ex=01;32:*.cmd=01;32:*.exe=01;32:*.com=01;32:*.btm=01;32:*.bat=01;32:*.sh=01;32:*.csh=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.bz=01;31:*.tz=01;31:*.rpm=01;31:*.cpio=01;31:*.jpg=01;35:*.gif=01;35:*.bmp=01;35:*.xbm=01;35:*.xpm=01;35:*.png=01;35:*.tif=01;35:"..., "MAIL=/var/spool/mail/root"..., "PATH="..., "INPUTRC=/etc/inputrc"..., "PWD=/home/gameservers/gameserver_files"..., "LANG=en_US.UTF-8"..., "SHLVL=1"..., "HOME=/root"..., "LOGNAME=root"..., "SSH_CONNECTION=208.74.121.102 53155 208.74.121.106 22"..., "LESSOPEN=|/usr/bin/lesspipe.sh %s"..., "G_BROKEN_FILENAMES=1"..., "_=/usr/bin/strace"..., "PERL5_CPAN_IS_RUNNING=24717"..., "PERL5_CPANPLUS_IS_RUNNING=24717"...] 24717 <... read resumed> "", 4) = 0 24717 close(6) = 0 24718 <... execve resumed> ) = 0 24717 ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d818710) = -1 EINVAL (Invalid argument) 24718 brk(0 24717 lseek(4, 0, SEEK_CUR 24718 <... brk resumed> ) = 0x1600e000 24717 <... lseek resumed> ) = -1 ESPIPE (Illegal seek) 24718 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaaab000 24717 fstat(4, 24718 uname({sysname="Linux", nodename="gs.cpanel.net", release="2.6.18-53.1.13.el5", version="#1 SMP Tue Feb 12 13:02:30 EST 2008", machine="x86_64"}) = 0 24717 <... fstat resumed> {st_dev=makedev(0, 6), st_ino=13442976, st_mode=S_IFIFO|0600, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2008/04/01-17:48:14, st_mtime=2008/04/01-17:48:14, st_ctime=2008/04/01-17:48:14}) = 0 24718 access("/etc/ld.so.preload", R_OK) = -1 ENOENT (No such file or directory) 24717 read(4, 24718 open("/etc/ld.so.cache", O_RDONLY) = 3 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=20382426, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=112, st_size=49205, st_atime=2008/04/01-17:48:14, st_mtime=2008/03/04-05:08:49, st_ctime=2008/03/04-05:08:49}) = 0 24718 mmap(NULL, 49205, PROT_READ, MAP_PRIVATE, 3, 0) = 0x2aaaaaaac000 24718 close(3) = 0 24718 open("/lib64/libc.so.6", O_RDONLY) = 3 24718 read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240\331a\0269\0\0\0@\0\0\0\0\0\0\0h\254\31\0\0\0\0\0\0\0\0\0@\0008\0\n\0@\0M\0L\0\6\0\0\0\5\0\0\0@\0\0\0\0\0\0\0@\0`\0269\0\0\0@\0`\0269\0\0\0000\2\0\0\0\0\0\0000\2\0\0\0\0\0\0\10\0\0\0\0\0\0\0\3\0\0\0\4\0\0\0000\310\21\0\0\0\0\0000\310q\0269\0\0\0000\310q\0269\0\0\0\34\0\0\0\0\0\0\0\34\0\0\0\0\0\0\0\20\0\0\0\0\0\0\0\1\0\0\0\5\0\0\0\0\0\0\0\0\0\0\0\0\0`\0269\0\0\0\0\0`\0269\0\0\0\370\\\24\0\0\0\0\0\370\\\24\0\0\0\0\0\0\0 \0\0\0\0\0\1\0\0\0\6\0\0\0xg\24\0\0\0\0\0xg\224\0269\0\0\0xg\224\0269\0\0\0\0F\0\0\0\0\0\0 \211\0\0\0\0\0\0\0\0 \0\0\0\0\0\2\0\0\0\6\0\0\0`\233\24\0\0\0\0\0`\233\224\0269\0\0\0`\233\224\0269\0\0\0\360\1\0\0\0\0\0\0\360\1\0\0\0\0\0\0\10\0\0\0\0\0\0\0\4\0\0\0\4\0\0\0p\2\0\0\0\0\0\0p\2`\0269\0\0\0p\2`\0269\0\0\0 \0\0\0\0\0\0\0 \0\0\0\0\0\0\0\4\0\0\0\0\0\0\0\7\0\0\0\4\0\0\0xg\24\0\0\0\0\0xg\224\0269\0\0\0xg\224\0269\0\0\0\20\0\0\0\0\0\0\0`\0\0\0\0\0\0\0\10\0\0\0\0\0\0\0P\345td\4\0\0\0L\310\21\0\0\0\0\0L\310q\0269\0\0\0L\310q\0269\0\0\0\314^\0\0\0\0\0\0\314^\0\0"..., 832) = 832 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=39714972, st_mode=S_IFREG|0755, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=3304, st_size=1687464, st_atime=2008/04/01-17:48:14, st_mtime=2007/11/29-20:44:06, st_ctime=2007/12/04-04:04:16}) = 0 24718 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaab9000 24718 mmap(0x3916600000, 3469464, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x3916600000 24718 mprotect(0x3916746000, 2097152, PROT_NONE) = 0 24718 mmap(0x3916946000, 20480, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x146000) = 0x3916946000 24718 mmap(0x391694b000, 16536, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x391694b000 24718 close(3) = 0 24718 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaaaaba000 24718 arch_prctl(ARCH_SET_FS, 0x2aaaaaaba250) = 0 24718 mprotect(0x3916946000, 16384, PROT_READ) = 0 24718 mprotect(0x3916419000, 4096, PROT_READ) = 0 24718 munmap(0x2aaaaaaac000, 49205) = 0 24718 brk(0) = 0x1600e000 24718 brk(0x1602f000) = 0x1602f000 24718 open("/usr/lib/locale/locale-archive", O_RDONLY) = 3 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=33801834, st_mode=S_IFREG|0644, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=110304, st_size=56458928, st_atime=2008/04/01-17:48:14, st_mtime=2007/12/03-05:13:06, st_ctime=2007/12/03-05:13:42}) = 0 24718 mmap(NULL, 56458928, PROT_READ, MAP_PRIVATE, 3, 0) = 0x2aaaaaabb000 24718 close(3) = 0 24718 lstat(".", {st_dev=makedev(253, 0), st_ino=5243213, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-17:31:25, st_mtime=2008/04/01-17:48:14, st_ctime=2008/04/01-17:48:14}) = 0 24718 lstat("/", {st_dev=makedev(253, 0), st_ino=2, st_mode=S_IFDIR|0755, st_nlink=25, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/31-16:33:35, st_ctime=2008/03/31-16:33:35}) = 0 24718 openat(AT_FDCWD, "..", O_RDONLY) = 3 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=143229508, st_mode=S_IFDIR|0755, st_nlink=8, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/04/01-10:15:30, st_ctime=2008/04/01-10:15:30}) = 0 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=143229508, st_mode=S_IFDIR|0755, st_nlink=8, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/04/01-10:15:30, st_ctime=2008/04/01-10:15:30}) = 0 24718 fcntl(3, F_GETFL) = 0x8000 (flags O_RDONLY|O_LARGEFILE) 24718 fcntl(3, F_SETFD, FD_CLOEXEC) = 0 24718 getdents(3, {{d_ino=148504676, d_off=682762252, d_reclen=24, d_name="aa"} {d_ino=143032321, d_off=747292057, d_reclen=24, d_name=".."} {d_ino=5243213, d_off=868047221, d_reclen=40, d_name="gameserver_files"} {d_ino=126091267, d_off=983128434, d_reclen=40, d_name="AA2831_Maps.zip"} {d_ino=145391953, d_off=1143043078, d_reclen=40, d_name="hl2.cpgs.gzip"} {d_ino=143228935, d_off=1276065948, d_reclen=48, d_name="ETQW-server-1.4-full.x86.run"} {d_ino=144769025, d_off=1322613696, d_reclen=24, d_name="etqw"} {d_ino=5146429, d_off=1669607329, d_reclen=24, d_name="game"} {d_ino=143229509, d_off=1916124644, d_reclen=48, d_name="gameserver_files_orig"} {d_ino=143327233, d_off=2051686141, d_reclen=40, d_name="gameserver_files2"} {d_ino=143228936, d_off=2076458371, d_reclen=48, d_name="AA2831_LinuxRuntime.zip"} {d_ino=143229508, d_off=2147483647, d_reclen=24, d_name="."}}, 4096) = 424 24718 newfstatat(3, "gameserver_files", {st_dev=makedev(253, 0), st_ino=1207090094, st_mode=02, st_nlink=0, st_uid=16877, st_gid=0, st_blksize=0, st_blocks=4096, st_size=17592186044416, st_atime=1969/12/31-18:00:08, st_mtime=2008/04/01-17:31:25, st_ctime=0}, AT_SYMLINK_NOFOLLOW) = 0 24718 openat(3, "..", O_RDONLY) = 4 24718 fstat(4, {st_dev=makedev(253, 0), st_ino=143032321, st_mode=S_IFDIR|0711, st_nlink=16, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/11-15:23:01, st_ctime=2008/03/11-15:23:01}) = 0 24718 close(3) = 0 24718 fstat(4, {st_dev=makedev(253, 0), st_ino=143032321, st_mode=S_IFDIR|0711, st_nlink=16, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/11-15:23:01, st_ctime=2008/03/11-15:23:01}) = 0 24718 fcntl(4, F_GETFL) = 0x8000 (flags O_RDONLY|O_LARGEFILE) 24718 fcntl(4, F_SETFD, FD_CLOEXEC) = 0 24718 getdents(4, {{d_ino=143100854, d_off=525615835, d_reclen=24, d_name="cpgs"} {d_ino=143065394, d_off=672066678, d_reclen=32, d_name="scott"} {d_ino=143065388, d_off=682762252, d_reclen=24, d_name="nick"} {d_ino=2, d_off=996340787, d_reclen=24, d_name=".."} {d_ino=143032491, d_off=1001513696, d_reclen=32, d_name=".cpan"} {d_ino=143065370, d_off=1179237883, d_reclen=32, d_name="gatekeep"} {d_ino=143035212, d_off=1307103521, d_reclen=40, d_name="b_a_c_k_u_p_s"} {d_ino=143133927, d_off=1315271843, d_reclen=40, d_name="MySQL-install"} {d_ino=154763373, d_off=1348352980, d_reclen=32, d_name="rootkit"} {d_ino=143065400, d_off=1384551383, d_reclen=32, d_name="darren"} {d_ino=143032322, d_off=1776488563, d_reclen=32, d_name=".cpcpan"} {d_ino=143065382, d_off=1829678330, d_reclen=24, d_name="ben"} {d_ino=143229508, d_off=1898923179, d_reclen=32, d_name="gameservers"} {d_ino=154861608, d_off=1932729492, d_reclen=32, d_name="gametest"} {d_ino=143065376, d_off=2076458371, d_reclen=24, d_name="adam"} {d_ino=143032321, d_off=2147483647, d_reclen=24, d_name="."}}, 4096) = 480 24718 newfstatat(4, "gameservers", {st_dev=makedev(253, 0), st_ino=1207062930, st_mode=010, st_nlink=0, st_uid=16877, st_gid=0, st_blksize=0, st_blocks=4096, st_size=17592186044416, st_atime=1969/12/31-18:00:08, st_mtime=2008/04/01-17:48:14, st_ctime=0}, AT_SYMLINK_NOFOLLOW) = 0 24718 openat(4, "..", O_RDONLY) = 3 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=2, st_mode=S_IFDIR|0755, st_nlink=25, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/31-16:33:35, st_ctime=2008/03/31-16:33:35}) = 0 24718 close(4) = 0 24718 fstat(3, {st_dev=makedev(253, 0), st_ino=2, st_mode=S_IFDIR|0755, st_nlink=25, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-17:48:02, st_mtime=2008/03/31-16:33:35, st_ctime=2008/03/31-16:33:35}) = 0 24718 fcntl(3, F_GETFL) = 0x8000 (flags O_RDONLY|O_LARGEFILE) 24718 fcntl(3, F_SETFD, FD_CLOEXEC) = 0 24718 getdents(3, {{d_ino=153092097, d_off=214523674, d_reclen=24, d_name="mnt"} {d_ino=148668417, d_off=234772333, d_reclen=24, d_name="boot"} {d_ino=39714817, d_off=249937515, d_reclen=32, d_name="lib64"} {d_ino=150667265, d_off=302430755, d_reclen=24, d_name="proc"} {d_ino=98309, d_off=499525090, d_reclen=32, d_name="aquota.user"} {d_ino=120029185, d_off=682762252, d_reclen=24, d_name="srv"} {d_ino=2, d_off=686639298, d_reclen=24, d_name=".."} {d_ino=71270401, d_off=726338135, d_reclen=24, d_name="sbin"} {d_ino=21921793, d_off=910262138, d_reclen=24, d_name="bin"} {d_ino=111214593, d_off=974840082, d_reclen=24, d_name="lib"} {d_ino=33783809, d_off=1153884427, d_reclen=24, d_name="usr"} {d_ino=53182465, d_off=1159964903, d_reclen=32, d_name="selinux"} {d_ino=105381889, d_off=1198592833, d_reclen=24, d_name="root"} {d_ino=115343361, d_off=1246577127, d_reclen=32, d_name="media"} {d_ino=56033281, d_off=1279423037, d_reclen=24, d_name="net"} {d_ino=145293313, d_off=1333885827, d_reclen=24, d_name="sys"} {d_ino=20381697, d_off=1417361527, d_reclen=24, d_name="etc"} {d_ino=68780033, d_off=1514487187, d_reclen=24, d_name="tmp"} {d_ino=98307, d_off=1545813503, d_reclen=32, d_name="quota.user"} {d_ino=36601857, d_off=1584007881, d_reclen=24, d_name="var"} {d_ino=15663105, d_off=1650476036, d_reclen=32, d_name="scripts"} {d_ino=98305, d_off=1664923542, d_reclen=32, d_name=".autorelabel"} {d_ino=98762753, d_off=1843664211, d_reclen=24, d_name="misc"} {d_ino=39550977, d_off=1884318306, d_reclen=24, d_name="opt"} {d_ino=4227361, d_off=1915563596, d_reclen=32, d_name=".autofsck"} {d_ino=11, d_off=1996826403, d_reclen=32, d_name="lost+found"} {d_ino=143032321, d_off=2038865298, d_reclen=24, d_name="home"} {d_ino=74252289, d_off=2076458371, d_reclen=24, d_name="dev"} {d_ino=2, d_off=2147483647, d_reclen=24, d_name="."}}, 4096) = 768 24718 newfstatat(3, "home", {st_dev=makedev(253, 0), st_ino=1205266981, st_mode=020, st_nlink=0, st_uid=16841, st_gid=0, st_blksize=0, st_blocks=4096, st_size=17592186044416, st_atime=1969/12/31-18:00:16, st_mtime=2008/04/01-17:48:14, st_ctime=0}, AT_SYMLINK_NOFOLLOW) = 0 24718 close(3) = 0 24718 fstat(1, {st_dev=makedev(0, 6), st_ino=13442976, st_mode=S_IFIFO|0600, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2008/04/01-17:48:14, st_mtime=2008/04/01-17:48:14, st_ctime=2008/04/01-17:48:14}) = 0 24718 mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2aaaae093000 24718 write(1, "/home/gameservers/gameserver_files\n", 35) = 35 24717 <... read resumed> "/home/gameservers/gameserver_files\n", 4096) = 35 24718 close(1 24717 read(4, 24718 <... close resumed> ) = 0 24717 <... read resumed> "", 4096) = 0 24718 munmap(0x2aaaae093000, 4096 24717 fstat(4, {st_dev=makedev(0, 6), st_ino=13442976, st_mode=S_IFIFO|0600, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=0, st_size=0, st_atime=2008/04/01-17:48:14, st_mtime=2008/04/01-17:48:14, st_ctime=2008/04/01-17:48:14}) = 0 24718 <... munmap resumed> ) = 0 24717 close(4 24718 exit_group(0) = ? 24717 <... close resumed> ) = 0 24717 rt_sigaction(SIGHUP, {SIG_IGN}, {SIG_IGN}, 8) = 0 24717 rt_sigaction(SIGINT, {SIG_IGN}, {SIG_IGN}, 8) = 0 24717 --- SIGCHLD (Child exited) @ 0 (0) --- 24717 rt_sigaction(SIGQUIT, {SIG_IGN}, {SIG_IGN}, 8) = 0 24717 wait4(24718, [{WIFEXITED(s) && WEXITSTATUS(s) == 0}], 0, NULL) = 24718 24717 rt_sigaction(SIGHUP, {SIG_IGN}, NULL, 8) = 0 24717 rt_sigaction(SIGINT, {SIG_IGN}, NULL, 8) = 0 24717 rt_sigaction(SIGQUIT, {SIG_IGN}, NULL, 8) = 0 24717 stat("/usr/kerberos/sbin", {st_dev=makedev(253, 0), st_ino=34079029, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/03-05:22:13, st_ctime=2007/12/03-05:22:13}) = 0 24717 stat("/usr/kerberos/bin", {st_dev=makedev(253, 0), st_ino=34078980, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/03-05:22:13, st_ctime=2007/12/03-05:22:13}) = 0 24717 stat("/usr/lib/courier-imap/sbin", {st_dev=makedev(253, 0), st_ino=34440391, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=1, st_gid=1, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/12/04-04:04:34, st_ctime=2007/12/04-04:04:34}) = 0 24717 stat("/usr/lib/courier-imap/bin", {st_dev=makedev(253, 0), st_ino=34440355, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=1, st_gid=1, st_blksize=4096, st_blocks=8, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/01/14-04:02:14, st_ctime=2008/01/14-04:02:14}) = 0 24717 stat("/usr/local/sbin", {st_dev=makedev(253, 0), st_ino=33783842, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2007/11/26-15:13:04, st_ctime=2007/11/26-15:13:04}) = 0 24717 stat("/usr/local/bin", {st_dev=makedev(253, 0), st_ino=33783835, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/02/07-05:11:44, st_ctime=2008/02/07-05:11:44}) = 0 24717 stat("/sbin", {st_dev=makedev(253, 0), st_ino=71270401, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12288, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:46, st_ctime=2008/03/05-04:02:46}) = 0 24717 stat("/bin", {st_dev=makedev(253, 0), st_ino=21921793, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:48, st_ctime=2008/03/05-04:02:48}) = 0 24717 stat("/usr/sbin", {st_dev=makedev(253, 0), st_ino=33783810, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=32, st_size=12288, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:48, st_ctime=2008/03/05-04:02:48}) = 0 24717 stat("/usr/bin", {st_dev=makedev(253, 0), st_ino=33783818, st_mode=S_IFDIR|0755, st_nlink=2, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=64, st_size=28672, st_atime=2008/04/01-14:06:39, st_mtime=2008/03/05-04:02:49, st_ctime=2008/03/05-04:02:49}) = 0 24717 stat("/root/bin", 0x7fff9d818930) = -1 ENOENT (No such file or directory) 24717 stat("/home/gameservers/gameserver_files//usr/bin/perl", 0x7007c0) = -1 ENOENT (No such file or directory) 24717 brk(0x1d5e1000) = 0x1d5e1000 24717 read(3, "\t\tCPAN::Shell->install(\'IPC::Run\');\n#\t\tuse IPC::Run;\n \texit(0);\n \t} else {\n\t\tprint \"okasdasdasdasdasdas\\n\\n\\n\\n\\n\";\n# \tuse IPC::Run qw(run timeout start harness pump finish);\n\t}\n};\n\nuse POSIX qw(setsid setuid setgid sys_wait_h);\nuse Socket;\nuse cPGSLib;\nuse Fcntl qw(:DEFAULT :flock);\nuse strict;\nuse Carp ();\nuse IO::Select;\nuse Time::HiRes qw(usleep ualarm gettimeofday tv_interval);\n\n\nlocal $SIG{__WARN__} = \\&Carp::cluck;\n\n#$|=1;\n\n\nundef(%ENV);\n$ENV{PATH} = \'/bin:/usr/bin:/usr/loc"..., 4096) = 4096 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.7/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.7/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.6/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.6/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.5/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.5/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 stat("/var/cpanel/cpgs/IPC/Run.pmc", 0x7fff9d818480) = -1 ENOENT (No such file or directory) 24717 stat("/var/cpanel/cpgs/IPC/Run.pm", 0x7fff9d818340) = -1 ENOENT (No such file or directory) 24717 write(1, "You must have the perl module IPC::Run installed on this server.\n", 65) = 65 24717 write(1, "The gcc compiler must also exist, something like `yum install gcc` should do it, depending on your OS.\n", 103) = 103 24717 write(1, "Try `perl -MCPAN -e\'force install IPC::Run\'` as root to install the module.\n", 76) = 76 24717 ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {c_iflags=0x500, c_oflags=0x5, c_cflags=0xbf, c_lflags=0x8a3b, c_line=0, c_cc="\x03\x1c\x7f\x15\x04\x00\x01\x00\x11\x13\x1a\x00\x12\x0f\x17\x16\x00\x00\x00"}) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/HomeDir.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/HomeDir.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/HomeDir.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/HomeDir.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/File/HomeDir.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/File/HomeDir.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir.pm", {st_dev=makedev(253, 0), st_ino=34144298, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=18326, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/03-11:26:49, st_ctime=2008/02/05-05:07:57}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir.pm", O_RDONLY) = 4 24717 ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d818620) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(4, 0, SEEK_CUR) = 0 24717 read(4, "package File::HomeDir;\n\n# See POD at end for docs\n\nuse 5.005;\nuse strict;\nuse Carp ();\nuse File::Spec ();\n\n# Globals\nuse vars qw{$VERSION @ISA @EXPORT @EXPORT_OK $IMPLEMENTED_BY};\nBEGIN {\n\t$VERSION = \'0.69\';\n\n\t# Inherit manually\n\trequire Exporter;\n\t@ISA = qw{ Exporter };\n\t@EXPORT = qw{ home };\n\t@EXPORT_OK = qw{\n\t\thome\n\t\tmy_home\n\t\tmy_desktop\n\t\tmy_documents\n\t\tmy_music\n\t\tmy_pictures\n\t\tmy_videos\n\t\tmy_data\n\t\tusers_home\n\t\tusers_desktop\n\t\tusers_documents\n\t\tusers_music\n\t\tusers_picture"..., 4096) = 4096 24717 read(4, "croak(\"Can\'t use undef as a username\");\n\t}\n\tif ( ! length $name ) {\n\t\tCarp::croak(\"Can\'t use empty-string (\\\"\\\") as a username\");\n\t}\n\n\t# A dot also means my home\n\t### Is this meant to mean File::Spec->curdir?\n\tif ( $name eq \'.\' ) {\n\t\treturn my_home();\n\t}\n\n\t# Now hand off to the implementor\n\t$IMPLEMENTED_BY->users_home($name);\n}\n\n\n\n\n\n#####################################################################\n# Tie-Based Interface\n\n# Okay, things below this point get scary\n\nCLASS: {\n\t# Make the class fo"..., 4096) = 4096 24717 lseek(4, 5460, SEEK_SET) = 5460 24717 lseek(4, 0, SEEK_CUR) = 5460 24717 close(4) = 0 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/HomeDir/Unix.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/x86_64-linux/File/HomeDir/Unix.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/HomeDir/Unix.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/5.8.8/File/HomeDir/Unix.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/File/HomeDir/Unix.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/x86_64-linux/File/HomeDir/Unix.pm", 0x7fff9d818840) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir/Unix.pmc", 0x7fff9d818980) = -1 ENOENT (No such file or directory) 24717 stat("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir/Unix.pm", {st_dev=makedev(253, 0), st_ino=34144302, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=8, st_size=2880, st_atime=2008/04/01-17:48:02, st_mtime=2008/02/03-11:26:49, st_ctime=2008/02/05-05:07:57}) = 0 24717 open("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir/Unix.pm", O_RDONLY) = 4 24717 ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff9d818620) = -1 ENOTTY (Inappropriate ioctl for device) 24717 lseek(4, 0, SEEK_CUR) = 0 24717 read(4, "package File::HomeDir::Unix;\n\n# Unix-specific functionality\n\nuse 5.005;\nuse strict;\nuse Carp ();\n\nuse vars qw{$VERSION};\nBEGIN {\n\t$VERSION = \'0.69\';\n}\n\n\n\n#####################################################################\n# Current User Methods\n\nsub my_home {\n\tmy $class = shift;\n\tmy $home = $class->_my_home(@_);\n\n\t# On Unix in general, a non-existant home means \"no home\"\n\t# For example, \"nobody\"-like users might use /nonexistant\n\tif ( defined $home and ! -d $home ) {\n\t\t$home = undef;\n\t}\n\n\tret"..., 4096) = 2880 24717 read(4, "", 4096) = 0 24717 close(4) = 0 24717 stat("/usr/lib/perl5/site_perl/5.8.8/File/HomeDir.pm", {st_dev=makedev(253, 0), st_ino=34144298, st_mode=S_IFREG|0444, st_nlink=1, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=40, st_size=18326, st_atime=2008/04/01-17:48:14, st_mtime=2008/02/03-11:26:49, st_ctime=2008/02/05-05:07:57}) = 0 24717 write(1, "CPAN: File::HomeDir loaded ok (v0.69)\n", 38) = 38 24717 stat("/root", {st_dev=makedev(253, 0), st_ino=105381889, st_mode=S_IFDIR|0750, st_nlink=23, st_uid=0, st_gid=0, st_blksize=4096, st_blocks=16, st_size=4096, st_atime=2008/04/01-10:19:03, st_mtime=2008/03/31-16:34:02, st_ctime=2008/03/31-16:34:02}) = 0 24717 brk(0x1d602000) = 0x1d602000 24717 write(2, "Error while requiring CPAN::MyConfig:\nInsecure dependency in require while running with -T switch at /usr/lib/perl5/5.8.8/CPAN/HandleConfig.pm line 478.\nBEGIN failed--compilation aborted at /var/cpanel/cpgsd.pl line 31.\n", 220) = 220 24717 lseek(3, 1251, SEEK_SET) = 1251 24717 lseek(3, 0, SEEK_CUR) = 1251 24717 close(3) = 0 24717 brk(0x1d601000) = 0x1d601000 24717 exit_group(255) = ?