Merged with master and am ready to merge back

[dbsrgits/DBM-Deep.git] / t / 27_filehandle.t

diff --git a/t/27_filehandle.t b/t/27_filehandle.t
index 5c9ee60..d84040d 100644 (file)
--- a/t/27_filehandle.t
+++ b/t/27_filehandle.t
@@ -72,6 +72,14 @@ my \$db = DBM::Deep->new({
 });
 is(\$db->{x}, 'b', "and get at stuff in the database");
 __END_FH__
+
+    # The exec below prevents END blocks from doing this.
+    (my $esc_dir = $t::common::dir) =~ s/(.)/sprintf "\\x{%x}", ord $1/egg;
+    print $fh <<__END_FH_AGAIN__;
+use File::Path 'rmtree';
+rmtree "$esc_dir"; 
+__END_FH_AGAIN__
+
     print $fh "__DATA__\n";
     close $fh;