Deparse CORE::do

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index b37b763..aa8bcc4 100644 (file)
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -1571,7 +1571,7 @@ sub keyword {
            : "CORE::$name";
     }
     if (
-      $name !~ /^(?:chom?p|exec|glob|s(?:elect|ystem))\z/
+      $name !~ /^(?:chom?p|do|exec|glob|s(?:elect|ystem))\z/
        && !defined eval{prototype "CORE::$name"}
     ) { return $name }
     if (

diff --git a/dist/B-Deparse/t/core.t b/dist/B-Deparse/t/core.t
index a2f93ff..4128f82 100644 (file)
--- a/dist/B-Deparse/t/core.t
+++ b/dist/B-Deparse/t/core.t
@@ -17,7 +17,7 @@ use Test::More;
 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
+          chroot caller continue die do dump exp exit exec endgrent
           endpwent endnetent endhostent endservent endprotoent fork glob
           getppid getpwent getprotoent gethostent getnetent getservent
           getgrent getlogin getc gmtime hex int lc log lstat length