.gear/rules | 2 + .../tags/83e96268cfac492ce22472e0f7812245a6be5ca5 | 13 +++++ .gear/tags/list | 1 + Leak.pm | 2 +- Leak.xs | 5 +- Makefile.PL | 5 -- perl-Devel-Leak.spec | 67 ++++++++++++++++++++++ 7 files changed, 88 insertions(+), 7 deletions(-) diff --git a/.gear/rules b/.gear/rules new file mode 100644 index 0000000..9b4ab73 --- /dev/null +++ b/.gear/rules @@ -0,0 +1,2 @@ +tar: @version@:. name=Devel-Leak-@version@ +diff: @version@:. . name=perl-Devel-Leak-@version@-@release@.patch diff --git a/.gear/tags/83e96268cfac492ce22472e0f7812245a6be5ca5 b/.gear/tags/83e96268cfac492ce22472e0f7812245a6be5ca5 new file mode 100644 index 0000000..07bfe0b --- /dev/null +++ b/.gear/tags/83e96268cfac492ce22472e0f7812245a6be5ca5 @@ -0,0 +1,13 @@ +object 2e9c76fd658d8a642adc1ddbd9da5f720712ec5c +type commit +tag 0.03 +tagger Alexey Tourbin 1161792582 +0400 + +0.03 +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.5 (GNU/Linux) + +iD8DBQBFP4xIfBKgtDjnu0YRAofKAKCptgIgkSuoY1LzVprhMEvMWgmPYQCeOGAo +HLbnSWRfHiiKhSuQVXTAoAE= +=S0X1 +-----END PGP SIGNATURE----- diff --git a/.gear/tags/list b/.gear/tags/list new file mode 100644 index 0000000..a758798 --- /dev/null +++ b/.gear/tags/list @@ -0,0 +1 @@ +83e96268cfac492ce22472e0f7812245a6be5ca5 0.03 diff --git a/Leak.pm b/Leak.pm index 0024422..f71945d 100644 --- a/Leak.pm +++ b/Leak.pm @@ -41,7 +41,7 @@ of "things" now allocated. =head1 CAVEATS -Note that you need a perl built with -DDEBUGGING for +Note that you may need a perl built with -DDEBUGGING for sv_dump() to print anything, but counts are valid in any perl. If new "things" I been created, C may (also) report additional diff --git a/Leak.xs b/Leak.xs index c41b2ad..5411f4b 100644 --- a/Leak.xs +++ b/Leak.xs @@ -11,7 +11,7 @@ typedef long used_proc _((void *,SV *,long)); typedef struct hash_s *hash_ptr; -#ifndef DEBUGGING +#ifndef sv_dump #define sv_dump(sv) PerlIO_printf(PerlIO_stderr(), "\n") #endif @@ -198,9 +198,12 @@ CheckSV(obj) hash_ptr * obj CODE: { + if (!obj) + croak("invalid Devel::Leak handle (cannot reuse)"); RETVAL = check_used(&obj); } OUTPUT: + obj RETVAL IV diff --git a/Makefile.PL b/Makefile.PL index 40731a2..af1a302 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,11 +1,6 @@ use ExtUtils::MakeMaker; use Config; -unless ($Config{'ccflags'} =~ /-DDEBUGGING/) - { - warn "This perl is not compiled with -DDEBUGGING - functions restricted\n"; - } - WriteMakefile( 'NAME' => 'Devel::Leak', 'clean' => {FILES => "*% *.bak"}, diff --git a/perl-Devel-Leak.spec b/perl-Devel-Leak.spec new file mode 100644 index 0000000..3de8494 --- /dev/null +++ b/perl-Devel-Leak.spec @@ -0,0 +1,67 @@ +%define dist Devel-Leak +Name: perl-%dist +Version: 0.03 +Release: alt4.1.1.1 + +Summary: Utility for looking for perl objects that are not reclaimed +License: GPL or Artistic +Group: Development/Perl + +URL: %CPAN %dist +Source: %dist-%version.tar +Patch: %name-%version-%release.patch + +# Automatically added by buildreq on Thu Oct 06 2011 +BuildRequires: perl-devel + +%description +Devel::Leak is a utility for looking for Perl objects that are not +reclaimed. + +%prep +%setup -q -n %dist-%version +%patch -p1 + +%build +%perl_vendor_build + +%install +%perl_vendor_install + +%files +%doc README +%perl_vendor_archlib/Devel* +%perl_vendor_autolib/Devel* + +%changelog +* Fri Feb 03 2017 Igor Vlasenko 0.03-alt4.1.1.1 +- rebuild with new perl 5.24.1 + +* Wed Nov 25 2015 Igor Vlasenko 0.03-alt4.1.1 +- rebuild with new perl 5.22.0 + +* Tue Dec 09 2014 Igor Vlasenko 0.03-alt4.1 +- rebuild with new perl 5.20.1 + +* Tue Aug 27 2013 Vladimir Lettiev 0.03-alt4 +- built for perl 5.18 + +* Tue Aug 28 2012 Vladimir Lettiev 0.03-alt3 +- rebuilt for perl-5.16 + +* Thu Oct 06 2011 Alexey Tourbin 0.03-alt2.3 +- rebuilt for perl-5.14 + +* Tue Sep 21 2010 Alexey Tourbin 0.03-alt2.2 +- rebuilt for perl-5.12 + +* Mon Sep 20 2010 Alexey Tourbin 0.03-alt2.1 +- rebuilt for perl-5.12 + +* Thu Oct 26 2006 Alexey Tourbin 0.03-alt2 +- imported sources into git and built with gear +- fixed SEGV when re-using $handle several times (cpan #19067); + explicitly reset the handle so it is not reused by mistake + +* Sat Apr 02 2005 Alexey Tourbin 0.03-alt1 +- initial revision (for finding leaks in perl-RPM)