From: Michal Vaner <vorner@ucw.cz>
Date: Sun, 31 Aug 2008 13:51:39 +0000 (+0200)
Subject: Fix export comments
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=7cec7738fd762f50f7b9b47f958d0843aeed13b9;p=pciids.git

Fix export comments
---

diff --git a/scripts/export.pl b/scripts/export.pl
index 84e2aab..f14021a 100755
--- a/scripts/export.pl
+++ b/scripts/export.pl
@@ -29,12 +29,12 @@ foreach( @{$db->query( 'list', [] )} ) {
 	my $tabs = $_;
 	$id =~ s/.*\///;
 	$id =~ s/([0-9a-f]{4})([0-9a-f]{4})/$1 $2/;
-	print "$tabs$prefix$id  $name\n";
 	if( defined( $description ) && ( $description ne '' ) ) {
 		chomp $description;
-		$description =~ s/\n/\n$tabs#/g;
-		print "$tabs# $description\n";
+		$description =~ s/\n/\n# /g;
+		print "# $description\n";
 	}
+	print "$tabs$prefix$id  $name\n";
 }
 
 $db->commit();