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

[Nicolas George <george@nsup.org>]

Package: lsdvd
Version: 0.19-5
Severity: important
X-Debbugs-Cc: george@nsup.org

Hi.

The output of lsdvd in perl mode is completely broken.

Here is the first line of output:

our %lsdvd = {

In perl, it is either “our %hash = (x => y…)” or
“our $hashref = {x => y…}”, mixing the syntaxes do not work. Here is the
output of version 0.17 from Bookworm:

our %lsdvd = (

Later in the output:

          length => 784.200,
          startcell => 1        }        {
          ix => 2,

Same from 0.17:

          length => 784.200,
          startcell => 1,
        },
        {
          ix => 2,

Not only is the new indentation wonky, the missing comma in the new
version makes it syntactically invalid.

Regards,

-- 
  Nicolas George


-- System Information:
Debian Release: trixie/sid
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable-security'), (500, 'testing'), (500, 'stable'), (50, 'unstable')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 6.11.10-amd64 (SMP w/8 CPU threads; PREEMPT)
Locale: LANG=C, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8), LANGUAGE not set
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages lsdvd depends on:
ii  libc6           2.40-5
ii  libdvdread8t64  6.1.3-2
ii  libxml2         2.12.7+dfsg+really2.9.14-0.2+b1

lsdvd recommends no packages.

lsdvd suggests no packages.

-- no debconf information