add Symbol::delete_package()

p4raw-id: //depot/perl@1330

1 files changed, 1 insertions, 17 deletions

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 12553452c3..f7c8e4a3e1 100644
--- a/pod/perlembed.pod
+++ b/pod/perlembed.pod
@@ -668,6 +668,7 @@ with my() whenever possible.
 
  use strict;
  use vars '%Cache';
+ use Symbol qw(delete_package);
 
  sub valid_package_name {
      my($string) = @_;
@@ -680,23 +681,6 @@ with my() whenever possible.
      return "Embed" . $string;
  }
 
- #borrowed from Safe.pm
- sub delete_package {
-     my $pkg = shift;
-     my ($stem, $leaf);
-
-     no strict 'refs';
-     $pkg = "main::$pkg\::";    # expand to full symbol table name
-     ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
-
-     my $stem_symtab = *{$stem}{HASH};
-     my $leaf_glob   = $stem_symtab->{$leaf};
-     my $leaf_symtab = *{$leaf_glob}{HASH};
-
-     %$leaf_symtab = ();
-     delete $stem_symtab->{$leaf};
- }
-
  sub eval_file {
      my($filename, $delete) = @_;
      my $package = valid_package_name($filename);