fix quoting in t/io/inplace.t

[p5sagit/p5-mst-13.2.git] / pod / perlembed.pod

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 689050c..f7c8e4a 100644 (file)
--- 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);