Invoke mksafefunc and mkunsafefunc with :: decoration. This seems a good

idea on consistency grounds, whether or not it really fixes bug #1831.
Michael Fuhr

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 40eed6adad1269567cb91d6c2f858fae3dffe6c7..0b3d6725f1bee6dff5fb8b98dc02a9baa77519cc 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -591,7 +591,7 @@ plperl_create_sub(char *s, bool trusted)
         * errors properly.  Perhaps it's because there's another level of
         * eval inside mksafefunc?
         */
-       count = perl_call_pv((trusted ? "mksafefunc" : "mkunsafefunc"),
+       count = perl_call_pv((trusted ? "::mksafefunc" : "::mkunsafefunc"),
                                                 G_SCALAR | G_EVAL | G_KEEPERR);
        SPAGAIN;