Fix export comments

diff --git a/scripts/export.pl b/scripts/export.pl
index 84e2aab7e031cf2b5260f9f4756039c89b4a2d9f..f14021a4dd90a239e3448305273e46bf1dd3933f 100755 (executable)
--- 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();