Есть вот такой простенький код:

ругается на switch-case, как если бы не был подключен модуль Switch
Теперь магия раз: закомментируем строку "print 123/123;" - не ругается и работает.
Раскомментируем обратно - опять ругается.
Закомментируем строчку "$s=~/wq/;" - ничего не изменилось, по прежнему ругается на switch.
Магия два: удалим строку "$s=~/wq/" (можно заменить /wq/ на m!wq!, главное избавиться то слешей) - снова не ругается и работает.
В чем тут загвоздка?

Видимо магия в том что этот модуль использует source-фильтры.
Используйте оператор given, который появился в perl 5.10 вместо этого модуля.

Добавлено через 3 минуты и 7 секунд
Хотя у меня ваш пример выполняется без ошибок, возможно стоит обновить модуль, а заодно и perl до 5.10 и пользоваться given.

просто никогда не пользуйтесь switch и все
elsif работает вполне приемлемо.


то что написано в коде - ересь! читать не возмножно, нарушает привычный синтаксис перла. повторю совет, не пользуйтесь этой гадостью, на си все равно не похоже.

спасибо попробую


код разумеется бессмысленен, не выкидывать же сюда всю простыню на 300 строк, вот я и вычислил минимальный код, на котором возникает подобная ошибка
не знаю какой там для перла привычный синтаксис, но маяться с elsif'ами - издевательство, тем более если мне нужен функционал next

Издевательство - писать код, который невозможно поддерживать.