# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1422136268 -3600
# Node ID 44b39238d741a44395985882bfd1de7ffc753088
# Parent  4dc2c96b0ba187fb1cd73796b5e5d74e45103317
replaced Perl6::Slurp with home brewed slurp

diff -r 4dc2c96b0ba1 -r 44b39238d741 check
--- a/check	Sat Jun 05 22:27:17 2010 +0200
+++ b/check	Sat Jan 24 22:51:08 2015 +0100
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use Perl6::Slurp;
 use File::Temp;
 use File::Basename;
 use Getopt::Long;
@@ -22,6 +21,8 @@
 my $opt_config = undef;
 my $opt_exim   = undef;
 
+sub slurp { local ($/, @ARGV) = (undef, @_); <> };
+
 MAIN: {
 
     GetOptions(