-w switch diagnostics w/ Shell.pm and Config.pm

[p5pRT]

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

Searchable as RT1116$

[p5pRT]

From [email protected]

Shell.pm and Config.pm are producing -w switch diagnostics. Please see the
attached code and output, and modify the modules accordingly. Or counter my
request with a "you are stupid" because, hey, maybe I am. Ah, perl; couldn't
live without it...

Regards,
Dean

$%!&*# --> cat bug.pl
#!/usr/local/bin/perl -w

use strict;
use Config qw(myconfig);
use Shell qw(cp);

cp('jack.txt', 'jill.txt');

print myconfig();

exit(0);
$%!&*# --> bug.pl
Variable "$cmd" will not stay shared at (eval 1) line 14.
Use of uninitialized value at
/usr/local/lib/perl5/sun4m-solaris/5.00401/Config.pm line 553.
Use of uninitialized value at
/usr/local/lib/perl5/sun4m-solaris/5.00401/Config.pm line 553.
Use of uninitialized value at
/usr/local/lib/perl5/sun4m-solaris/5.00401/Config.pm line 553.
Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration​:
  Platform​:
  osname=solaris, osvers=2.5.1, archname=sun4m-solaris
  uname='sunos mdst26 5.5.1 generic_103640-08 sun4m sparc sunw,sparcstation-20
'
  hint=recommended, useposix=true, d_sigaction=define
  bincompat3=y useperlio= d_sfio=
  Compiler​:
  cc='gcc', optimize='-O', gccversion=2.7.2
  cppflags='-I/usr/local/include'
  ccflags ='-I/usr/local/include'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  voidflags=15, castflags=0, d_casti32=define, d_castneg=define
  intsize=4, alignbytes=8, usemymalloc=y, randbits=15
  Linker and Libraries​:
  ld='gcc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
  libc=/lib/libc.so, so=so
  useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
  cccdlflags='-fpic', lddlflags='-G -L/usr/local/lib'

$%!&*# --> /usr/local/bin/perl -V
Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration​:
  Platform​:
  osname=solaris, osvers=2.5.1, archname=sun4m-solaris
  uname='sunos mdst26 5.5.1 generic_103640-08 sun4m sparc sunw,sparcstation-20
'
  hint=recommended, useposix=true, d_sigaction=define
  bincompat3=y useperlio= d_sfio=
  Compiler​:
  cc='gcc', optimize='-O', gccversion=2.7.2
  cppflags='-I/usr/local/include'
  ccflags ='-I/usr/local/include'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  voidflags=15, castflags=0, d_casti32=define, d_castneg=define
  intsize=4, alignbytes=8, usemymalloc=y, randbits=15
  Linker and Libraries​:
  ld='gcc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
  libc=/lib/libc.so, so=so
  useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
  cccdlflags='-fpic', lddlflags='-G -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Built under solaris
  Compiled at Aug 8 1997 13​:35​:39
  @​INC​:
  /usr/local/lib/perl5/sun4m-solaris/5.00401
  /usr/local/lib/perl5
  /usr/local/lib/perl5/site_perl/sun4m-solaris
  /usr/local/lib/perl5/site_perl
  .
$%!&*# -->