[rt.cpan.org #78633] PAR::import ignores url => $repo_client_object

[Ken Olstad via RT]

Sat Jul 28 17:59:00 2012: Request 78633 was acted upon.
Transaction: Ticket created by KENO
       Queue: PAR
     Subject: PAR::import ignores url => $repo_client_object
   Broken in: 1.005
    Severity: Important
       Owner: Nobody
  Requestors: k...@cpan.org
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=78633 >


Around line 540 of PAR.pm:

    my $obj;

    # Support existing clients passed in as objects.
    if (ref($url) and UNIVERSAL::isa($obj, 'PAR::Repository::Client')) {
        $obj = $url;
    }

Should be isa($url,...) not isa($obj,...):

    my $obj;

    # Support existing clients passed in as objects.
    if (ref($url) and UNIVERSAL::isa($url, 'PAR::Repository::Client')) {
        $obj = $url;
    }