Performance schema does not clear package routines

--source include/default_charset.inc

SET sql_mode=ORACLE;

CREATE DATABASE db1;

DELIMITER $$;

CREATE PACKAGE db1.pkg1 AS

  PROCEDURE p1();

END;

$$

CREATE PACKAGE BODY db1.pkg1 AS

PROCEDURE p1() AS

  BEGIN

    NULL;

  END;

END;

$$

DELIMITER ;$$

CALL db1.pkg1.p1();

DROP DATABASE db1;

SELECT object_type, object_schema, object_name

FROM performance_schema.events_statements_summary_by_program

 WHERE object_type='procedure' AND LOWER(object_schema)='db1';

object_type	object_schema	object_name

PROCEDURE	db1	pkg1.p1