Bug#1093234: Perl output (-Op) completely broken

[Petter Reinholdtsen <pere@hungry.com>]

[Nicolas George]
> The output of lsdvd in perl mode is completely broken.

Thank you for letting us know.  I had a look, and suspec the following
patch solve your problem with a missing comma.

diff --git a/ocode.c b/ocode.c
index b41b5cc..0c53740 100644
--- a/ocode.c
+++ b/ocode.c
@@ -142,6 +142,8 @@ static void DEF_(char *name, const char *format, ...) {
 }
 
 static void HASH_(char *name) {
+        if (indef)
+                printf("%s%s", syntax->def_sep, syntax->lbreak);
         inhash = 1;
         indef = 0;
         INDENT;

-- 
Happy hacking
Petter Reinholdtsen