Output better path

[pciids.git] / PciIds / Address / Base.pm

diff --git a/PciIds/Address/Base.pm b/PciIds/Address/Base.pm
index 8b40461dfe3e5921c893176f328bc69e161da249..b9f01aaaf4ddc7882abb8fb2c0a181b39cf8b7c1 100644 (file)
--- a/PciIds/Address/Base.pm
+++ b/PciIds/Address/Base.pm
@@ -40,8 +40,9 @@ sub path( $ ) {
        my @result;
        my $address = $self;
        while( defined( $address = $address->parent() ) ) {
-               push @result, $address;
+               push @result, [ $address, 0 ];
        }
+       unshift @result, [ $self, 0, 1 ];
        return \@result;
 }