Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37546603
en ru br
ALT Linux repos
S:0.03-alt4.2
5.0: 0.03-alt2
4.1: 0.03-alt2
4.0: 0.03-alt2
3.0: 0.03-alt1

Group :: Development/Perl
RPM: perl-Devel-Leak

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: perl-Devel-Leak-0.03-alt4.1.1.1.patch
Download


 .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 <at@altlinux.ru> 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<have> been created, C<CheckSV> 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 <viy@altlinux.ru> 0.03-alt4.1.1.1
+- rebuild with new perl 5.24.1
+
+* Wed Nov 25 2015 Igor Vlasenko <viy@altlinux.ru> 0.03-alt4.1.1
+- rebuild with new perl 5.22.0
+
+* Tue Dec 09 2014 Igor Vlasenko <viy@altlinux.ru> 0.03-alt4.1
+- rebuild with new perl 5.20.1
+
+* Tue Aug 27 2013 Vladimir Lettiev <crux@altlinux.ru> 0.03-alt4
+- built for perl 5.18
+
+* Tue Aug 28 2012 Vladimir Lettiev <crux@altlinux.ru> 0.03-alt3
+- rebuilt for perl-5.16
+
+* Thu Oct 06 2011 Alexey Tourbin <at@altlinux.ru> 0.03-alt2.3
+- rebuilt for perl-5.14
+
+* Tue Sep 21 2010 Alexey Tourbin <at@altlinux.ru> 0.03-alt2.2
+- rebuilt for perl-5.12
+
+* Mon Sep 20 2010 Alexey Tourbin <at@altlinux.ru> 0.03-alt2.1
+- rebuilt for perl-5.12
+
+* Thu Oct 26 2006 Alexey Tourbin <at@altlinux.ru> 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 <at@altlinux.ru> 0.03-alt1
+- initial revision (for finding leaks in perl-RPM)
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin