From c7cc103fec84647d874ceaf28b1e27334c9275ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20=C5=A0pa=C4=8Dek?= <tupinek@gmail.com>
Date: Wed, 7 Oct 2015 12:02:35 +0200
Subject: [PATCH] Fix SYNOPSIS.

---
 lib/Alien/Packages.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Alien/Packages.pm b/lib/Alien/Packages.pm
index a1e6d7e..a3d99b6 100644
--- a/lib/Alien/Packages.pm
+++ b/lib/Alien/Packages.pm
@@ -21,13 +21,16 @@ our $VERSION = '0.005';
     my @packages = $ap->list_packages();
     foreach my $pkg (@packages)
     {
-	print "$pkg->[0] version $pkg->[1]: $pkg->[2]\n";
+	print "$pkg->{PkgType} version $pkg->{Package}: $pkg->{Version}\n";
     }
 
     my %perl_owners = $ap->list_fileowners( File::Spec->rel2abs( $^X ) );
     while( my ($fn, $pkg) = each( %perl_owners ) )
     {
-	print "$fn is provided by ", join( ", ", @$pkg ), "\n";
+        foreach my $item (@$pkg)
+        {
+	    print "$fn is provided by $item->{Package} $item->{PkgType} package\n";
+        }
     }
 
 =head1 SUBROUTINES/METHODS