From d63fd536f0ce829e3894a1ebb581f7ff68c0598f Mon Sep 17 00:00:00 2001
From: "Brian Fraser fraserb@gmail.com" <>
Date: Mon, 12 Nov 2012 10:37:13 -0300
Subject: [PATCH] Lose dependency on File::Slurp append_file and prepend_file

---
 t/lib/SchemaIterator.t | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/t/lib/SchemaIterator.t b/t/lib/SchemaIterator.t
index 0d9b215c..0fc67969 100644
--- a/t/lib/SchemaIterator.t
+++ b/t/lib/SchemaIterator.t
@@ -443,13 +443,12 @@ SKIP: {
    # Truncate the .myi file to corrupt it
    truncate($myi, 4096);
 
-   use File::Slurp qw( prepend_file append_file write_file );
+   use File::Slurp qw( write_file );
 
    # Corrupt the .frm file
    open my $urand_fh, q{<}, "/dev/urandom"
       or die "Cannot open /dev/urandom";
-   prepend_file($frm, scalar(<$urand_fh>));
-   append_file($frm, scalar(<$urand_fh>));
+   write_file($frm, scalar(<$urand_fh>), slurp_file($frm), scalar(<$urand_fh>));
    close $urand_fh;
 
    $dbh3->do("FLUSH TABLES");