From: Michal Vaner <vorner@ucw.cz>
Date: Tue, 26 Aug 2008 19:49:10 +0000 (+0200)
Subject: Prefix is only with toplevel device classes
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=2c3aabbd3a7ec29356ea3336f7996f763ce92bc2;p=pciids.git

Prefix is only with toplevel device classes
---

diff --git a/scripts/export.pl b/scripts/export.pl
index 9aafa20..1acf068 100755
--- 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;