Bug #61313 for MooseX-Declare: Negative line numbers in %DB::sub

Negative line numbers can be reported under MooseX-Declare-0.34 and show up in %DB::sub (see perldebguts). This happens in conjunction with Moose::Util::TypeConstraints as the attached demo "ttt" shows. The file ttt (or whatever it is stored as) should be called like PERL5DB='sub DB::DB {}' perl -d ttt to demonstrate the effect. Debuggers and profilers tend to expect nonnegative line numbers and may be thrown. In particular, nytprofhtml used to hang on profiling output that suffered from this effect. Regards, Anno OS: Darwin 10.4.0 Summary of my perl5 (revision 5 version 12 subversion 1) configuration: Platform: osname=darwin, osvers=10.4.0, archname=darwin-multi-2level uname='darwin radom.local 10.4.0 darwin kernel version 10.4.0: fri apr 23 18:28:53 pdt 2010; root:xnu-1504.7.4~1release_i386 i386 ' config_args='-des -Duseshrplib -Dusemultiplicity' hint=recommended, useposix=true, d_sigaction=define useithreads=undef, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=define, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include', optimize='-O3', cppflags='-no-cpp-precomp -fno-common -DPERL_DARWIN -no-cpp-precomp -fno- strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include' ccversion='', gccversion='4.2.1 (Apple Inc. build 5664)', gccosandvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-protector - L/usr/local/lib -L/opt/local/lib' libpth=/usr/local/lib /opt/local/lib /usr/lib libs=-ldbm -ldl -lm -lutil -lc perllibs=-ldl -lm -lutil -lc libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true, libperl=libperl.dylib gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib - L/opt/local/lib -fstack-protector' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_BIT_ALL USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF Built under darwin Compiled at Aug 30 2010 01:59:53 %ENV: PERL5LIB="/Users/anno/lib/perl5" PERL_UNICODE="SDAL" @INC: /Users/anno/lib/perl5 /usr/local/lib/perl5/site_perl/5.12.1/darwin-multi-2level /usr/local/lib/perl5/site_perl/5.12.1 /usr/local/lib/perl5/5.12.1/darwin-multi-2level /usr/local/lib/perl5/5.12.1 /usr/local/lib/perl5/site_perl/5.12.0/darwin-multi-2level /usr/local/lib/perl5/site_perl/5.12.0 /usr/local/lib/perl5/site_perl/5.10.1 /usr/local/lib/perl5/site_perl .