Hmm, doesn't seem to work on Perl 5.12:
Type of arg 1 to push must be array (not string eq) at trizen_obfus.pl
+ line 12, near "gethostent and"
Type of arg 1 to unshift must be array (not quoted execution (``, qx))
+ at trizen_obfus.pl line 17, near "pos xor"
Type of arg 1 to shift must be array (not umask) at trizen_obfus.pl li
+ne 17, near "pos xor"
Type of arg 1 to splice must be array (not shift) at trizen_obfus.pl l
+ine 17, near "pos xor"
Type of arg 1 to pop must be array (not wantarray) at trizen_obfus.pl
+line 22, near "wantarray and"
Type of arg 1 to shift must be array (not kill) at trizen_obfus.pl lin
+e 22, near "wantarray and"
Type of arg 1 to unshift must be array (not shift) at trizen_obfus.pl
+line 22, near "wantarray and"
Type of arg 1 to splice must be array (not unshift) at trizen_obfus.pl
+ line 22, near "wantarray and"
Execution of trizen_obfus.pl aborted due to compilation errors.
Here's the perl version i'm using:
cavac@planetx:~/src/temp$ perl -V
Summary of my perl5 (revision 5 version 12 subversion 3) configuration
+:
Platform:
osname=linux, osvers=2.6.11-1.1369_fc4, archname=x86_64-linux-thre
+ad-multi
uname='linux perl-linux64-vm 2.6.11-1.1369_fc4 #1 thu jun 2 22:56:
+33 edt 2005 x86_64 x86_64 x86_64 gnulinux '
config_args='-ders -Dcc=gcc -Dusethreads -Duseithreads -Ud_sigsetj
+mp -Uinstallusrbinperl -Ulocincpth= -Uloclibpth= -Duse64bitall -Dlibp
+th=/lib64 /usr/lib64 /usr/local/lib64 -Accflags=-DUSE_SITECUSTOMIZE -
+Duselargefiles -Accflags=-fno-merge-constants -Dprefix=/home/cavac/bi
+n/ActivePerl-5.12 -Dprivlib=/home/cavac/bin/ActivePerl-5.12/lib -Darc
+hlib=/home/cavac/bin/ActivePerl-5.12/lib -Dsiteprefix=/home/cavac/bin
+/ActivePerl-5.12/site -Dsitelib=/home/cavac/bin/ActivePerl-5.12/site/
+lib -Dsitearch=/home/cavac/bin/ActivePerl-5.12/site/lib -Dsed=/bin/se
+d -Duseshrplib -Dcf_by=ActiveState -Dcf_email=support@ActiveState.com
+'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=und
+ef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE
+ -fno-merge-constants -fno-strict-aliasing -pipe -D_LARGEFILE_SOURCE
+-D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE -fno-merg
+e-constants -fno-strict-aliasing -pipe'
ccversion='', gccversion='4.0.0 20050519 (Red Hat 4.0.0-8)', gccos
+andvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=1
+6
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
+ lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='gcc', ldflags =''
libpth=/lib64 /usr/lib64 /usr/local/lib64
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.3.5.so, so=so, useshrplib=true, libperl=libperl.s
+o
gnulibc_version='2.3.5'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -
+Wl,-rpath,/home/cavac/bin/ActivePerl-5.12/lib/CORE'
cccdlflags='-fPIC', lddlflags='-shared -O2'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_
+BIT_ALL
USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
USE_PERLIO USE_PERL_ATOF USE_REENTRANT_API
USE_SITECUSTOMIZE
Locally applied patches:
ActivePerl Build 1204 [294330]
c6fbf28 [perl #71806] perldb does not setup %dbline with the sheba
+ng option -d
1fd8fa4 Add Wolfram Humann to AUTHORS
f120055 make string-append on win32 100 times faster
a2a8d15 Define _USE_32BIT_TIME_T for VC6 and VC7
007cfe1 Don't pretend to support really old VC++ compilers
6d8f7c9 Get rid of obsolete PerlCRT.dll support
d956618 Make Term::ReadLine::findConsole fall back to STDIN if /de
+v/tty can't be opened
321e50c Escape patch strings before embedding them in patchlevel.h
Built under linux
Compiled at Feb 9 2011 14:48:47
@INC:
/home/cavac/bin/ActivePerl-5.12/site/lib
/home/cavac/bin/ActivePerl-5.12/lib
Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.
|