Bug#768318: libswitch-perl: syntax error syntax error at ./t line 36, near "}continue" caused by comment content

[Florian Lohoff]

Package: libswitch-perl
Version: 2.17-2
Severity: important

Hi,
this minimal testcase produces an error:

flo at p2:/tmp/m$ ./t
syntax error at ./t line 36, near "}continue"
Execution of ./t aborted due to compilation errors.

#!/usr/bin/perl -w
use Switch;
sub parsetimedelta {
	switch($mult) {
		case /s/ { $time*=1; }
	}
}
sub config_read {
	while(<$fd>) {
# 			caase(//)  {
	}
}

Changing the "case /s/" to "case /a/" or other characters i checked fixed
the error or removing the comment line or the closing bracket on the comment line.

Flo


-- System Information:
Debian Release: jessie/sid
  APT prefers testing-updates
  APT policy: (500, 'testing-updates'), (500, 'testing')
Architecture: amd64 (x86_64)

Kernel: Linux 3.16-2-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libswitch-perl depends on:
ii  perl  5.20.1-2

libswitch-perl recommends no packages.

libswitch-perl suggests no packages.

-- no debconf information