Fix name of method

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

diff --git a/PciIds/Address/Base.pm b/PciIds/Address/Base.pm
index 5f78ec95585b26c0c11c82ab537dc671e1d87fdf..428245d7e0446b38fe41ff4d26922a37e3a9c168 100644 (file)
--- a/PciIds/Address/Base.pm
+++ b/PciIds/Address/Base.pm
@@ -25,7 +25,7 @@ sub tail( $ ) {
        return $new;
 }
 
-sub canAddComment( $ ) {
+sub canDiscuss( $ ) {
        return 1; #By default, comments can be added anywhere
 }
 
@@ -35,4 +35,14 @@ sub defaultRestrict( $ ) { return "" };
 
 sub defaultRestrictList( $ ) { return [] };
 
+sub path( $ ) {
+       my( $self ) = @_;
+       my @result;
+       my $address = $self;
+       while( defined( $address = $address->parent() ) ) {
+               push @result, $address;
+       }
+       return \@result;
+}
+
 1;