perlcc and C.pm in perl-5.7.0

Environment informations follow at end of message.

C.pm line 1341:
	Current: if($package->can($m)) 
		 That fails if $package is not an object.
	
	Should it not be: if(UNIVERSAL::can($package,$m)

###################################################
###################################################
Compiling with perlcc:
	C-code generation works. But shared objects (.so files) are
	missing in the final 'cc' system() call in perlcc (sub cc_harness).


CURRENT:
 ../PERL5.7/perl ../PERL5.7/perlcc -o schund index.pl
Compiling index.pl
Calling ../PERL5.7/perl -I/usr/local/perl-5.7/lib/5.7.0/i686-linux
-I/usr/local/perl-5.7/lib/5.7.0
-I/usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux
-I/usr/local/perl-5.7/lib/site_perl/5.7.0
-I/usr/local/perl-5.7/lib/site_perl -I.  -MB::Stash -c index.pl
Stash:   main strict VMS VMS::Filespec AutoLoader Storable Carp
Carp::Heavy Log Log::Agent Socket DB Config Fh overload Tie Tie::Hash
Tie::StdHash constant Exporter Exporter::Heavy MD5 warnings
warnings::register vars Apache attributes Digest Digest::Perl
Digest::Perl::MD5 Digest::MD5 MultipartBuffer MacPerl GDBM_File CGI
CGI::Util TempFile Unix Unix::Syslog Fcntl
Writing C on pccDviFM.c
Calling ../PERL5.7/perl -I/usr/local/perl-5.7/lib/5.7.0/i686-linux
-I/usr/local/perl-5.7/lib/5.7.0
-I/usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux
-I/usr/local/perl-5.7/lib/site_perl/5.7.0
-I/usr/local/perl-5.7/lib/site_perl -I. 
-MO=C,-umain,-ustrict,-uVMS,-uVMS::Filespec,-uAutoLoader,-uStorable,-uCarp,-uCarp::Heavy,-uLog,-uLog::Agent,-uSocket,-uDB,-uConfig,-uFh,-uoverload,-uTie,-uTie::Hash,-uTie::StdHash,-uconstant,-uExporter,-uExporter::Heavy,-uMD5,-uwarnings,-uwarnings::register,-uvars,-uApache,-uattributes,-uDigest,-uDigest::Perl,-uDigest::Perl::MD5,-uDigest::MD5,-uMultipartBuffer,-uMacPerl,-uGDBM_File,-uCGI,-uCGI::Util,-uTempFile,-uUnix,-uUnix::Syslog,-uFcntl,-opccDviFM.c
index.pl


running cc  -fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 
-I/usr/local/perl-5.7/lib/5.7.0/i686-linux/CORE  -o schund pccDviFM.c
-rdynamic  -L/usr/local/lib
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/DynaLoader/DynaLoader.a
-L/usr/local/perl-5.7/lib/5.7.0/i686-linux/CORE -lperl -lnsl -lndbm
-lgdbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil
unlinking pccDviFM.c



cc call SHOULD BE (in my opinion):

cc -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 
-I/usr/local/perl-5.7/lib/5.7.0/i686-linux/CORE -o $OUT $IN
-L/usr/local/lib -L/usr/local/perl-5.7/lib/5.7.0/i686-linux/CORE -lperl
-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/DynaLoader/DynaLoader.a
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/IO/IO.so
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/Socket/Socket.so
/usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux/auto/Digest/MD5/MD5.so
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/GDBM_File/GDBM_File.so
/usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux/auto/Storable/Storable.so
/usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux/auto/Unix/Syslog/Syslog.so
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/re/re.so
/usr/local/perl-5.7/lib/5.7.0/i686-linux/auto/Fcntl/Fcntl.so


excuse me if i'm wrong.

daniel stutz

http://www.astaro.com

#########################################################
#########################################################
Environment:

 /usr/local/perl-5.7/bin/perl -V
Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.2.16, archname=i686-linux
    uname='linux varadero 2.2.16 #1 wed aug 2 20:22:26 gmt 2000 i686
unknown '
    config_args=''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O2',
cppflags='-fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.2 19991024 (release)',
gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil
    libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: USE_LARGE_FILES
  Built under linux
  Compiled at Sep  4 2000 10:21:39
  @INC:
    /usr/local/perl-5.7/lib/5.7.0/i686-linux
    /usr/local/perl-5.7/lib/5.7.0
    /usr/local/perl-5.7/lib/site_perl/5.7.0/i686-linux
    /usr/local/perl-5.7/lib/site_perl/5.7.0
    /usr/local/perl-5.7/lib/site_perl
    .

• perlcc and C.pm in perl-5.7.0 by Daniel Stutz