Perlito5 - grammar - use exists()

Author: fglock

html/perlito5.js

@@ -9033,7 +9033,7 @@ return (p5call(p5pkg["Perlito5::AST::Val::Buf"], "new", ['buf', p5pkg["Perlito5:
 				};
 				var v_effective_name;
 				v_effective_name = ((p5str(p5or(v_namespace, function () { return p5make_package("Perlito5")["v_PKG_NAME"] })) + '::' + p5str(v_name)));
-				if ( (p5make_package("Perlito5")["v_PROTO"])._hash_.hasOwnProperty(v_effective_name) ) {
+				if ( ((p5make_package("Perlito5")["v_PROTO"])._hash_.hasOwnProperty(v_effective_name) || p5sub_exists(p5str(v_effective_name), 'Perlito5::Grammar::Print')) ) {
 					(function () { throw(p5context([], p5want)) })();
 				};
 				if ( ((!( p5bool(v_namespace)) || (p5str(v_namespace) == 'CORE')) && (p5make_package("Perlito5")["v_CORE_PROTO"])._hash_.hasOwnProperty(('CORE::' + p5str(v_name)))) ) {

perlito5.pl

@@ -6431,7 +6431,7 @@ sub Perlito5::Grammar::Print::typeglob {
         return $m_name
     };
     my $effective_name = ((($namespace || $Perlito5::PKG_NAME)) . '::' . $name);
-    if (exists($Perlito5::PROTO->{$effective_name})) {
+    if ((exists($Perlito5::PROTO->{$effective_name}) || exists(&{$effective_name}))) {
         return 
     };
     if ((((!($namespace) || ($namespace eq 'CORE'))) && exists($Perlito5::CORE_PROTO->{('CORE::' . $name)}))) {

src5/lib/Perlito5/Grammar/Print.pm

@@ -116,7 +116,7 @@ sub typeglob {
     }
 
     my $effective_name = ( $namespace || $Perlito5::PKG_NAME ) . '::' . $name;
-    if ( exists $Perlito5::PROTO->{$effective_name} ) {
+    if ( exists $Perlito5::PROTO->{$effective_name} || exists &{$effective_name} ) {
         # subroutine was predeclared
         return;
     }