This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse CORE::glob
[perl5.git] / dist / B-Deparse / t / core.t
index 7b2bc16..a2f93ff 100644 (file)
@@ -18,7 +18,7 @@ my @nary = (
  # nullary functions
      [qw( abs alarm break chr cos chop close chdir chomp chmod chown
           chroot caller continue die dump exp exit exec endgrent
  # nullary functions
      [qw( abs alarm break chr cos chop close chdir chomp chmod chown
           chroot caller continue die dump exp exit exec endgrent
-          endpwent endnetent endhostent endservent endprotoent fork
+          endpwent endnetent endhostent endservent endprotoent fork glob
           getppid getpwent getprotoent gethostent getnetent getservent
           getgrent getlogin getc gmtime hex int lc log lstat length
           lcfirst localtime mkdir ord oct pop quotemeta ref rand
           getppid getpwent getprotoent gethostent getnetent getservent
           getgrent getlogin getc gmtime hex int lc log lstat length
           lcfirst localtime mkdir ord oct pop quotemeta ref rand
@@ -31,7 +31,7 @@ my @nary = (
           each fileno getpgrp getpwnam getpwuid getpeername
           getprotobyname getprotobynumber gethostbyname
           getnetbyname getsockname getgrnam getgrgid
           each fileno getpgrp getpwnam getpwuid getpeername
           getprotobyname getprotobynumber gethostbyname
           getnetbyname getsockname getgrnam getgrgid
-          getc gmtime hex int join keys kill lc
+          getc glob gmtime hex int join keys kill lc
           log lock lstat length lcfirst localtime
           mkdir ord oct open pop push pack quotemeta
           ref rand rmdir reset reverse readdir readlink
           log lock lstat length lcfirst localtime
           mkdir ord oct open pop push pack quotemeta
           ref rand rmdir reset reverse readdir readlink