Hi, Tom,
My perlbug did not work, it complains
Can't locate object method "new" via package "Mail::Send" at
c:\Perl\bin/perlbug.bat line 803, <STDIN> line 1.
Error removing C:\DOCUME~1\lifei\LOCALS~1\Temp\NjWQyk49KM at
c:/Perl/lib/File/Temp.pm line 890, <STDIN> line 1.
Attached is the file created by perlbug. Wish it helpful.
-F
Tom Phoenix wrote:
On 2/27/06, Frank Lee <[EMAIL PROTECTED]> wrote:
subroutine Cwd::fastcwd redefined" at C:/per/lib/Cwd.pm line 700
subroutine Cwd::getcwd redefined at C:/per/lib/Cwd.pm line 700
subroutine Cwd::abs_path redefined at C:/per/lib/Cwd.pm line 700
The script can still works. Could you tell me how to fix it?
The problem is that the 'use warnings' pragma in your main program is
asking for all warnings even though Cwd is trying (via the older
technology of the magic $^W variable) to keep them from showing up.
(Did somebody say that 'use warnings' is always a good idea? You've
found the exception. :-)
A quick fix would be to ask for no redefinition warnings in your main program:
use strict;
use warnings;
no warnings 'redefine';
But that's a crude fix, and it obscures the real bug. At least, it
seems to be a bug that the Cwd module triggers this message. I can't
be sure whether the line localizing $^W shortly before line 700 should
be supplemented or replaced with "no warnings 'redefine';", or whether
the existing code is fine but Perl isn't respecting it; but in any
case it looks like a bug in the Perl distribution. So would you please
file this as a bug report via perlbug? Thanks!
--Tom Phoenix
Stonehenge Perl Training
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.35 running under perl v5.8.7.
-----------------------------------------------------------------
[Please enter your report here]
First, the script works well. but It always complains:
subroutine Cwd::fastcwd redefined" at C:/per/lib/Cwd.pm line 700
subroutine Cwd::getcwd redefined at C:/per/lib/Cwd.pm line 700
subroutine Cwd::abs_path redefined at C:/per/lib/Cwd.pm line 700
I raised this question in perl Mail list, Tom Phoenix in Stonehenge Perl
Training suggested I use perlbug to report this possible perl bug.
Tom Phoenix thought this could be caused by "using warning". However, only I
comment the lines "use Bio:Seq" && "Bio::SeqIO" && "use Cwd", then the compains
disappear. it looks like this:
# use Bio::Seq;
# use Bio::SeqIO;
use strict;
use warnings;
no warnings 'redefine';
use Carp;
# use Cwd;
It still complains if only comments "use warning" line
use Bio::Seq;
use Bio::SeqIO;
use strict;
#use warnings;
no warnings 'redefine';
use Carp;
use Cwd;
Wish it helpful! Thanks.
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=low
---
Site configuration information for perl v5.8.7:
Configured by builder at Wed Nov 2 08:44:18 2005.
Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
Platform:
osname=MSWin32, osvers=5.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cl', ccflags ='-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE
-DNO_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX',
optimize='-MD -Zi -DNDEBUG -O1',
cppflags='-DWIN32'
ccversion='12.00.8804', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='link', ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf
-libpath:"c:\Perl\lib\CORE" -machine:x86'
libpth=\lib
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
msvcrt.lib
perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
msvcrt.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl58.lib
gnulibc_version='undef'
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf
-libpath:"c:\Perl\lib\CORE" -machine:x86'
Locally applied patches:
ACTIVEPERL_LOCAL_PATCHES_ENTRY
Iin_load_module moved for compatibility with build 806
Avoid signal flag SA_RESTART for older versions of HP-UX
PerlEx support in CGI::Carp
Less verbose ExtUtils::Install and Pod::Find
instmodsh upgraded from ExtUtils-MakeMaker-6.25
Patch for CAN-2005-0448 from Debian with modifications
Upgrade to Time-HiRes-1.76
25774 Keys of %INC always use forward slashes
25747 Accidental interpolation of $@ in Pod::Html
25362 File::Path::mkpath resets errno
25181 Incorrect (X)HTML generated by Pod::Html
24999 Avoid redefinition warning for MinGW
24699 ICMP_UNREACHABLE handling in Net::Ping
21540 Fix backward-compatibility issues in if.pm
---
@INC for perl v5.8.7:
c:/Perl/lib
c:/Perl/site/lib
.
---
Environment for perl v5.8.7:
HOME (unset)
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=c:\Perl\bin;C:\EMBOSSwin;C:\Perl\bin\;C:\PROGRAM
FILES\THINKPAD\UTILITIES;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\IBMTOOLS\Python22;C:\Program
Files\SecureCRT\;C:\Program Files\Common Files\Ulead Systems\MPEG;C:\Program
Files\Common Files\Ulead
Systems\DVD;C:\MATLAB7\bin\win32;C:\PROGRA~1\SecureFX;C:\Program
Files\Intel\Wireless\Bin\;C:\PROGRA~1\F-Secure\Ssh;C:\Program Files\Bitvise
Tunnelier;C:\Program Files\PC-Doctor for Windows\services;C:\Program Files\ATI
Technologies\ATI Control Panel;C:\MySQL\bin;C:\Program Files\IDM Computer
Solutions\UltraEdit-32;C:\Program Files\Common
Files\Adobe\AGL;C:\CBuilderX\bin;C:\Program Files\SSH Communications
Security\SSH Secure Shell;C:\Program
Files\UltraEdit-32;C:\PROGRA~1\SecureFX;C:\php;C:\Program Files\IDM Computer
Solutions\UltraEdit-32
PERL_BADLANG (unset)
SHELL (unset)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
