Prefix is only with toplevel device classes

diff --git a/scripts/export.pl b/scripts/export.pl
index 9aafa2027ee6e6b9e215143178640bd341a76e48..1acf068b68292b41422b189709372344a4a9acc1 100755 (executable)
--- a/scripts/export.pl
+++ b/scripts/export.pl
@@ -15,7 +15,7 @@ my $db = PciIds::DBQAny::new( connectDb(), {
 foreach( @{$db->query( 'list', [] )} ) {
        my( $id, $name, $description ) = @{$_};
        $_ = $id;
-       my $prefix = ( /^PC/ ) ? '' : 'C ';
+       my $prefix = ( /^PD\/..$/ ) ? 'C ' : '';
        s/^P.\///;
        s/[^\/]//g;
        s/\//\t/g;