Remove Debug Information from All Debug Complied Packages

DECLARE
   error_count_ NUMBER:=0;
   row_count_   NUMBER:=0;
   CURSOR get_debug_compiled_objects IS
   SELECT  name, 'alter package ' || name || ' COMPILE' text
     FROM  all_plsql_object_settings
     WHERE type IN ('PACKAGE', 'PACKAGE BODY')
     AND   plsql_debug='TRUE'
     AND   owner = USER
     GROUP BY name;
BEGIN
   FOR object_ IN get_debug_compiled_objects LOOP
      row_count_:=row_count_+1;
      BEGIN
         EXECUTE IMMEDIATE object_.text;
      EXCEPTION
         WHEN OTHERS THEN
            error_count_:=error_count_+1;
            dbms_output.Put_Line('Error while compiling package ' || object_.name);
      END;
   END LOOP;
   Dbms_Output.Put_Line('===');
   IF error_count_=0 THEN
      Dbms_Output.Put_Line('All objects compiled successfully');
   ELSE
      Dbms_Output.Put_Line(row_count_-error_count_ || ' objects compiled successfully.');
      Dbms_Output.Put_Line(error_count_ || ' objects compiled with compilation errors.');
   END IF;
END;