debian/0000755000000000000000000000000011732455056007176 5ustar debian/rules0000755000000000000000000000003611732455056010255 0ustar #!/usr/bin/make -f %: dh $@ debian/control0000644000000000000000000000220411732455056010577 0ustar Source: libdevel-cycle-perl Section: perl Priority: optional Build-Depends: debhelper (>= 8) Build-Depends-Indep: perl, libpadwalker-perl Uploaders: Krzysztof Krzyzaniak (eloy) , gregor herrmann , Jonathan Yu , Florian Schlichting Maintainer: Debian Perl Group Standards-Version: 3.9.3 Homepage: http://search.cpan.org/dist/Devel-Cycle/ Vcs-Git: git://git.debian.org/pkg-perl/packages/libdevel-cycle-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libdevel-cycle-perl.git Package: libdevel-cycle-perl Architecture: all Depends: ${perl:Depends}, ${misc:Depends} Suggests: libpadwalker-perl Description: Perl module to detect memory cycles in Perl objects Devel::Cycle is a developer's tool for finding memory cycles in Perl objects. Since Perl provides its automatic memory management using reference counting, cyclical/circular references will result in memory that will never be freed. Optionally, PadWalker (libpadwalker-perl) module enables reporting of cycles in code closures as well. debian/source/0000755000000000000000000000000011732455056010476 5ustar debian/source/format0000644000000000000000000000001411732455056011704 0ustar 3.0 (quilt) debian/changelog0000644000000000000000000000560711732455056011060 0ustar libdevel-cycle-perl (1.11-2) unstable; urgency=low [ Ryan Niebur ] * Email change: Jonathan Yu -> jawnsy@cpan.org [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ Florian Schlichting ] * Switch to source format 3.0 (quilt). * Add unhandled_type_REGEXP.patch (closes: #658614). * Bump dh compatibility to level 8 (no changes necessary). * Bump Standards-Version to 3.9.3 (use copyright-format 1.0). * Add myself to uploaders and copyright. * Add spelling-error-in-manpage.patch. -- Florian Schlichting Wed, 21 Mar 2012 23:24:57 +0100 libdevel-cycle-perl (1.11-1) unstable; urgency=low [ Jonathan Yu ] * New upstream release + Fix for incorrectly reported cycles (RT#47389) * Standards-Version 3.8.3 (drop version dependency on perl) * Use new short debhelper rules format * Bump compat to 7, upgrade debhelper to >= 7 * Upgrade copyright information, use machine readable format * Update control description * Added myself to Copyright and Uploaders [ gregor herrmann ] * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). [ Nathan Handler ] * debian/watch: Update to ignore development releases. -- Jonathan Yu Mon, 24 Aug 2009 17:27:53 -0400 libdevel-cycle-perl (1.10-1) unstable; urgency=low * New upstream release. * debian/control: change my email address. * Set Standards-Version to 3.8.0 (no changes). -- gregor herrmann Wed, 09 Jul 2008 18:41:10 +0200 libdevel-cycle-perl (1.09-1) unstable; urgency=low * New upstream release. * Add libpadwalker-perl to Build-Depends-Indep and Suggests. -- gregor herrmann Tue, 15 Apr 2008 17:53:28 +0200 libdevel-cycle-perl (1.08-1) unstable; urgency=low * New upstream release. * debian/control: remove trailing comma from Depends: line. * debian/copyright: adjust years of copyright to upstream data. * Refresh debian/rules, no functional changes. -- gregor herrmann Sat, 12 Apr 2008 21:53:51 +0200 libdevel-cycle-perl (1.07-2) unstable; urgency=low * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). Added: /me to Uploaders. * debian/watch: use dist-based URL. * debian/rules: - delete /usr/lib/perl5 only if it exists (closes: #467753) - update based on dh-make-perl's templates - don't install README any more (short version of the POD documentation) * Set Standards-Version to 3.7.3 (no changes). * debian/copyright: use version-independent download URL. -- gregor herrmann Sun, 16 Mar 2008 01:59:49 +0100 libdevel-cycle-perl (1.07-1) unstable; urgency=low * Initial Release (closes: #368861) -- Krzysztof Krzyzaniak (eloy) Wed, 24 May 2006 16:41:35 +0200 debian/compat0000644000000000000000000000000211732455056010374 0ustar 8 debian/patches/0000755000000000000000000000000011732455056010625 5ustar debian/patches/unhandled_type_REGEXP.patch0000644000000000000000000000317611732455056015732 0ustar Description: Fix a warning and correctly check for regular expressions Regular expressions have become first-class objects under Perl 5.12. This patch restores the 5.10 behavior under 5.12, by having _get_type() return 'SCALAR' when UNIVERSAL::isa($thingy,'Regexp') is true. Origin: other Bug: https://rt.cpan.org/Public/Bug/Display.html?id=56681 Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=658614 --- a/t/Devel-Cycle.t +++ b/t/Devel-Cycle.t @@ -5,7 +5,7 @@ # change 'tests => 1' to 'tests => last_test_to_print'; -use Test::More tests => 12; +use Test::More tests => 13; use Scalar::Util qw(weaken isweak); BEGIN { use_ok('Devel::Cycle') }; @@ -87,6 +87,7 @@ } { + no warnings qw{ once }; *FOOBAR = *FOOBAR if 0; # cease -w my $test2 = { glob => \*FOOBAR }; @@ -101,6 +102,15 @@ is("@warnings", "", "Warn only once"); } +{ + my $test_re = qr{foo}xms; + + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, @_ }; + find_cycle($test_re); + ok( !@warnings, 'No warnings on Regex' ); +} + package foo; use overload q("") => sub{ return 1 }; # show false alarm --- a/lib/Devel/Cycle.pm +++ b/lib/Devel/Cycle.pm @@ -215,7 +215,7 @@ sub _get_type { my $thingy = shift; return unless ref $thingy; - return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF'); + return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF') || UNIVERSAL::isa($thingy,'Regexp'); return 'ARRAY' if UNIVERSAL::isa($thingy,'ARRAY'); return 'HASH' if UNIVERSAL::isa($thingy,'HASH'); return 'CODE' if UNIVERSAL::isa($thingy,'CODE'); debian/patches/series0000644000000000000000000000007411732455056012043 0ustar unhandled_type_REGEXP.patch spelling-error-in-manpage.patch debian/patches/spelling-error-in-manpage.patch0000644000000000000000000000153411732455056016627 0ustar Description: fix spelling-error-in-manpage Author: Florian Schlichting Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=75956 --- a/lib/Devel/Cycle.pm +++ b/lib/Devel/Cycle.pm @@ -340,7 +340,7 @@ $reference->[$index] eq $reference_value The first element of the array reference is the $object_reference that -you pased to find_cycle() and may not be directly involved in the +you passed to find_cycle() and may not be directly involved in the cycle. If a reference is a weak ref produced using Scalar::Util's weaken() @@ -376,7 +376,7 @@ $reference->[$index] eq $reference_value The first element of the array reference is the $object_reference that -you pased to find_cycle() and may not be directly involved in the +you passed to find_cycle() and may not be directly involved in the cycle. =back debian/copyright0000644000000000000000000000230011732455056011124 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Contact: Lincoln D. Stein Source: http://search.cpan.org/dist/Devel-Cycle/ Upstream-Name: Devel-Cycle Files: * Copyright: 2003, Lincoln Stein License: Artistic or GPL-1+ Files: debian/* Copyright: 2012, Florian Schlichting 2009, Jonathan Yu 2008, gregor herrmann 2006, Krzysztof Krzyzaniak (eloy) License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/watch0000644000000000000000000000016111732455056010225 0ustar version=3 http://search.cpan.org/dist/Devel-Cycle/ .*/Devel-Cycle-v?(\d[\d.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)