X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlembed.pod;h=f7c8e4a3e19b7c1ba50cdff3b90f78147b2ecf15;hb=9949743fb3b989b8694b2a5e666ad6a181918a59;hp=689050c466e2a98082abd1be1a83b7ecfc656eef;hpb=ee580363108be8ac33155650c6c18d2e5cf051f3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 689050c..f7c8e4a 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,20 +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};
-
-     delete $stem_symtab->{$leaf};
- }
-
  sub eval_file {
      my($filename, $delete) = @_;
      my $package = valid_package_name($filename);