Bug #40866 for Net-IP: Bug

> Hi, > > > > I don't know if the bug is currently an error from my code or my > environment is not well defined but, here's a sample of code: > > > > use strict; > > use DBI; > > use Net::IP; > > use Error qw(:try); > > > > > > MAIN: { > > try { > > print "Hello World\n"; > > > > } > > catch Error with { ## XXX ERROR on this line => Bareword > found where operator expected > > printf Error; > > }; > > } > > > > The bug seems to come from the line: use Net::IP; because when I > comment this line all is running ok. > > > > Here's my environment (this is the print of perl -V) I also have the > same problem on my FreeBSD machine: > > > > Summary of my perl5 (revision 5 version 10 subversion 0) > configuration: > > Platform: > > osname=MSWin32, osvers=5.00, archname=MSWin32-x86-multi-thread > > uname='' > > config_args='undef' > > hint=recommended, useposix=true, d_sigaction=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 -DUSE_SITECUSTOMIZE -DPRIVLIB_LAST_IN_INC > -DPERL_IM > > PLICIT_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', lseeksi > > ze=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 comd > > lg32.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=true, libperl=perl510.lib > > gnulibc_version='' > > 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' > > > > > > Characteristics of this binary (from libperl): > > Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV > > PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS > > PERL_MALLOC_WRAP PL_OP_SLAB_ALLOC USE_ITHREADS > > USE_LARGE_FILES USE_PERLIO USE_SITECUSTOMIZE > > Locally applied patches: > > ActivePerl Build 1004 [287188] > > 33741 avoids segfaults invoking S_raise_signal() (on Linux) > > 33763 Win32 process ids can have more than 16 bits > > 32809 Load 'loadable object' with non-default file extension > > 32728 64-bit fix for Time::Local > > Built under MSWin32 > > Compiled at Sep 3 2008 13:16:37 > > @INC: > > C:/Perl/site/lib > > C:/Perl/lib > > . > > > > Thanks for your time, > > > > Christian Dumas > > christian.dumas@distributel.ca > > > > Programmeur / Analyste > > Distributel Communication, 740-1135 Notre-Dame O. > > Montréal, Canada > > +1-514-877-5505, x213 > > > > >