Fix name of method

Resulting of using inherited one -> showing "discuss" link in toplevel
items (PCI devices and PCI classes).

diff --git a/PciIds/Address/Toplevel.pm b/PciIds/Address/Toplevel.pm
index 0f1669852b00a7332140c568d0a8f46234a96a9f..6f4836bd5a7882c583be98beb892038e70bd2669 100644 (file)
--- a/PciIds/Address/Toplevel.pm
+++ b/PciIds/Address/Toplevel.pm
@@ -41,7 +41,7 @@ sub append( $$ ) {
        return ( PciIds::Address::Base::new( $self->{'value'} . ( ( $self->{'value'} =~ /\/$/ ) ? '' : '/' ) . $suffix ), undef );
 }
 
-sub canAddDiscuss( $ ) { return 0; }
+sub canDiscuss( $ ) { return 0; }
 
 sub defaultRestrict( $ ) {
        my( $self ) = @_;