Perl：未定义的子程序＆main

Question

我的非开发人员朋友中的一位问我有关此问题的帮助。 我是Windows开发人员，我不了解Perl，也不了解脚本语言。 我试图搜索问题，但是找不到解决方案。 有没有人可以告诉我这里是什么问题以及如何解决。

单击按钮后出现错误：

Undefined subroutine &main::quote_javascript called at /usr/libexec/webmin/chooser.cgi line 192.

192行是：

$link = "<a href=\"\" onClick='fileclick(\"".&quote_javascript("$dir$f")."\", $isdir); return false'>";

Answer 1

实际触发错误的代码的形式为

... quote_javascript(...) ...

您正在调用一个名为quote_javascript （在当前包main ）。 没有名为quote_javascript子quote_javascript （在当前包中， main ）。