r42709 - in /branches/upstream/libdevel-cycle-perl/current: Changes META.yml lib/Devel/Cycle.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Aug 25 00:59:33 2009
New Revision: 42709

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42709
Log:
[svn-upgrade] Integrating new upstream version, libdevel-cycle-perl (1.11)

Modified:
    branches/upstream/libdevel-cycle-perl/current/Changes
    branches/upstream/libdevel-cycle-perl/current/META.yml
    branches/upstream/libdevel-cycle-perl/current/lib/Devel/Cycle.pm

Modified: branches/upstream/libdevel-cycle-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-cycle-perl/current/Changes?rev=42709&op=diff
==============================================================================
--- branches/upstream/libdevel-cycle-perl/current/Changes (original)
+++ branches/upstream/libdevel-cycle-perl/current/Changes Tue Aug 25 00:59:33 2009
@@ -1,4 +1,7 @@
 Revision history for Perl extension Devel::Cycle.
+1.11 Mon Aug 24 08:50:25 EDT 2009
+     - Florian Ragwitz fixed bug 47389
+
 1.10 Tue Jul  8 21:27:20 EDT 2008
      - Slaven Rezic fixed bug 35825.
 

Modified: branches/upstream/libdevel-cycle-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-cycle-perl/current/META.yml?rev=42709&op=diff
==============================================================================
--- branches/upstream/libdevel-cycle-perl/current/META.yml (original)
+++ branches/upstream/libdevel-cycle-perl/current/META.yml Tue Aug 25 00:59:33 2009
@@ -1,11 +1,11 @@
 --- #YAML:1.0
 name:                Devel-Cycle
-version:             1.10
+version:             1.11
 abstract:            Find memory cycles in objects
 license:             ~
 author:              
     - Lincoln Stein <lstein at cshl.edu>
-generated_by:        ExtUtils::MakeMaker version 6.44
+generated_by:        ExtUtils::MakeMaker version 6.42
 distribution_type:   module
 requires:     
     Scalar::Util:                  0

Modified: branches/upstream/libdevel-cycle-perl/current/lib/Devel/Cycle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-cycle-perl/current/lib/Devel/Cycle.pm?rev=42709&op=diff
==============================================================================
--- branches/upstream/libdevel-cycle-perl/current/lib/Devel/Cycle.pm (original)
+++ branches/upstream/libdevel-cycle-perl/current/lib/Devel/Cycle.pm Tue Aug 25 00:59:33 2009
@@ -1,5 +1,5 @@
 package Devel::Cycle;
-# $Id: Cycle.pm,v 1.13 2008/07/09 01:26:45 lstein Exp $
+# $Id: Cycle.pm,v 1.15 2009/08/24 12:51:02 lstein Exp $
 
 use 5.006001;
 use strict;
@@ -17,7 +17,7 @@
 our @ISA = qw(Exporter);
 our @EXPORT = qw(find_cycle find_weakened_cycle);
 our @EXPORT_OK = qw($FORMATTING);
-our $VERSION = '1.10';
+our $VERSION = '1.11';
 our $FORMATTING = 'roasted';
 our $QUIET   = 0;
 
@@ -120,9 +120,9 @@
   my $complain  = shift;
   my @report  = @_;
 
-  return if !$inc_weak_refs && isweak($current);
+  return if !$inc_weak_refs && isweak($$current);
   _find_cycle($$current,{%$seenit},$callback,$inc_weak_refs,$complain,
-              (@report,['SCALAR',undef,$current => $$current,$inc_weak_refs?isweak($current):()]));
+              (@report,['SCALAR',undef,$current => $$current,$inc_weak_refs?isweak($$current):()]));
 }
 
 sub _find_cycle_ARRAY {