patch for minor bug in C.pm

[p5pRT]

Migrated from rt.perl.org#5068 (status was 'resolved')

Searchable as RT5068$

[p5pRT]

From [email protected]

This is a bug report for perl from Denis.Goddard@​oracle.com,
generated with the help of perlbug 1.32 running under perl v5.7.0.

---

I tried executing​:
  % perl5.7.0 -MO=C,-O2,-v,-o/tmp/tst.c tst.pl

Where "tst.pl" is simply​:
  BEGIN { print "BEGIN.\n"; }
  INIT { print "INIT.\n"; }
  print "This is the main of a test.\n";
  END { print "END.\n"; }

I got​:
  Starting compile
  Walking tree
  Prescan
  Can't call method "can" without a package or object reference at /home/dgoddard/Perl/perl5.7.0/lib/5.7.0/sun4-solaris/B/C.pm line 1341.
  CHECK failed--call queue aborted.

A simple hack that seemed to fix it​:
  % diff C.pm.orig C.pm.mine
  1341c1341
  < if ($package->can($m))
  ---
  > if ( ($package ne '<none>') && ($package->can($m)) )

Thanks,
-Denis

---

---

Flags​:
  category=core
  severity=medium

---

Site configuration information for perl v5.7.0​:

Configured by dgoddard at Thu Jan 4 15​:27​:09 PST 2001.

Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration​:
  Platform​:
  osname=solaris, osvers=2.6, archname=sun4-solaris
  uname='sunos dlsun469 5.6 generic_105181-16 sun4u sparc sunw,ultra-1 '
  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 ='-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O', cppflags='-I/usr/local/include'
  ccversion='', gccversion='', gccosandvers=''
  intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib '
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -lgdbm -ldl -lm -lc -lcrypt -lsec
  libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
  cccdlflags='-KPIC', lddlflags='-G -L/usr/local/lib'

Locally applied patches​:

---

@​INC for perl v5.7.0​:
  /home/dgoddard/Perl/perl5.7.0/lib/5.7.0/sun4-solaris
  /home/dgoddard/Perl/perl5.7.0/lib/5.7.0
  /home/dgoddard/Perl/perl5.7.0/lib/site_perl/5.7.0/sun4-solaris
  /home/dgoddard/Perl/perl5.7.0/lib/site_perl/5.7.0
  /home/dgoddard/Perl/perl5.7.0/lib/site_perl
  .

---

Environment for perl v5.7.0​:
  HOME=/home/dgoddard
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH=/usr/dt/lib​:/usr/lib​:/usr/local/lib​:/usr/dt/lib​:/usr/openwin/lib​:/usr/ucblib​:/opt/SUNWspro/lib​:/usr/ccs/lib​:/usr/openwin/lib​:/usr/ucblib
  LOGDIR (unset)
  PATH=.​:/bin​:/usr/bin​:/usr/sbin​:/etc​:/usr/ccs/bin​:/usr/atria/bin​:/usr/local/bin​:/usr/dt/bin​:/usr/openwin/bin​:/home/dgoddard/bin​:/opt/SUNWspro/bin​:/usr/ucb
  PERL_BADLANG (unset)
  SHELL=/bin/tcsh

[p5pRT]

From The RT System itself

Seems to have been fixed in patchlevel #8460 (5.7.0 was #7015), the patch #7518 seems to have been the cure.