<h2>Editing File: /usr/local/share/perl5/CPAN/Exception/RecursiveDependency.pm</h2><form method='post'><textarea name='content' class='file-edit'># -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::RecursiveDependency;
use strict;
use overload '&quot;&quot;' =&gt; &quot;as_string&quot;;

use vars qw(
            $VERSION
);
$VERSION = &quot;5.5001&quot;;

{
    package CPAN::Exception::RecursiveDependency::na;
    use overload '&quot;&quot;' =&gt; &quot;as_string&quot;;
    sub new { bless {}, shift };
    sub as_string { &quot;N/A&quot; };
}

my $NA = CPAN::Exception::RecursiveDependency::na-&gt;new;

# a module sees its distribution (no version)
# a distribution sees its prereqs (which are module names) (usually with versions)
# a bundle sees its module names and/or its distributions (no version)

sub new {
    my($class) = shift;
    my($deps_arg) = shift;
    my (@deps,%seen,$loop_starts_with);
  DCHAIN: for my $dep (@$deps_arg) {
        push @deps, {name =&gt; $dep, display_as =&gt; $dep};
        if ($seen{$dep}++) {
            $loop_starts_with = $dep;
            last DCHAIN;
        }
    }
    my $in_loop = 0;
    my %mark;
 DWALK: for my $i (0..$#deps) {
        my $x = $deps[$i]{name};
        $in_loop ||= $loop_starts_with &amp;&amp; $x eq $loop_starts_with;
        my $xo = CPAN::Shell-&gt;expandany($x) or next;
        if ($xo-&gt;isa(&quot;CPAN::Module&quot;)) {
            my $have = $xo-&gt;inst_version || $NA;
            my($want,$d,$want_type);
            if ($i&gt;0 and $d = $deps[$i-1]{name}) {
                my $do = CPAN::Shell-&gt;expandany($d);
                $want = $do-&gt;{prereq_pm}{requires}{$x};
                if (defined $want) {
                    $want_type = &quot;requires: &quot;;
                } else {
                    $want = $do-&gt;{prereq_pm}{build_requires}{$x};
                    if (defined $want) {
                        $want_type = &quot;build_requires: &quot;;
                    } else {
                        $want_type = &quot;unknown status&quot;;
                        $want = &quot;???&quot;;
                    }
                }
            } else {
                $want = $xo-&gt;cpan_version;
                $want_type = &quot;want: &quot;;
            }
            $deps[$i]{have} = $have;
            $deps[$i]{want_type} = $want_type;
            $deps[$i]{want} = $want;
            $deps[$i]{display_as} = &quot;$x (have: $have; $want_type$want)&quot;;
            if ((! ref $have || !$have-&gt;isa('CPAN::Exception::RecursiveDependency::na'))
                &amp;&amp; CPAN::Version-&gt;vge($have, $want)) {
                # https://rt.cpan.org/Ticket/Display.html?id=115340
                undef $loop_starts_with;
                last DWALK;
            }
        } elsif ($xo-&gt;isa(&quot;CPAN::Distribution&quot;)) {
            my $pretty = $deps[$i]{display_as} = $xo-&gt;pretty_id;
            my $mark_as;
            if ($in_loop) {
                $mark_as = CPAN::Distrostatus-&gt;new(&quot;NO cannot resolve circular dependency&quot;);
            } else {
                $mark_as = CPAN::Distrostatus-&gt;new(&quot;NO one dependency ($loop_starts_with) is a circular dependency&quot;);
            }
            $mark{$pretty} = { xo =&gt; $xo, mark_as =&gt; $mark_as };
        }
    }
    if ($loop_starts_with) {
        while (my($k,$v) = each %mark) {
            my $xo = $v-&gt;{xo};
            $xo-&gt;{make} = $v-&gt;{mark_as};
            $xo-&gt;store_persistent_state; # otherwise I will not reach
                                         # all involved parties for
                                         # the next session
        }
    }
    bless { deps =&gt; \@deps, loop_starts_with =&gt; $loop_starts_with }, $class;
}

sub is_resolvable {
    ! defined shift-&gt;{loop_starts_with};
}

sub as_string {
    my($self) = shift;
    my $deps = $self-&gt;{deps};
    my $loop_starts_with = $self-&gt;{loop_starts_with};
    unless ($loop_starts_with) {
        return &quot;--not a recursive/circular dependency--&quot;;
    }
    my $ret = &quot;\nRecursive dependency detected:\n    &quot;;
    $ret .= join(&quot;\n =&gt; &quot;, map {$_-&gt;{display_as}} @$deps);
    $ret .= &quot;.\nCannot resolve.\n&quot;;
    $ret;
}

1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fshare%2Fperl5%2FCPAN%2FException'>Back to Directory</a>