This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Symbian sync
[perl5.git] / lib / constant.pm
index 83714a8..f1b4d73 100644 (file)
@@ -109,7 +109,7 @@ sub import {
                    # constants from cv_const_sv are read only. So we have to:
                    Internals::SvREADONLY($scalar, 1);
                    $symtab->{$name} = \$scalar;
-                   Internals::inc_sub_generation;
+                   &Internals::inc_sub_generation;
                } else {
                    *$full_name = sub () { $scalar };
                }